X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fdn.pl;h=e8e242a61716c2e83a440e336f1bd7725d4f6541;hb=86f876b61346bf14a4369b2739fc48ac8a7e02be;hp=65b3bc36f4561caff0edb1e9c8a7fae7215961e8;hpb=2a4ad354455f28cba2e42fe71ea1d1e93a0c69d0;p=kivitendo-erp.git
diff --git a/bin/mozilla/dn.pl b/bin/mozilla/dn.pl
index 65b3bc36f..e8e242a61 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|
|
- . $locale->text('Current / Next Level')
- . qq| | |;
- $column_header{active} =
- qq||
- . NTI($cgi->checkbox('-name' => 'selectall_active',
- '-label' => $locale->text('Active?'),
- '-checked' => 0,
- '-onclick' => "checkbox_check_all('selectall_active', 'active_', 1, " . scalar(@{ $form->{DUNNINGS} }) . ")"))
- . qq| | |;
- $column_header{email} =
- qq||
- . NTI($cgi->checkbox('-name' => 'selectall_email',
- '-label' => $locale->text('eMail?'),
- '-checked' => 0,
- '-onclick' => "checkbox_check_all('selectall_email', 'email_', 1, " . scalar(@{ $form->{DUNNINGS} }) . ")"))
- . qq| | |;
- $column_header{customername} =
- qq||
- . $locale->text('Customername')
- . qq| | |;
- $column_header{invnumber} =
- qq||
- . $locale->text('Invno.')
- . qq| | |;
- $column_header{inv_duedate} =
- qq||
- . $locale->text('Inv. Duedate')
- . qq| | |;
- $column_header{next_duedate} =
- qq||
- . $locale->text('Dunning Duedate')
- . qq| | |;
- $column_header{invdate} =
- qq||
- . $locale->text('Invdate')
- . qq| | |;
- $column_header{amount} =
- qq||
- . $locale->text('Amount')
- . qq| | |;
- $column_header{fee} =
- qq||
- . $locale->text('Total Fees')
- . qq| | |;
- $column_header{interest} =
- qq||
- . $locale->text('Interest')
- . qq| | |;
-
- $form->header;
-
+ foreach my $row (@{ $form->{DUNNINGS} }) {
+ $row->{DUNNING_CONFIG} = [ map +{ %{ $_ } }, @{ $form->{DUNNING_CONFIG} } ];
- print qq|
-
-
-
-
-
-
-