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.