Revision d629acd8
Von Sven Schöling vor mehr als 17 Jahren hinzugefügt
bin/mozilla/dn.pl | ||
---|---|---|
36 | 36 |
use SL::DN; |
37 | 37 |
use Data::Dumper; |
38 | 38 |
|
39 |
require "$form->{path}/io.pl";
|
|
40 |
require "$form->{path}/arap.pl";
|
|
39 |
require "bin/mozilla/io.pl";
|
|
40 |
require "bin/mozilla/arap.pl";
|
|
41 | 41 |
|
42 | 42 |
1; |
43 | 43 |
|
... | ... | |
51 | 51 |
$form->{title} = $locale->text('Edit Dunning Process Config'); |
52 | 52 |
|
53 | 53 |
$form->{callback} = |
54 |
"$form->{script}?action=edit_config&path=$form->{path}&login=$form->{login}&password=$form->{password}"
|
|
54 |
"$form->{script}?action=edit_config&login=$form->{login}&password=$form->{password}" |
|
55 | 55 |
unless $form->{callback}; |
56 | 56 |
|
57 | 57 |
@column_index = qw(dunning_level dunning_description active auto email payment_terms terms fee interest template); |
... | ... | |
201 | 201 |
<input name=callback type=hidden value="$form->{callback}"> |
202 | 202 |
<input name=rowcount type=hidden value="$form->{rowcount}"> |
203 | 203 |
|
204 |
<input type=hidden name=path value=$form->{path}> |
|
205 | 204 |
<input type=hidden name=login value=$form->{login}> |
206 | 205 |
<input type=hidden name=password value=$form->{password}> |
207 | 206 |
|
... | ... | |
348 | 347 |
|
349 | 348 |
<input type=hidden name=nextsub value=$form->{nextsub}> |
350 | 349 |
|
351 |
<input type=hidden name=path value=$form->{path}> |
|
352 | 350 |
<input type=hidden name=login value=$form->{login}> |
353 | 351 |
<input type=hidden name=password value=$form->{password}> |
354 | 352 |
|
... | ... | |
386 | 384 |
$form->{nextsub} = "save_dunning"; |
387 | 385 |
|
388 | 386 |
$form->{callback} = |
389 |
"$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}"
|
|
387 |
"$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}" |
|
390 | 388 |
unless $form->{callback}; |
391 | 389 |
|
392 | 390 |
@column_index = qw(dunning_description active email customername invnumber invdate inv_duedate invamount next_duedate fee interest ); |
... | ... | |
523 | 521 |
<input name=groupinvoices type=hidden value="$form->{groupinvoices}"> |
524 | 522 |
|
525 | 523 |
|
526 |
<input type=hidden name=path value=$form->{path}> |
|
527 | 524 |
<input type=hidden name=login value=$form->{login}> |
528 | 525 |
<input type=hidden name=password value=$form->{password}> |
529 | 526 |
<input type="hidden" name="action"> |
... | ... | |
627 | 624 |
|
628 | 625 |
my $callback = "$form->{script}?action=set_email&"; |
629 | 626 |
map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" } |
630 |
(qw(login path password name input_subject input_body input_attachment email_subject email_body email_attachment), grep({ /^[fl]_/ } keys %$form)));
|
|
627 |
(qw(login password name input_subject input_body input_attachment email_subject email_body email_attachment), grep({ /^[fl]_/ } keys %$form))); |
|
631 | 628 |
|
632 | 629 |
if ($form->{email_attachment}) { |
633 | 630 |
$form->{email_attachment} = "checked"; |
... | ... | |
798 | 795 |
|
799 | 796 |
<input type=hidden name=nextsub value=$form->{nextsub}> |
800 | 797 |
|
801 |
<input type=hidden name=path value=$form->{path}> |
|
802 | 798 |
<input type=hidden name=login value=$form->{login}> |
803 | 799 |
<input type=hidden name=password value=$form->{password}> |
804 | 800 |
|
... | ... | |
830 | 826 |
|
831 | 827 |
|
832 | 828 |
$form->{callback} = |
833 |
"$form->{script}?action=show_dunning&path=$form->{path}&login=$form->{login}&password=$form->{password}&customer=$form->{customer}&invnumber=$form->{invnumber}&ordnumber=$form->{ordnumber}&transdatefrom=$form->{transdatefrom}&transdateto=$form->{transdateto}&dunningfrom=$form->{dunningfrom}&dunningto=$form->{dunningto}¬es=$form->{notes}&showold=$form->{showold}&dunning_level=$form->{dunning_level}"
|
|
829 |
"$form->{script}?action=show_dunning&login=$form->{login}&password=$form->{password}&customer=$form->{customer}&invnumber=$form->{invnumber}&ordnumber=$form->{ordnumber}&transdatefrom=$form->{transdatefrom}&transdateto=$form->{transdateto}&dunningfrom=$form->{dunningfrom}&dunningto=$form->{dunningto}¬es=$form->{notes}&showold=$form->{showold}&dunning_level=$form->{dunning_level}" |
|
834 | 830 |
unless $form->{callback}; |
835 | 831 |
|
836 | 832 |
@column_index = qw(dunning_description customername invnumber invdate inv_duedate invamount dunning_date next_duedate fee interest ); |
... | ... | |
936 | 932 |
$column_data{dunning_description} = |
937 | 933 |
qq|<td><a href="dn.pl?action=print_dunning&format=pdf&media=screen&| . |
938 | 934 |
qq|dunning_id=| . E($ref->{dunning_id}) . |
939 |
join(map({ "&${_}=" . E($form->{$_}) } qw(login path password callback))) .
|
|
935 |
join(map({ "&${_}=" . E($form->{$_}) } qw(login password callback))) . |
|
940 | 936 |
qq|">| . H($ref->{dunning_description}) . qq|</a></td>|; |
941 | 937 |
} else { |
942 | 938 |
$column_data{dunning_description} = qq|<td> </td>|; |
... | ... | |
946 | 942 |
$column_data{invnumber} = |
947 | 943 |
qq|<td><a href="| . ($ref->{invoice} ? "is.pl" : "ar.pl" ) . |
948 | 944 |
qq|?action=edit&id=| . H($ref->{id}) . |
949 |
join(map({ "&${_}=" . E($form->{$_}) } qw(login path password callback))) .
|
|
945 |
join(map({ "&${_}=" . E($form->{$_}) } qw(login password callback))) . |
|
950 | 946 |
qq|">| . H($ref->{invnumber}) . qq|</a></td>|; |
951 | 947 |
|
952 | 948 |
map { print "$column_data{$_}\n" } @column_index; |
... | ... | |
975 | 971 |
<input name=nextsub type=hidden value="$form->{nextsub}"> |
976 | 972 |
|
977 | 973 |
|
978 |
<input type=hidden name=path value=$form->{path}> |
|
979 | 974 |
<input type=hidden name=login value=$form->{login}> |
980 | 975 |
<input type=hidden name=password value=$form->{password}> |
981 | 976 |
|
Auch abrufbar als: Unified diff
$form->{path} entfernt und hardcodiert auf bin/mozilla gesetzt.
Vorlagen sind nicht betroffen, aber locales.pl schon.