projekt kivitendo

#=====================================================================

# LX-Office ERP

# Copyright (C) 2004

# Based on SQL-Ledger Version 2.1.9

# Web http://www.lx-office.org

#

#

# XIII form retrieval

#

#======================================================================

package XIII;

sub retrieve_form {

  $main::lxdebug->enter_sub();

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

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

  my $query = qq|SELECT f.line

                 FROM xiii_forms f

                 WHERE f.file = '$form->{file}'

		 AND f.dbname = '$myconfig->{dbname}'

		 ORDER BY f.oid|;

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

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

  my $ref;

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

    push @{ $form->{body} }, $ref->{line};

  }

  $sth->finish;

  $dbh->disconnect;

  $main::lxdebug->leave_sub();

}

sub delete_form {

  $main::lxdebug->enter_sub();

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

  # connect to database, turn AutoCommit off

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

  my $query = qq|DELETE FROM xiii_forms

                 WHERE file = '$form->{file}'

		 AND dbname = '$myconfig->{dbname}'|;

  $dbh->do($query) || $form->dberror($query);

  # commit and redirect

  $rc = $dbh->commit;

  $dbh->disconnect;

  $main::lxdebug->leave_sub();

  return $rc;

}

sub save_form {

  $main::lxdebug->enter_sub();

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

  # connect to database, turn AutoCommit off

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

  my $query = qq|DELETE FROM xiii_forms

                 WHERE file = '$form->{file}'

		 AND dbname = '$myconfig->{dbname}'|;

  $dbh->do($query) || $form->dberror($query);

  $query = qq|INSERT INTO xiii_forms (line, file, dbname)

              VALUES (?, '$form->{file}', '$myconfig->{dbname}')|;

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

  foreach $line (split /\r/, $form->{body}) {

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

    $sth->finish;

  }

  $rc = $dbh->commit;

  $dbh->disconnect;

  $main::lxdebug->leave_sub();

  return $rc;

}

1;