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);
17 $::lxdebug->leave_sub;
19 return wantarray ? @printers : \@printers;
23 $::lxdebug->enter_sub;
25 my ($self, %params) = @_;
27 my $dbh = $::auth->get_user_dbh($params{login});
29 my $query = qq|SELECT * FROM printers WHERE id = ?|;
30 my ($printer) = selectfirst_hashref_query($::form, $dbh, $query, $params{id});
34 $::lxdebug->leave_sub;
40 $main::lxdebug->enter_sub();
42 my ($self, %params) = @_;
45 my $dbh = $::auth->get_user_dbh($params{login});
46 my $printer = $params{printer};
48 unless ($printer->{id}) {
49 ($printer->{id}) = selectfirst_array_query($::form, $dbh, "SELECT nextval('id'::text)");
50 do_query($::form, $dbh, "INSERT INTO printers (id, printer_description) VALUES (?, '')", $printer->{id});
55 printer_description = ?,
60 do_query($::form, $dbh, $query,
61 $printer->{printer_description},
62 $printer->{template_code},
63 $printer->{printer_command},
70 $::lxdebug->leave_sub;
74 $::lxdebug->enter_sub;
76 my ($self, %params) = @_;
78 my $dbh = $::auth->get_user_dbh($params{login});
80 my $query = qq|DELETE FROM printers WHERE id = ?|;
81 do_query($::form, $dbh, $query, $params{id});
86 $::lxdebug->leave_sub;