Revision 6c56877d
Von Moritz Bunkus vor etwa 16 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 1107 | 1107 |
# Copy the notes from the invoice/sales order etc. back to the variable "notes" because that is where most templates expect it to be. |
| 1108 | 1108 |
$self->{"notes"} = $self->{ $self->{"formname"} . "notes" };
|
| 1109 | 1109 |
|
| 1110 |
map({ $self->{"employee_${_}"} = $myconfig->{$_}; }
|
|
| 1111 |
qw(email tel fax name signature company address businessnumber
|
|
| 1112 |
co_ustid taxnumber duns));
|
|
| 1110 |
if (!$self->{employee_id}) {
|
|
| 1111 |
map { $self->{"employee_${_}"} = $myconfig->{$_}; } qw(email tel fax name signature company address businessnumber co_ustid taxnumber duns);
|
|
| 1112 |
}
|
|
| 1113 | 1113 |
|
| 1114 | 1114 |
map({ $self->{"${_}"} = $myconfig->{$_}; }
|
| 1115 | 1115 |
qw(co_ustid)); |
| ... | ... | |
| 1883 | 1883 |
$main::lxdebug->leave_sub(); |
| 1884 | 1884 |
} |
| 1885 | 1885 |
|
| 1886 |
sub get_salesman {
|
|
| 1886 |
sub get_employee_data {
|
|
| 1887 | 1887 |
$main::lxdebug->enter_sub(); |
| 1888 | 1888 |
|
| 1889 |
my ($self, $myconfig, $salesman_id) = @_; |
|
| 1889 |
my $self = shift; |
|
| 1890 |
my %params = @_; |
|
| 1891 |
|
|
| 1892 |
Common::check_params(\%params, qw(prefix)); |
|
| 1893 |
Common::check_params_x(\%params, qw(id)); |
|
| 1894 |
|
|
| 1895 |
if (!$params{id}) {
|
|
| 1896 |
$main::lxdebug->leave_sub(); |
|
| 1897 |
return; |
|
| 1898 |
} |
|
| 1890 | 1899 |
|
| 1891 |
$main::lxdebug->leave_sub() and return unless $salesman_id; |
|
| 1900 |
my $myconfig = \%main::myconfig; |
|
| 1901 |
my $dbh = $params{dbh} || $self->get_standard_dbh($myconfig);
|
|
| 1892 | 1902 |
|
| 1893 |
my $dbh = $self->get_standard_dbh($myconfig); |
|
| 1894 |
my ($login) = selectrow_query($self, $dbh, qq|SELECT login FROM employee WHERE id = ?|, $salesman_id); |
|
| 1903 |
my ($login) = selectrow_query($self, $dbh, qq|SELECT login FROM employee WHERE id = ?|, conv_i($params{id}));
|
|
| 1895 | 1904 |
|
| 1896 | 1905 |
if ($login) {
|
| 1897 | 1906 |
my $user = User->new($login); |
| 1898 |
map { $self->{"salesman_$_"} = $user->{$_}; } qw(address businessnumber co_ustid company duns email fax name signature taxnumber tel);
|
|
| 1907 |
map { $self->{$params{prefix} . "_${_}"} = $user->{$_}; } qw(address businessnumber co_ustid company duns email fax name signature taxnumber tel);
|
|
| 1899 | 1908 |
|
| 1900 |
$self->{salesman_login} = $login;
|
|
| 1901 |
$self->{salesman_name} ||= $login;
|
|
| 1909 |
$self->{$params{prefix} . '_login'} = $login;
|
|
| 1910 |
$self->{$params{prefix} . '_name'} ||= $login;
|
|
| 1902 | 1911 |
} |
| 1903 | 1912 |
|
| 1904 | 1913 |
$main::lxdebug->leave_sub(); |
Auch abrufbar als: Unified diff
Bei $form->parse_template() nur dann die ganzen Variablen employee_* überschreiben, wenn employee_id nicht gesetzt ist. In io.pl die ganzen employee_*-Variablen mit denen des ausgewählten Bearbeiters belegen und nicht mit denen des aktuellen Benutzers.