Zeiger in JS Menu als Hand, wie bei den anderen Menues

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

index e79283a..f8a05aa 100644 (file)
--- a/bin/mozilla/dn.pl
+++ b/bin/mozilla/dn.pl
@@ -207,14 +207,7 @@ sub edit_config {
  <input type=hidden name=password value=$form->{password}>
  
  <input class=submit type=submit name=action value="|
-    . $locale->text('Save') . qq|">|;
-
-  if ($form->{menubar}) {
-    require "$form->{path}/menu.pl";
-    &menubar;
-  }
-
-  print qq|
+    . $locale->text('Save') . qq|">
  
    </form>
  
@@ -448,7 +441,7 @@ sub show_invoices {
  <body>
  <script type="text/javascript" src="js/common.js"></script>
  <script type="text/javascript" src="js/dunning.js"></script>
-<form method=post action=$form->{script}>
+<form name=Form method=post action=$form->{script}>
  
  
  <table width=100%>
@@ -517,8 +510,8 @@ sub show_invoices {
    <td><hr size=3 noshade></td>
    </tr>
  </table>|;
-&print_options;
-print qq|
+  &print_options;
+  print qq|
  <br>
  <form method=post action=$form->{script}>
  
@@ -531,16 +524,9 @@ print qq|
  <input type=hidden name=path value=$form->{path}>
  <input type=hidden name=login value=$form->{login}>
  <input type=hidden name=password value=$form->{password}>
-
-<input class=submit type=submit name=action value="|
-    . $locale->text('Continue') . qq|">|;
-
-  if ($form->{menubar}) {
-    require "$form->{path}/menu.pl";
-    &menubar;
-  }
-
-  print qq|
+<input type="hidden" name="action">
+<input type="submit" name="dummy" value="|
+    . $locale->text('Continue') . qq|" onclick="this.disabled=true; this.value='| . $locale->text("The dunning process started") . qq|'; document.Form.action.value='| . $locale->text('Continue') . qq|'; document.Form.submit()">
  
    </form>
  
@@ -586,7 +572,6 @@ sub save_dunning {
        for my $i (1 .. $form->{rowcount}) {
          $form->{"active_$i"} *= 1;
          $lastcustomer = $form->{"customer_id_$i"} unless ($lastcustomer);
-        #print(STDERR qq|LASTCUSTOMER $lastcustomer AKTUELL $form->{"customer_id_$i"} ACTIVE? $form->{"active_$i"} active $active\n Zeile $i|);
          if ($form->{"active_$i"} && ($form->{"customer_id_$i"} == $lastcustomer)) {
            if ($form->{inv_ids}) {
              $form->{inv_ids} .= qq|,$form->{"inv_id_$i"}|;
@@ -604,8 +589,7 @@ sub save_dunning {
        }
        if ($form->{inv_ids} ne "") {
          $form->{inv_ids} .= ")";
-        #print(STDERR "Rufe save_dunning_auf für Zeile $form->{inv_ids} von Kunde $lastcustomer\n");
-       DN->save_dunning(\%myconfig, \%$form, \@rows, $userspath,$spool, $sendmail);
+        DN->save_dunning(\%myconfig, \%$form, \@rows, $userspath,$spool, $sendmail);
        }
      }
    } else {
@@ -614,12 +598,10 @@ sub save_dunning {
          @rows = ();
          $form->{inv_ids} = qq|($form->{"inv_id_$i"})|;
          push(@rows, $i);
-        #print(STDERR "Rufe save_dunning_auf für Zeile $i\n");
          DN->save_dunning(\%myconfig, \%$form, \@rows, $userspath,$spool, $sendmail);
        }
      }
    }
-  #print(STDERR Dumper($form->{DUNNING_PDFS}));
    if($form->{DUNNING_PDFS}) {
      DN->melt_pdfs(\%myconfig, \%$form,$spool);
    }
@@ -960,14 +942,6 @@ sub show_dunning {
  <input type=hidden name=path value=$form->{path}>
  <input type=hidden name=login value=$form->{login}>
  <input type=hidden name=password value=$form->{password}>
-|;
-
-  if ($form->{menubar}) {
-    require "$form->{path}/menu.pl";
-    &menubar;
-  }
-
-  print qq|
  
    </form>