X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=bin%2Fmozilla%2Fdn.pl;h=d81e9b16e103bd973a68f40a6722e66e0f3eb651;hb=834bd183522a3b20f8c3e24d3f39c6669543c0fc;hp=e79283a6dde98b0eb41e2faaa37b28642e825665;hpb=54e4131e091831e00a861fe2c4f53e344b87ddca;p=kivitendo-erp.git diff --git a/bin/mozilla/dn.pl b/bin/mozilla/dn.pl index e79283a6d..d81e9b16e 100644 --- a/bin/mozilla/dn.pl +++ b/bin/mozilla/dn.pl @@ -207,14 +207,7 @@ sub edit_config { {password}> |; - - if ($form->{menubar}) { - require "$form->{path}/menu.pl"; - &menubar; - } - - print qq| + . $locale->text('Save') . qq|"> @@ -448,7 +441,7 @@ sub show_invoices {
- @@ -566,6 +552,12 @@ sub save { } DN->save_config(\%myconfig, \%$form); + # saving the history + if(!exists $form->{addition} && $form->{id} ne "") { + $form->{addition} = "SAVED FOR DUNNING"; + $form->save_history($form->dbconnect(\%myconfig)); + } + # /saving the history $form->redirect($locale->text('Dunning Process Config saved!')); $lxdebug->leave_sub(); @@ -586,7 +578,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 +595,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,16 +604,19 @@ 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); } - + # saving the history + if(!exists $form->{addition} && $form->{id} ne "") { + $form->{addition} = "DUNNING STARTED"; + $form->save_history($form->dbconnect(\%myconfig)); + } + # /saving the history $form->redirect($locale->text('Dunning Process started for selected invoices!')); $lxdebug->leave_sub(); @@ -914,16 +907,20 @@ sub show_dunning { $dunning = qq||; - - - $column_data{dunning_description} = qq|