X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/54e4131e091831e00a861fe2c4f53e344b87ddca..bfaef835c20ba69d5ea4242e67a0dcb4fcbd4f50:/bin/mozilla/dn.pl diff --git a/bin/mozilla/dn.pl b/bin/mozilla/dn.pl index e79283a6d..50c602b40 100644 --- a/bin/mozilla/dn.pl +++ b/bin/mozilla/dn.pl @@ -448,7 +448,7 @@ sub show_invoices { -
{script}> +{script}> @@ -530,11 +530,14 @@ print qq| {path}> {login}> -{password}> - -|; - +{password}>|; +#print qq| +# |; +print qq| + +|; if ($form->{menubar}) { require "$form->{path}/menu.pl"; &menubar; @@ -586,7 +589,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 +606,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 +615,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); }