From: Sven Schöling Date: Thu, 23 Feb 2012 13:24:20 +0000 (+0100) Subject: Drei fehlerhafte Invokationen von User->new korrigiert X-Git-Tag: release-2.7.0~14 X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=062940d9bbb8770293e4fa2e06e59f84ff0ecf80;p=kivitendo-erp.git 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 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';