Revision 062940d9
Von Sven Schöling vor mehr als 12 Jahren hinzugefügt
SL/Form.pm | ||
---|---|---|
1964 | 1964 |
my ($login) = selectrow_query($self, $dbh, qq|SELECT login FROM employee WHERE id = ?|, conv_i($params{id})); |
1965 | 1965 |
|
1966 | 1966 |
if ($login) { |
1967 |
my $user = User->new($login); |
|
1967 |
my $user = User->new(login => $login);
|
|
1968 | 1968 |
map { $self->{$params{prefix} . "_${_}"} = $user->{$_}; } qw(address businessnumber co_ustid company duns email fax name signature taxnumber tel); |
1969 | 1969 |
|
1970 | 1970 |
$self->{$params{prefix} . '_login'} = $login; |
Auch abrufbar als: Unified diff
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.