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;
|
| scripts/dbupgrade2_tool.pl | ||
|---|---|---|
| 436 | 436 |
} |
| 437 | 437 |
|
| 438 | 438 |
$locale = new Locale($myconfig{countrycode}, "all");
|
| 439 |
$user = new User($opt_user); |
|
| 439 |
$user = new User(login => $opt_user);
|
|
| 440 | 440 |
|
| 441 | 441 |
map { $form->{$_} = $myconfig{$_} } keys %myconfig;
|
| 442 | 442 |
} |
| scripts/rose_auto_create_model.pl | ||
|---|---|---|
| 59 | 59 |
$::locale = Locale->new("de");
|
| 60 | 60 |
$::form = new Form; |
| 61 | 61 |
$::auth = SL::Auth->new(); |
| 62 |
$::user = User->new($login); |
|
| 62 |
$::user = User->new(login => $login);
|
|
| 63 | 63 |
%::myconfig = $auth->read_user(login => $login); |
| 64 | 64 |
$::request = { cgi => CGI->new({}) };
|
| 65 | 65 |
$form->{script} = 'rose_meta_data.pl';
|
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.