From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Wed, 14 Feb 2007 12:20:53 +0000 (+0000)
Subject: Beim Abarbeiten von Perl-Datenbankupgradescripten in Pg-upgrade2 wurde die Informatio... 
X-Git-Tag: release-2.4.2~107
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=1efda31930b32c5822bb91dcbdff572814d57357;p=kivitendo-erp.git

Beim Abarbeiten von Perl-Datenbankupgradescripten in Pg-upgrade2 wurde die Information, dass das Script abgearbeitet wurde, nicht in der Datenbank eingetragen.
---

diff --git a/SL/User.pm b/SL/User.pm
index ea95cb1d2..c99201244 100644
--- a/SL/User.pm
+++ b/SL/User.pm
@@ -436,7 +436,7 @@ sub dbcreate {
 sub process_perl_script {
   $main::lxdebug->enter_sub();
 
-  my ($self, $form, $dbh, $filename, $version) = @_;
+  my ($self, $form, $dbh, $filename, $version_or_control) = @_;
 
   open(FH, "$filename") or $form->error("$filename : $!\n");
   my $contents = join("", <FH>);
@@ -470,8 +470,13 @@ sub process_perl_script {
     exit(0);
   }
 
-  if ($version) {
-    $dbh->do("UPDATE defaults SET version = " . $dbh->quote($version));
+  if (ref($version_or_control) eq "HASH") {
+    $dbh->do("INSERT INTO schema_info (tag, login) VALUES (" .
+             $dbh->quote($version_or_control->{"tag"}) . ", " .
+             $dbh->quote($form->{"login"}) . ")");
+  } elsif ($version_or_control) {
+    $dbh->do("UPDATE defaults SET version = " .
+             $dbh->quote($version_or_control));
   }
   $dbh->commit();