projekt kivitendo

package SL::Printer;

use strict;

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);

  $dbh->disconnect;

  $::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});

  $dbh->disconnect;

  $::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;

  $dbh->disconnect;

  $::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;

  $dbh->disconnect;

  $::lxdebug->leave_sub;

}

1;

use SL::Printer;

  $form->{PRINTERS} = [ SL::Printer->all_printers(%::myconfig) ];