Printer war nicht strict

[mfinanz.git] / SL / Printer.pm

diff --git a/SL/Printer.pm b/SL/Printer.pm
index 346d734a2b7ddc0f3c4cdad55c7a75e031ebd93a..5ed072d81426f529d624b2d6b8428b0c9237d477 100644 (file)
--- 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;
 }