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

diff --git a/SL/Printer.pm b/SL/Printer.pm
index 346d734a2..5ed072d81 100644
--- a/SL/Printer.pm
+++ b/SL/Printer.pm
@@ -1,5 +1,7 @@
 package SL::Printer;
 
+use strict;
+
 use SL::DBUtils;
 
 sub all_printers {
@@ -12,6 +14,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 +31,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 +67,7 @@ SQL
   );
 
   $dbh->commit;
+  $dbh->disconnect;
 
   $::lxdebug->leave_sub;
 }
@@ -76,6 +83,7 @@ sub delete_printer {
   do_query($::form, $dbh, $query, $params{id});
 
   $dbh->commit;
+  $dbh->disconnect;
 
   $::lxdebug->leave_sub;
 }