projekt kivitendo

sub printer {

  $main::lxdebug->enter_sub();

  my ($self, $myconfig, $form) = @_;

  # connect to database

  my $dbh = $form->dbconnect($myconfig);

  my $query = qq|SELECT id, printer_description, template_code, printer_command

                 FROM printers

                 ORDER BY 2|;

  my $sth = $dbh->prepare($query);

  $sth->execute || $form->dberror($query);

  $form->{"ALL"} = [];

  while (my $ref = $sth->fetchrow_hashref("NAME_lc")) {

    push @{ $form->{ALL} }, $ref;

  }

  $sth->finish;

  $dbh->disconnect;

  $main::lxdebug->leave_sub();

}

sub get_printer {

  $main::lxdebug->enter_sub();

  my ($self, $myconfig, $form) = @_;

  # connect to database

  my $dbh = $form->dbconnect($myconfig);

  my $query =

    qq|SELECT p.printer_description, p.template_code, p.printer_command

       FROM printers p

       WHERE p.id = ?|;

  my $sth = $dbh->prepare($query);

  $sth->execute($form->{id}) || $form->dberror($query . " ($form->{id})");

  my $ref = $sth->fetchrow_hashref("NAME_lc");

  map { $form->{$_} = $ref->{$_} } keys %$ref;

  $sth->finish;

  $dbh->disconnect;

  $main::lxdebug->leave_sub();

}

sub save_printer {

  $main::lxdebug->enter_sub();

  my ($self, $myconfig, $form) = @_;

  my $query;

  # connect to database

  my $dbh = $form->dbconnect($myconfig);

  my @values = ($form->{printer_description},

                $form->{template_code},

                $form->{printer_command});

  # id is the old record

  if ($form->{id}) {

    $query = qq|UPDATE printers SET

                printer_description = ?, template_code = ?, printer_command = ?

                WHERE id = ?|;

    push(@values, $form->{id});

  } else {

    $query = qq|INSERT INTO printers

                (printer_description, template_code, printer_command)

                VALUES (?, ?, ?)|;

  }

  do_query($form, $dbh, $query, @values);

  $dbh->disconnect;

  $main::lxdebug->leave_sub();

}

sub delete_printer {

  $main::lxdebug->enter_sub();

  my ($self, $myconfig, $form) = @_;

  # connect to database

  my $dbh = $form->dbconnect($myconfig);

  my $query = qq|DELETE FROM printers

              WHERE id = ?|;

  do_query($form, $dbh, $query, $form->{id});

  $dbh->disconnect;

  $main::lxdebug->leave_sub();

}