From 062940d9bbb8770293e4fa2e06e59f84ff0ecf80 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Thu, 23 Feb 2012 14:24:20 +0100
Subject: [PATCH] Drei fehlerhafte Invokationen von User->new korrigiert
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

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

Fix zu Bug 1820.
---
 SL/Form.pm                        | 2 +-
 scripts/dbupgrade2_tool.pl        | 2 +-
 scripts/rose_auto_create_model.pl | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/SL/Form.pm b/SL/Form.pm
index 3fe20ffb9..6c3b297db 100644
--- 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 $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;
diff --git a/scripts/dbupgrade2_tool.pl b/scripts/dbupgrade2_tool.pl
index f82cb595b..253706c93 100755
--- a/scripts/dbupgrade2_tool.pl
+++ b/scripts/dbupgrade2_tool.pl
@@ -436,7 +436,7 @@ if ($opt_user) {
   }
 
   $locale = new Locale($myconfig{countrycode}, "all");
-  $user   = new User($opt_user);
+  $user   = new User(login => $opt_user);
 
   map { $form->{$_} = $myconfig{$_} } keys %myconfig;
 }
diff --git a/scripts/rose_auto_create_model.pl b/scripts/rose_auto_create_model.pl
index 79aef1c76..14e4ba0fc 100755
--- 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();
-  $::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';
-- 
2.20.1