Vor dem Locken von Tabellen Transaktion starten

PostgreSQL ab 8.4 bricht ansonsten mit einer Fehlermeldung ab.

diff --git a/SL/TransNumber.pm b/SL/TransNumber.pm
index e2bec76..9aed126 100644 (file)
--- a/SL/TransNumber.pm
+++ b/SL/TransNumber.pm
@@ -106,6 +106,7 @@ sub create_unique {
   my $form    = $main::form;
   my %filters = $self->_get_filters();
 
+  $self->dbh->begin_work;
   do_query($form, $self->dbh, qq|LOCK TABLE defaults|);
   do_query($form, $self->dbh, qq|LOCK TABLE business|) if $self->business_id;