Revision 0534e310
Von Moritz Bunkus vor mehr als 16 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 1890 | 1890 |
|
| 1891 | 1891 |
$main::lxdebug->leave_sub() and return unless $salesman_id; |
| 1892 | 1892 |
|
| 1893 |
my $dbh = $self->get_standard_dbh($myconfig); |
|
| 1894 |
|
|
| 1895 |
my ($login) = |
|
| 1896 |
selectrow_query($self, $dbh, qq|SELECT login FROM employee WHERE id = ?|, |
|
| 1897 |
$salesman_id); |
|
| 1893 |
my $dbh = $self->get_standard_dbh($myconfig); |
|
| 1894 |
my ($login) = selectrow_query($self, $dbh, qq|SELECT login FROM employee WHERE id = ?|, $salesman_id); |
|
| 1898 | 1895 |
|
| 1899 | 1896 |
if ($login) {
|
| 1900 |
my $user = new User($main::memberfile, $login); |
|
| 1901 |
map({ $self->{"salesman_$_"} = $user->{$_}; }
|
|
| 1902 |
qw(address businessnumber co_ustid company duns email fax name |
|
| 1903 |
taxnumber tel)); |
|
| 1904 |
$self->{salesman_login} = $login;
|
|
| 1905 |
|
|
| 1906 |
$self->{salesman_name} = $login
|
|
| 1907 |
if ($self->{salesman_name} eq "");
|
|
| 1897 |
my $user = User->new($login); |
|
| 1898 |
map { $self->{"salesman_$_"} = $user->{$_}; } qw(address businessnumber co_ustid company duns email fax name taxnumber tel);
|
|
| 1899 |
|
|
| 1900 |
$self->{salesman_login} = $login;
|
|
| 1901 |
$self->{salesman_name} ||= $login;
|
|
| 1908 | 1902 |
} |
| 1909 | 1903 |
|
| 1910 | 1904 |
$main::lxdebug->leave_sub(); |
Auch abrufbar als: Unified diff
1. Salesman-Daten wurden nicht in $form eingetragen, weil die User-Klasse nur noch einen Parameter erwartet.
2. Kosmetik.