8 my ($self, %params) = @_;
10 my $dbh = $::auth->get_user_dbh($params{login});
12 my $query = qq|SELECT * FROM printers ORDER BY printer_description|;
13 my @printers = selectall_hashref_query($::form, $dbh, $query);
15 $::lxdebug->leave_sub;
17 return wantarray ? @printers : \@printers;
21 $::lxdebug->enter_sub;
23 my ($self, %params) = @_;
25 my $dbh = $::auth->get_user_dbh($params{login});
27 my $query = qq|SELECT * FROM printers WHERE id = ?|;
28 my ($printer) = selectfirst_hashref_query($::form, $dbh, $query, $params{id});
30 $::lxdebug->leave_sub;
36 $main::lxdebug->enter_sub();
38 my ($self, %params) = @_;
41 my $dbh = $::auth->get_user_dbh($params{login});
42 my $printer = $params{printer};
44 unless ($printer->{id}) {
45 ($printer->{id}) = selectfirst_array_query($::form, $dbh, "SELECT nextval('id'::text)");
46 do_query($::form, $dbh, "INSERT INTO printers (id, printer_description) VALUES (?, '')", $printer->{id});
51 printer_description = ?,
56 do_query($::form, $dbh, $query,
57 $printer->{printer_description},
58 $printer->{template_code},
59 $printer->{printer_command},
65 $::lxdebug->leave_sub;
69 $::lxdebug->enter_sub;
71 my ($self, %params) = @_;
73 my $dbh = $::auth->get_user_dbh($params{login});
75 my $query = qq|DELETE FROM printers WHERE id = ?|;
76 do_query($::form, $dbh, $query, $params{id});
80 $::lxdebug->leave_sub;