projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
sepa_export_items automatisch mit Rechnungen löschen
[kivitendo-erp.git]
/
bin
/
mozilla
/
arap.pl
diff --git
a/bin/mozilla/arap.pl
b/bin/mozilla/arap.pl
index
67b1c48
..
29cad39
100644
(file)
--- 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/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;
}
1;
@@
-77,6
+77,8
@@
sub check_name {
$form->{"${name}_id"} = $new_id;
_reset_salesman_id();
$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');
IS->get_customer(\%myconfig, \%$form) if ($name eq 'customer');
IR->get_vendor(\%myconfig, \%$form) if ($name eq 'vendor');
@@
-107,7
+109,7
@@
sub check_name {
$form->error($locale->text("More than one #1 found matching, please be more specific.", $locale->text(ucfirst $name)));
} else {
&select_name($name);
$form->error($locale->text("More than one #1 found matching, please be more specific.", $locale->text(ucfirst $name)));
} else {
&select_name($name);
-
::end_of_request()
;
+
$::dispatcher->end_request
;
}
}
}
}
@@
-119,6
+121,8
@@
sub check_name {
$form->{"old$name"} = qq|$form->{$name}--$form->{"${name}_id"}|;
_reset_salesman_id();
$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');
IS->get_customer(\%myconfig, \%$form) if ($name eq 'customer');
IR->get_vendor(\%myconfig, \%$form) if ($name eq 'vendor');
@@
-265,6
+269,7
@@
sub name_selected {
my $i = $form->{ndx};
_reset_salesman_id();
my $i = $form->{ndx};
_reset_salesman_id();
+ delete @{ $form }{qw(payment_id)};
$form->{ $form->{vc} } = $form->{"new_name_$i"};
$form->{"$form->{vc}_id"} = $form->{"new_id_$i"};
$form->{ $form->{vc} } = $form->{"new_name_$i"};
$form->{"$form->{vc}_id"} = $form->{"new_id_$i"};