package SL::Printer;
+use strict;
+
use SL::DBUtils;
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;
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;
);
$dbh->commit;
+ $dbh->disconnect;
$::lxdebug->leave_sub;
}
do_query($::form, $dbh, $query, $params{id});
$dbh->commit;
+ $dbh->disconnect;
$::lxdebug->leave_sub;
}