Drei fehlerhafte Invokationen von User->new korrigiert

Die sind bei der Umstellung untergegangen und haben fehlerhafte Ausgabe von
Bearbeiter/Verkäufernamen im Druck verursacht.

Fix zu Bug 1820.

diff --git a/SL/Form.pm b/SL/Form.pm
index 3fe20ffb9aca986e54c75bc317a639e7ad4173e4..6c3b297dbbddf59070dbd899709ccf4d5f7b5981 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1964,7 +1964,7 @@ sub get_employee_data {
   my ($login)  = selectrow_query($self, $dbh, qq|SELECT login FROM employee WHERE id = ?|, conv_i($params{id}));
 
   if ($login) {
   my ($login)  = selectrow_query($self, $dbh, qq|SELECT login FROM employee WHERE id = ?|, conv_i($params{id}));
 
   if ($login) {

-    my $user = User->new($login);
+    my $user = User->new(login => $login);

     map { $self->{$params{prefix} . "_${_}"} = $user->{$_}; } qw(address businessnumber co_ustid company duns email fax name signature taxnumber tel);
 
     $self->{$params{prefix} . '_login'}   = $login;
     map { $self->{$params{prefix} . "_${_}"} = $user->{$_}; } qw(address businessnumber co_ustid company duns email fax name signature taxnumber tel);
 
     $self->{$params{prefix} . '_login'}   = $login;

diff --git a/scripts/dbupgrade2_tool.pl b/scripts/dbupgrade2_tool.pl
index f82cb595b98d0fc41a419a21817838778aa812a3..253706c93df1c89fddff72b134a100bbeab189b5 100755 (executable)
--- a/scripts/dbupgrade2_tool.pl
+++ b/scripts/dbupgrade2_tool.pl
@@ -436,7 +436,7 @@ if ($opt_user) {
   }
 
   $locale = new Locale($myconfig{countrycode}, "all");
   }
 
   $locale = new Locale($myconfig{countrycode}, "all");

-  $user   = new User($opt_user);
+  $user   = new User(login => $opt_user);

 
   map { $form->{$_} = $myconfig{$_} } keys %myconfig;
 }
 
   map { $form->{$_} = $myconfig{$_} } keys %myconfig;
 }

diff --git a/scripts/rose_auto_create_model.pl b/scripts/rose_auto_create_model.pl
index 79aef1c76c3f1bdc45c8f90dd0bea24d878b7745..14e4ba0fcd5a97cf73f3d98581e95b3b8f038c91 100755 (executable)
--- a/scripts/rose_auto_create_model.pl
+++ b/scripts/rose_auto_create_model.pl
@@ -59,7 +59,7 @@ sub setup {
   $::locale       = Locale->new("de");
   $::form         = new Form;
   $::auth         = SL::Auth->new();
   $::locale       = Locale->new("de");
   $::form         = new Form;
   $::auth         = SL::Auth->new();

-  $::user         = User->new($login);
+  $::user         = User->new(login => $login);

   %::myconfig     = $auth->read_user(login => $login);
   $::request      = { cgi => CGI->new({}) };
   $form->{script} = 'rose_meta_data.pl';
   %::myconfig     = $auth->read_user(login => $login);
   $::request      = { cgi => CGI->new({}) };
   $form->{script} = 'rose_meta_data.pl';