X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Farap.pl;h=75764a4348f44d71ae0f45b771a2c7663ae861af;hb=43a6a98867016061cb7c35b49c05bedf02ab1140;hp=f56da182f554884f2e100e3ac75fee3896b62abc;hpb=9bf9acdff05a8047d0561c68cdd93b0a03deb568;p=kivitendo-erp.git diff --git a/bin/mozilla/arap.pl b/bin/mozilla/arap.pl index f56da182f..75764a434 100644 --- a/bin/mozilla/arap.pl +++ b/bin/mozilla/arap.pl @@ -36,8 +36,8 @@ use strict; if (-f "bin/mozilla/custom_arap.pl") { eval { require "bin/mozilla/custom_arap.pl"; }; } -if (-f "bin/mozilla/$main::form->{login}_arap.pl") { - eval { require "bin/mozilla/$main::form->{login}_arap.pl"; }; +if (-f "bin/mozilla/$::myconfig{login}_arap.pl") { + eval { require "bin/mozilla/$::myconfig{login}_arap.pl"; }; } 1; @@ -77,6 +77,8 @@ sub check_name { $form->{"${name}_id"} = $new_id; _reset_salesman_id(); + delete @{ $form }{qw(payment_id)}; + IS->get_customer(\%myconfig, \%$form) if ($name eq 'customer'); IR->get_vendor(\%myconfig, \%$form) if ($name eq 'vendor'); @@ -119,6 +121,8 @@ sub check_name { $form->{"old$name"} = qq|$form->{$name}--$form->{"${name}_id"}|; _reset_salesman_id(); + delete @{ $form }{qw(payment_id)}; + IS->get_customer(\%myconfig, \%$form) if ($name eq 'customer'); IR->get_vendor(\%myconfig, \%$form) if ($name eq 'vendor'); @@ -169,13 +173,11 @@ sub select_name { my $title = $locale->text('Select from one of the names below'); print qq| +

$title

+
{script}> - - - -
$title