kivitendo/SL/Printer.pm @ c4f960a5
| a3f90d6f | Sven Schöling | package SL::Printer;
|
|
use SL::DBUtils;
|
|||
sub all_printers {
|
|||
$::lxdebug->enter_sub;
|
|||
my ($self, %params) = @_;
|
|||
my $dbh = $::auth->get_user_dbh($params{login});
|
|||
my $query = qq|SELECT * FROM printers ORDER BY printer_description|;
|
|||
my @printers = selectall_hashref_query($::form, $dbh, $query);
|
|||
$::lxdebug->leave_sub;
|
|||
return wantarray ? @printers : \@printers;
|
|||
}
|
|||
sub get_printer {
|
|||
$::lxdebug->enter_sub;
|
|||
my ($self, %params) = @_;
|
|||
my $dbh = $::auth->get_user_dbh($params{login});
|
|||
my $query = qq|SELECT * FROM printers WHERE id = ?|;
|
|||
my ($printer) = selectfirst_hashref_query($::form, $dbh, $query, $params{id});
|
|||
$::lxdebug->leave_sub;
|
|||
return $printer;
|
|||
}
|
|||
sub save_printer {
|
|||
$main::lxdebug->enter_sub();
|
|||
my ($self, %params) = @_;
|
|||
# connect to database
|
|||
my $dbh = $::auth->get_user_dbh($params{login});
|
|||
my $printer = $params{printer};
|
|||
unless ($printer->{id}) {
|
|||
($printer->{id}) = selectfirst_array_query($::form, $dbh, "SELECT nextval('id'::text)");
|
|||
do_query($::form, $dbh, "INSERT INTO printers (id, printer_description) VALUES (?, '')", $printer->{id});
|
|||
}
|
|||
my $query = <<SQL;
|
|||
UPDATE printers SET
|
|||
printer_description = ?,
|
|||
template_code = ?,
|
|||
printer_command = ?
|
|||
WHERE id = ?
|
|||
SQL
|
|||
do_query($::form, $dbh, $query,
|
|||
$printer->{printer_description},
|
|||
$printer->{template_code},
|
|||
$printer->{printer_command},
|
|||
$printer->{id},
|
|||
);
|
|||
$dbh->commit;
|
|||
$::lxdebug->leave_sub;
|
|||
}
|
|||
sub delete_printer {
|
|||
$::lxdebug->enter_sub;
|
|||
my ($self, %params) = @_;
|
|||
my $dbh = $::auth->get_user_dbh($params{login});
|
|||
my $query = qq|DELETE FROM printers WHERE id = ?|;
|
|||
do_query($::form, $dbh, $query, $params{id});
|
|||
$dbh->commit;
|
|||
$::lxdebug->leave_sub;
|
|||
}
|
|||
1;
|