Kosmetik.

[kivitendo-erp.git] / bin / mozilla / cp.pl
diff --git a/bin/mozilla/cp.pl b/bin/mozilla/cp.pl

index 7eb702f..f91e9e0 100644 (file)
--- a/bin/mozilla/cp.pl
+++ b/bin/mozilla/cp.pl
@@ -36,7 +36,7 @@ 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;
@@ -178,13 +178,13 @@ sub form_header {
             </tr>
  | if $form->{selectdepartment};
  
-  $form->{jsscript} = $jscalendar;
+  $form->{jsscript} = 1;
    $jsscript = "";
    if ($form->{jsscript}) {
  
      # with JavaScript Calendar
      $button1 = qq|
-       <td><input name=datepaid id=datepaid size=11 title="$myconfig{dateformat}" value="$form->{datepaid}">
+       <td><input name=datepaid id=datepaid size=11 title="$myconfig{dateformat}" value="$form->{datepaid}" onBlur=\"check_right_date_format(this)\">
         <input type=button name=datepaid id="trigger1" value=|
        . $locale->text('button') . qq|></td>
         |;
@@ -196,15 +196,17 @@ sub form_header {
  
      # without JavaScript Calendar
      $button1 = qq|
-                              <td><input name=transdatefrom id=transdatefrom size=11 title="$myconfig{dateformat}"></td>|;
+                              <td><input name=transdatefrom id=transdatefrom size=11 title="$myconfig{dateformat}" onBlur=\"check_right_date_format(this)\"></td>|;
    }
-
+  $form->{javascript} .= qq|<script type="text/javascript" src="js/common.js"></script>|;
    $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|
-<body>
+<body onLoad="$onload">
  
  <form method=post action=$form->{script}>
  
@@ -304,9 +306,9 @@ sub form_header {
                 <td colspan=3><input name=source value="$form->{source}" size=10></td>
               </tr>
               <tr>
-               <th align=right nowrap>| . $locale->text('Amount') . qq|</th>
-               <td colspan=3><input name=amount size=10 value=|
-    . $form->format_amount(\%myconfig, $form->{amount}, 2) . qq|></td>
+               <th align="right" nowrap>| . $locale->text('Amount') . qq|</th>
+               <td colspan="3"><input name="amount" size="10" value="|
+    . $form->format_amount(\%myconfig, $form->{amount}, 2) . qq|" onBlur=\"check_right_number_format(this)\"></td>
               </tr>
             </table>
           </td>
@@ -465,7 +467,6 @@ sub form_footer {
  </table>
  <input type=hidden name=rowcount value=$form->{rowcount}>
  
-<input type=hidden name=path value=$form->{path}>
  <input type=hidden name=login value=$form->{login}>
  <input type=hidden name=password value=$form->{password}>
  
@@ -673,7 +674,7 @@ sub print {
  
    $form->{amount} = $form->format_amount(\%myconfig, $form->{amount}, 2);
  
-  $form->{decimal} .= "00";
+  #$form->{decimal} .= "00";
    $form->{decimal} = substr($form->{decimal}, 0, 2);
  
    $check = new CP $myconfig{countrycode};
@@ -694,11 +695,13 @@ sub print {
      $form->{pdf} = 1;
    }
  
+  delete $form->{OUT};
+
    if ($form->{media} eq 'printer') {
      $form->{OUT} = "| $myconfig{printer}";
    }
    if ($form->{media} eq 'queue') {
-    %queued = split / /, $form->{queued};
+    %queued = map { s|.*/|| } split / /, $form->{queued};
  
      if ($filename = $queued{ $form->{formname} }) {
        unlink "$spool/$filename";
@@ -722,7 +725,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!'));
@@ -744,6 +747,7 @@ sub check_form {
      exit;
    }
  
+  $form->error($locale->text('Zero amount posting!')) if !$form->parse_amount(\%myconfig, $form->{amount});
    $form->error($locale->text('Date missing!')) unless $form->{datepaid};
  
    $closedto = $form->datetonum($form->{closedto}, \%myconfig);