X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/kivitendo-erp.git/blobdiff_plain/97c8f14b3fea88e6b482919d944cb8e6461bc451..b21a00cf4c891da7bc99d7010a0584decd164906:/SL/Printer.pm

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;
 }