projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Versionsnummer angepasst
[kivitendo-erp.git]
/
bin
/
mozilla
/
arap.pl
diff --git
a/bin/mozilla/arap.pl
b/bin/mozilla/arap.pl
index
2544986
..
75764a4
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;
@@
-61,7
+61,7
@@
sub check_name {
$name = $name eq "customer" ? "customer" : "vendor";
$name = $name eq "customer" ? "customer" : "vendor";
- my ($new_name,
$new_id) = split /--/, $form->{$name}
;
+ my ($new_name,
$new_id) = $form->{$name} =~ /^(.*?)--(\d+)$/
;
my $i = 0;
# if we use a selection
if ($form->{"select$name"}) {
my $i = 0;
# if we use a selection
if ($form->{"select$name"}) {
@@
-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');
@@
-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%>