From: Moritz Bunkus Date: Fri, 4 May 2007 15:04:20 +0000 (+0000) Subject: Umstellung der Filtermaske für neue Mahnungen auf das HTML-Vorlagensystem. X-Git-Tag: release-2.4.3^2~381 X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=2a4ad354455f28cba2e42fe71ea1d1e93a0c69d0;p=kivitendo-erp.git Umstellung der Filtermaske für neue Mahnungen auf das HTML-Vorlagensystem. --- diff --git a/bin/mozilla/dn.pl b/bin/mozilla/dn.pl index a81d9452e..65b3bc36f 100644 --- a/bin/mozilla/dn.pl +++ b/bin/mozilla/dn.pl @@ -60,132 +60,24 @@ sub edit_config { sub add { $lxdebug->enter_sub(); + # setup customer selection $form->all_vc(\%myconfig, "customer", "AR"); DN->get_config(\%myconfig, \%$form); - if (@{ $form->{all_customer} }) { - map { $customer .= "\n" - } (@{ $form->{DUNNING} }); - } - $dunning_level = qq| - - | . $locale->text('Next Dunning Level') . qq| - - - | if $form->{selectdunning_level}; + $form->{SHOW_CUSTOMER_SELECTION} = $form->{all_customer} && scalar @{ $form->{all_customer} }; + $form->{SHOW_DUNNING_LEVEL_SELECTION} = $form->{DUNNING} && scalar @{ $form->{DUNNING} }; + $form->{SHOW_DEPARTMENT_SELECTION} = $form->{all_departments} && scalar @{ $form->{all_departments} }; - # departments - if (@{ $form->{all_departments} }) { - $form->{selectdepartment} = "