my %myconfig = %main::myconfig;
my $locale = $main::locale;
- $form->get_lists(employees => "ALL_EMPLOYEES",
- taxzones => "ALL_TAXZONES",
- business_types => { key => 'ALL_SALESMAN_BUSINESSES', salesman => 1 });
+ $form->get_lists(employees => "ALL_EMPLOYEES",
+ taxzones => "ALL_TAXZONES");
$form->get_pricegroup(\%myconfig, { all => 1 });
+ $form->get_lists(customers => { key => "ALL_SALESMAN_CUSTOMERS", business_is_salesman => 1 }) if $::vertreter;
+
$form->{ALL_SALESMEN} = $form->{ALL_EMPLOYEES};
$form->{taxincluded} = ($form->{taxincluded}) ? "checked" : "";
$form->{is_admin} = $myconfig{role} eq 'admin';
}
# /saving the history
&edit;
- exit;
+
$main::lxdebug->leave_sub();
+ ::end_of_request();
}
sub delete {
my %myconfig = %main::myconfig;
CT->get_shipto(\%myconfig, \%$form);
- print $form->ajax_response_header(), join '__pjx__', map $form->{"shipto$_"},
- qw(name department_1 department_2 street zipcode city country contact phone fax email used);
+ print $form->ajax_response_header(), join('__pjx__', map($form->{"shipto$_"}, qw(name department_1 department_2 street zipcode city country contact phone fax email used)));
$main::lxdebug->leave_sub();
}