X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=bin%2Fmozilla%2Fdn.pl;h=844abf5b588bd10d22f980ddcc4dac9252521ccf;hb=cd3dc84b8687e1571c7012d91a5138b9444c246c;hp=f0f2a57e240f9a176f4ed97fddc849b3ba1baf2f;hpb=4deefb650e21142416c2d1d2caff98357837964f;p=kivitendo-erp.git
diff --git a/bin/mozilla/dn.pl b/bin/mozilla/dn.pl
index f0f2a57e2..844abf5b5 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,7 +51,7 @@ 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);
@@ -105,7 +105,7 @@ sub edit_config {
- $form->{title} |
+ $form->{title} |
|;
@@ -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| | |;
@@ -202,7 +201,6 @@ sub edit_config {
-{path}>
{login}>
{password}>
@@ -272,7 +270,7 @@ sub add {
# with JavaScript Calendar
$button1 = qq|
-
+ |
text('button') . qq|> |
|;
@@ -284,12 +282,16 @@ sub add {
# without JavaScript Calendar
$button1 =
- qq| | |;
+ qq| | |;
}
$form->{fokus} = "search.customer";
+ $form->{javascript} .= qq||;
$form->header;
+ $onload = qq|focus()|;
+ $onload .= qq|;setupDateFormat('|. $myconfig{dateformat} .qq|', '|. $locale->text("Falsches Datumsformat!") .qq|')|;
+ $onload .= qq|;setupPoints('|. $myconfig{numberformat} .qq|', '|. $locale->text("wrongformat") .qq|')|;
print qq|
-
+
-
@@ -346,7 +347,6 @@ sub add {
{nextsub}>
-{path}>
{login}>
{password}>
@@ -382,9 +382,12 @@ sub show_invoices {
$form->{nextsub} = "save_dunning";
-
+
+ $form->{jsscript} = 1;
+ $form->{javascript} .= qq||;
+
$form->{callback} =
- "$form->{script}?action=show_invoices&path=$form->{path}&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}"
+ "$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 active email customername invnumber invdate inv_duedate invamount next_duedate fee interest );
@@ -395,11 +398,17 @@ sub show_invoices {
. qq||;
$column_header{active} =
qq||
- . $locale->text('Active?')
+ . NTI($cgi->checkbox('-name' => 'selectall_active',
+ '-label' => $locale->text('Active?'),
+ '-checked' => 1,
+ '-onclick' => "checkbox_check_all('selectall_active', 'active_', 1, " . scalar(@{ $form->{DUNNINGS} }) . ")"))
. qq| | |;
$column_header{email} =
qq||
- . $locale->text('eMail?')
+ . 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||
@@ -446,7 +455,7 @@ sub show_invoices {
|;
- &print_options;
+ print_options();
print qq|
|