Bei $form->parse_template() nur dann die ganzen Variablen employee_* überschreiben...

diff --git a/SL/Form.pm b/SL/Form.pm
index d4c1fdf97aec175e8765308355e39a2ab025a020..5d00a1c9005979184d22dfcc9141d98df5a3d18b 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1107,9 +1107,9 @@ sub parse_template {
   # Copy the notes from the invoice/sales order etc. back to the variable "notes" because that is where most templates expect it to be.
   $self->{"notes"} = $self->{ $self->{"formname"} . "notes" };
 
   # Copy the notes from the invoice/sales order etc. back to the variable "notes" because that is where most templates expect it to be.
   $self->{"notes"} = $self->{ $self->{"formname"} . "notes" };
 

-  map({ $self->{"employee_${_}"} = $myconfig->{$_}; }
-      qw(email tel fax name signature company address businessnumber
-         co_ustid taxnumber duns));
+  if (!$self->{employee_id}) {
+    map { $self->{"employee_${_}"} = $myconfig->{$_}; } qw(email tel fax name signature company address businessnumber co_ustid taxnumber duns);
+  }

 
   map({ $self->{"${_}"} = $myconfig->{$_}; }
       qw(co_ustid));
 
   map({ $self->{"${_}"} = $myconfig->{$_}; }
       qw(co_ustid));


@@ -1883,22 +1883,31 @@ sub get_employee {
   $main::lxdebug->leave_sub();
 }
 
   $main::lxdebug->leave_sub();
 }
 

-sub get_salesman {
+sub get_employee_data {

   $main::lxdebug->enter_sub();
 
   $main::lxdebug->enter_sub();
 

-  my ($self, $myconfig, $salesman_id) = @_;
+  my $self     = shift;
+  my %params   = @_;
+
+  Common::check_params(\%params, qw(prefix));
+  Common::check_params_x(\%params, qw(id));
+
+  if (!$params{id}) {
+    $main::lxdebug->leave_sub();
+    return;
+  }

 
 

-  $main::lxdebug->leave_sub() and return unless $salesman_id;
+  my $myconfig = \%main::myconfig;
+  my $dbh      = $params{dbh} || $self->get_standard_dbh($myconfig);

 
 

-  my $dbh     = $self->get_standard_dbh($myconfig);
-  my ($login) = selectrow_query($self, $dbh, qq|SELECT login FROM employee WHERE id = ?|, $salesman_id);
+  my ($login)  = selectrow_query($self, $dbh, qq|SELECT login FROM employee WHERE id = ?|, conv_i($params{id}));

 
   if ($login) {
     my $user = User->new($login);
 
   if ($login) {
     my $user = User->new($login);

-    map { $self->{"salesman_$_"} = $user->{$_}; } qw(address businessnumber co_ustid company duns email fax name signature taxnumber tel);
+    map { $self->{$params{prefix} . "_${_}"} = $user->{$_}; } qw(address businessnumber co_ustid company duns email fax name signature taxnumber tel);

 
 

-    $self->{salesman_login}   = $login;
-    $self->{salesman_name}  ||= $login;
+    $self->{$params{prefix} . '_login'}   = $login;
+    $self->{$params{prefix} . '_name'}  ||= $login;

   }
 
   $main::lxdebug->leave_sub();
   }
 
   $main::lxdebug->leave_sub();

diff --git a/bin/mozilla/io.pl b/bin/mozilla/io.pl
index 79b787ca18249584cb944bf8b7b66f306d4601dc..ea8b20306eef709bd64e936d9402ebba498978f0 100644 (file)
--- a/bin/mozilla/io.pl
+++ b/bin/mozilla/io.pl
@@ -1366,7 +1366,8 @@ sub print_form {
     IS->invoice_details(\%myconfig, \%$form, $locale);
   }
 
     IS->invoice_details(\%myconfig, \%$form, $locale);
   }
 

-  $form->get_salesman(\%myconfig, $salesman_id_saved);
+  $form->get_employee_data('prefix' => 'employee', 'id' => $form->{employee_id});
+  $form->get_employee_data('prefix' => 'salesman', 'id' => $salesman_id_saved);

 
   if ($form->{shipto_id}) {
     $form->get_shipto(\%myconfig);
 
   if ($form->{shipto_id}) {
     $form->get_shipto(\%myconfig);