X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FPrinter.pm;h=ed42b01afa78f233ddd6bc4d48962f06898d705b;hb=40c4eff395b9a1524d06e25ac7548113f9c1dc71;hp=346d734a2b7ddc0f3c4cdad55c7a75e031ebd93a;hpb=97c8f14b3fea88e6b482919d944cb8e6461bc451;p=kivitendo-erp.git

diff --git a/SL/Printer.pm b/SL/Printer.pm
index 346d734a2..ed42b01af 100644
--- a/SL/Printer.pm
+++ b/SL/Printer.pm
@@ -12,6 +12,8 @@ sub all_printers {
   my $query = qq|SELECT * FROM printers ORDER BY printer_description|;
   my @printers = selectall_hashref_query($::form, $dbh, $query);
 
+  $dbh->disconnect;
+
   $::lxdebug->leave_sub;
 
   return wantarray ? @printers : \@printers;
@@ -27,6 +29,8 @@ sub get_printer {
   my $query = qq|SELECT * FROM printers WHERE id = ?|;
   my ($printer) = selectfirst_hashref_query($::form, $dbh, $query, $params{id});
 
+  $dbh->disconnect;
+
   $::lxdebug->leave_sub;
 
   return $printer;
@@ -61,6 +65,7 @@ SQL
   );
 
   $dbh->commit;
+  $dbh->disconnect;
 
   $::lxdebug->leave_sub;
 }
@@ -76,6 +81,7 @@ sub delete_printer {
   do_query($::form, $dbh, $query, $params{id});
 
   $dbh->commit;
+  $dbh->disconnect;
 
   $::lxdebug->leave_sub;
 }