X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/kivitendo-erp.git/blobdiff_plain/4dbb09950c9f5596646537c12d991c99086fe7c1..c62ddafe32128a30ea9247568858d344ed6d5655:/SL/XIII.pm?ds=inline

diff --git a/SL/XIII.pm b/SL/XIII.pm
index dccd435d8..75dfb6142 100644
--- a/SL/XIII.pm
+++ b/SL/XIII.pm
@@ -11,13 +11,12 @@
 
 package XIII;
 
-
 sub retrieve_form {
   $main::lxdebug->enter_sub();
 
   my ($self, $myconfig, $form) = @_;
 
-  my $dbh = $form->dbconnect($myconfig);
+  my $dbh   = $form->dbconnect($myconfig);
   my $query = qq|SELECT f.line
                  FROM xiii_forms f
                  WHERE f.file = '$form->{file}'
@@ -25,13 +24,13 @@ sub retrieve_form {
 		 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;
@@ -39,8 +38,6 @@ sub retrieve_form {
   $main::lxdebug->leave_sub();
 }
 
-
-
 sub delete_form {
   $main::lxdebug->enter_sub();
 
@@ -53,17 +50,16 @@ sub delete_form {
                  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();
 
@@ -76,13 +72,11 @@ sub save_form {
                  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);
 
+  $sth = $dbh->prepare($query);
 
   foreach $line (split /\r/, $form->{body}) {
     $sth->execute($line) || $form->dberror($query);
@@ -97,6 +91,5 @@ sub save_form {
   return $rc;
 }
 
-
 1;