projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Einkaufsstornos auch verknüpfen
[kivitendo-erp.git]
/
bin
/
mozilla
/
arap.pl
diff --git
a/bin/mozilla/arap.pl
b/bin/mozilla/arap.pl
index
f56da18
..
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');
@@
-169,13
+173,11
@@
sub select_name {
my $title = $locale->text('Select from one of the names below');
print qq|
my $title = $locale->text('Select from one of the names below');
print qq|
+ <h1>$title</h1>
+
<form method=post action=$form->{script}>
<table width=100%>
<form method=post action=$form->{script}>
<table width=100%>
- <tr>
- <th class=listtop>$title</th>
- </tr>
- <tr space=5></tr>
<tr>
<td>
<table width=100%>
<tr>
<td>
<table width=100%>
@@
-267,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"};