X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fcp.pl;h=b68865a4fc0ed377996baa641548d22249b98531;hb=e9e216f571e214e1d19c43a2b47f04525f4aaddf;hp=f5e2805a334665294a5eb895cce12e81a0b2999e;hpb=04a2f2e779fabb1faa836937504d4ce8bf906a06;p=kivitendo-erp.git
diff --git a/bin/mozilla/cp.pl b/bin/mozilla/cp.pl
index f5e2805a3..b68865a4f 100644
--- a/bin/mozilla/cp.pl
+++ b/bin/mozilla/cp.pl
@@ -36,7 +36,8 @@ use SL::OP;
use SL::IS;
use SL::IR;
-require "$form->{path}/arap.pl";
+require "bin/mozilla/arap.pl";
+require "bin/mozilla/common.pl";
1;
@@ -87,7 +88,7 @@ sub payment {
} @{ $form->{PR}{ $form->{ARAP} } };
# currencies
- @curr = split /:/, $form->{currencies};
+ @curr = split(/:/, $form->{currencies});
chomp $curr[0];
$form->{defaultcurrency} = $form->{currency} = $form->{oldcurrency} =
$curr[0];
@@ -183,7 +184,7 @@ sub form_header {
# with JavaScript Calendar
$button1 = qq|
-
+ |
text('button') . qq|> |
|;
@@ -195,15 +196,17 @@ sub form_header {
# without JavaScript Calendar
$button1 = qq|
- | |;
+ | |;
}
-
+ $form->{javascript} .= qq||;
$form->header;
$arap = lc $form->{ARAP};
-
+ $onload = qq|focus()|;
+ $onload .= qq|;setupDateFormat('|. $myconfig{dateformat} .qq|', '|. $locale->text("Falsches Datumsformat!") .qq|')|;
+ $onload .= qq|;setupPoints('|. $myconfig{numberformat} .qq|', '|. $locale->text("wrongformat") .qq|')|;
print qq|
-
+
@@ -675,7 +670,7 @@ sub print {
&check_form;
- ($whole, $form->{decimal}) = split /\./, $form->{amount};
+ ($whole, $form->{decimal}) = split(/\./, $form->{amount});
$form->{amount} = $form->format_amount(\%myconfig, $form->{amount}, 2);
@@ -686,7 +681,7 @@ sub print {
$check->init;
$form->{text_amount} = $check->num2text($whole);
- &{"$form->{vc}_details"};
+ call_sub("$form->{vc}_details");
$form->{callback} = "";
@@ -728,7 +723,7 @@ sub print {
if ($form->{media} ne 'screen') {
$form->{callback} =
- "$form->{script}?action=payment&vc=$form->{vc}&path=$form->{path}&login=$form->{login}&password=$form->{password}&all_vc=$form->{all_vc}";
+ "$form->{script}?action=payment&vc=$form->{vc}&login=$form->{login}&password=$form->{password}&all_vc=$form->{all_vc}";
$form->redirect if (CP->process_payment(\%myconfig, \%$form));
$form->error($locale->text('Cannot post payment!'));