X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=bin%2Fmozilla%2Fdn.pl;h=ee77c822472979bf01d347700a039ec46b22ce4c;hb=599030d5e26bcef0f9850ddbbedba106ded70ebb;hp=bd96d3edc29db009f45eb5b066be86a297a543b7;hpb=7dab0cbdf9c8d9f1463290ad577e90865d632e93;p=kivitendo-erp.git
diff --git a/bin/mozilla/dn.pl b/bin/mozilla/dn.pl
index bd96d3edc..ee77c8224 100644
--- a/bin/mozilla/dn.pl
+++ b/bin/mozilla/dn.pl
@@ -36,8 +36,8 @@ use SL::PE;
use SL::DN;
use Data::Dumper;
-require "$form->{path}/io.pl";
-require "$form->{path}/arap.pl";
+require "bin/mozilla/io.pl";
+require "bin/mozilla/arap.pl";
1;
@@ -51,10 +51,10 @@ sub edit_config {
$form->{title} = $locale->text('Edit Dunning Process Config');
$form->{callback} =
- "$form->{script}?action=edit_config&path=$form->{path}&login=$form->{login}&password=$form->{password}"
+ "$form->{script}?action=edit_config&login=$form->{login}&password=$form->{password}"
unless $form->{callback};
- @column_index = qw(dunning_level dunning_description active auto email payment_terms terms fee interest template);
+ @column_index = qw(dunning_level dunning_description active auto email payment_terms terms fee interest_rate template);
$column_header{dunning_level} =
qq|
|
@@ -88,7 +88,7 @@ sub edit_config {
qq| | |
. $locale->text('Fee')
. qq| | |;
- $column_header{interest} =
+ $column_header{interest_rate} =
qq||
. $locale->text('Interest Rate')
. qq| | |;
@@ -141,7 +141,7 @@ sub edit_config {
$column_data{payment_terms} = qq| | |;
$column_data{terms} = qq| | |;
$column_data{fee} = qq| | |;
- $column_data{interest} = qq|% | |;
+ $column_data{interest_rate} = qq|% | |;
$column_data{template} = qq| | |;
@@ -163,9 +163,8 @@ sub edit_config {
$column_data{dunning_level} =
qq|$i | |;
$column_data{dunning_description} = qq| | |;
- my $active = "";
$column_data{active} =
- qq| | |;
+ qq| | |;
my $email = "";
$column_data{email} =
qq| | |;
@@ -175,7 +174,7 @@ sub edit_config {
$column_data{payment_terms} = qq| | |;
$column_data{terms} = qq| | |;
$column_data{fee} = qq| | |;
- $column_data{interest} = qq|% | |;
+ $column_data{interest_rate} = qq|% | |;
$column_data{template} = qq| | |;
@@ -202,7 +201,6 @@ sub edit_config {
-{path}>
{login}>
{password}>
@@ -262,34 +260,21 @@ sub add {
|
| if $form->{selectdepartment};
- $form->{title} = $locale->text('Start Dunning Process');
- $form->{nextsub} = "show_invoices";
- # use JavaScript Calendar or not
- $form->{jsscript} = $jscalendar;
- $jsscript = "";
- if ($form->{jsscript}) {
+ $form->{title} = $locale->text('Start Dunning Process');
+ $form->{nextsub} = "show_invoices";
- # with JavaScript Calendar
- $button1 = qq|
-
- text('button') . qq|> |
- |;
+ $form->{jsscript} = 1;
+ $form->{fokus} = "search.customer";
+ $form->{javascript} .= qq||;
+ $form->header();
- #write Trigger
- $jsscript =
- Form->write_trigger(\%myconfig, "1", "paymentuntil", "BR", "trigger1");
- } else {
+ $onload = qq|focus()|;
+ $onload .= qq|;setupDateFormat('|. $myconfig{dateformat} .qq|', '|. $locale->text("Falsches Datumsformat!") .qq|')|;
+ $onload .= qq|;setupPoints('|. $myconfig{numberformat} .qq|', '|. $locale->text("wrongformat") .qq|')|;
- # without JavaScript Calendar
- $button1 =
- qq| | |;
- }
- $form->{fokus} = "search.customer";
- $form->header;
print qq|
-
+