Scanne auch das Verzeichnis sql/Pg-upgrade nach Perl-Scripten und parse diese nach...

[kivitendo-erp.git] / SL / User.pm

diff --git a/SL/User.pm b/SL/User.pm
index 7e40414..0824a7d 100644 (file)
--- a/SL/User.pm
+++ b/SL/User.pm
@@ -174,7 +174,7 @@ $!";
       $form->{dbupdate} = "db$myconfig{dbname}";
       $form->{ $form->{dbupdate} } = 1;
 
-      $form->info("Upgrading Dataset $myconfig{dbname} ...");
+      $form->info(sprintf($main::locale->text("Upgrading Dataset %s..."), $myconfig{dbname}));
 
       # required for Oracle
       $form->{dbdefault} = $sid;
@@ -188,7 +188,7 @@ $!";
       # remove lock file
       unlink "$userspath/nologin";
 
-      $form->info("... done");
+      $form->info($main::locale->text("...done"));
 
       $rc = -2;
 
@@ -272,7 +272,7 @@ sub dbsources {
 
   if ($form->{dbdriver} eq 'Pg') {
 
-    $query = qq|SELECT datname FROM pg_database|;
+    $query = qq|SELECT datname FROM pg_database WHERE NOT ((datname = 'template0') OR (datname = 'template1'))|;
     $sth   = $dbh->prepare($query);
     $sth->execute || $form->dberror($query);