X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fdn.pl;h=c67e37e040b8905552ea69096a532558a33ef958;hb=3f0ba2ba4caabdc8fc3191c5cbd0aba13a8643cb;hp=65b3bc36f4561caff0edb1e9c8a7fae7215961e8;hpb=2a4ad354455f28cba2e42fe71ea1d1e93a0c69d0;p=kivitendo-erp.git diff --git a/bin/mozilla/dn.pl b/bin/mozilla/dn.pl index 65b3bc36f..c67e37e04 100644 --- a/bin/mozilla/dn.pl +++ b/bin/mozilla/dn.pl @@ -86,184 +86,25 @@ sub show_invoices { DN->get_invoices(\%myconfig, \%$form); $form->{title} = $locale->text('Start Dunning Process'); - if (@{ $form->{DUNNING_CONFIG} }) { - foreach $item (@{ $form->{DUNNING_CONFIG} }) { - $form->{selectdunning} .= - ""; - } - } - - - $form->{nextsub} = "save_dunning"; - - $form->{jsscript} = 1; - $form->{javascript} .= qq||; - - $form->{callback} = - "$form->{script}?action=show_invoices&login=$form->{login}&password=$form->{password}&customer=$form->{customer}&invnumber=$form->{invnumber}&ordnumber=$form->{ordnumber}&paymentuntil=$form->{paymentuntil}&groupinvoices=$form->{groupinvoices}&minamount=$form->{minamount}&dunning_level=$form->{dunning_level}¬es=$form->{notes}" - unless $form->{callback}; - - @column_index = qw(dunning_description dunning_description_next active email customername invnumber invdate inv_duedate amount next_duedate fee interest ); - - $column_header{dunning_description} = - qq|