Diese Datei wird nicht benutzt.

diff --git a/SL/XIII.pm b/SL/XIII.pm
deleted file mode 100644 (file)
index 75dfb61..0000000
--- a/SL/XIII.pm
+++ /dev/null
@@ -1,95 +0,0 @@
-#=====================================================================
-# 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;
-