Revision 8c7e4493
Von Moritz Bunkus vor fast 17 Jahren hinzugefügt
| bin/mozilla/dn.pl | ||
|---|---|---|
| 41 | 41 |
require "bin/mozilla/common.pl"; |
| 42 | 42 |
require "bin/mozilla/reportgenerator.pl"; |
| 43 | 43 |
require "bin/mozilla/io.pl"; |
| 44 |
require "bin/mozilla/arap.pl"; |
|
| 45 | 44 |
|
| 46 | 45 |
1; |
| 47 | 46 |
|
| 48 | 47 |
sub edit_config {
|
| 49 | 48 |
$lxdebug->enter_sub(); |
| 50 | 49 |
|
| 50 |
$auth->assert('config');
|
|
| 51 |
|
|
| 51 | 52 |
DN->get_config(\%myconfig, \%$form); |
| 52 | 53 |
$form->get_lists('charts' => { 'key' => 'ALL_CHARTS',
|
| 53 | 54 |
'transdate' => 'current_date' }); |
| ... | ... | |
| 82 | 83 |
sub add {
|
| 83 | 84 |
$lxdebug->enter_sub(); |
| 84 | 85 |
|
| 86 |
$auth->assert('dunning_edit');
|
|
| 87 |
|
|
| 85 | 88 |
# setup customer selection |
| 86 | 89 |
$form->all_vc(\%myconfig, "customer", "AR"); |
| 87 | 90 |
|
| ... | ... | |
| 104 | 107 |
sub show_invoices {
|
| 105 | 108 |
$lxdebug->enter_sub(); |
| 106 | 109 |
|
| 110 |
$auth->assert('dunning_edit');
|
|
| 111 |
|
|
| 107 | 112 |
DN->get_invoices(\%myconfig, \%$form); |
| 108 | 113 |
$form->{title} = $locale->text('Start Dunning Process');
|
| 109 | 114 |
|
| ... | ... | |
| 122 | 127 |
$form->{type} = 'dunning';
|
| 123 | 128 |
$form->{rowcount} = scalar @{ $form->{DUNNINGS} };
|
| 124 | 129 |
$form->{jsscript} = 1;
|
| 125 |
$form->{callback} ||= build_std_url("action=show_invoices", qw(login password customer invnumber ordnumber groupinvoices minamount dunning_level notes));
|
|
| 130 |
$form->{callback} ||= build_std_url("action=show_invoices", qw(customer invnumber ordnumber groupinvoices minamount dunning_level notes));
|
|
| 126 | 131 |
|
| 127 | 132 |
$form->{PRINT_OPTIONS} = print_options('inline' => 1,
|
| 128 | 133 |
'no_queue' => 1, |
| ... | ... | |
| 139 | 144 |
sub save {
|
| 140 | 145 |
$lxdebug->enter_sub(); |
| 141 | 146 |
|
| 147 |
$auth->assert('config');
|
|
| 148 |
|
|
| 142 | 149 |
for my $i (1 .. $form->{rowcount}) {
|
| 143 | 150 |
if ($form->{"dunning_description_$i"} ne "") {
|
| 144 | 151 |
$form->isblank("dunning_level_$i", $locale->text('Dunning Level missing in row '). $i);
|
| ... | ... | |
| 164 | 171 |
sub save_dunning {
|
| 165 | 172 |
$lxdebug->enter_sub(); |
| 166 | 173 |
|
| 174 |
$auth->assert('dunning_edit');
|
|
| 175 |
|
|
| 167 | 176 |
my $active=1; |
| 168 | 177 |
my @rows = (); |
| 169 | 178 |
undef($form->{DUNNING_PDFS});
|
| ... | ... | |
| 231 | 240 |
sub set_email {
|
| 232 | 241 |
$lxdebug->enter_sub(); |
| 233 | 242 |
|
| 243 |
$auth->assert('dunning_edit');
|
|
| 244 |
|
|
| 234 | 245 |
$form->{"title"} = $locale->text("Set eMail text");
|
| 235 | 246 |
$form->header(); |
| 236 | 247 |
print($form->parse_html_template("dunning/set_email"));
|
| ... | ... | |
| 241 | 252 |
sub search {
|
| 242 | 253 |
$lxdebug->enter_sub(); |
| 243 | 254 |
|
| 255 |
$auth->assert('dunning_edit');
|
|
| 256 |
|
|
| 244 | 257 |
$form->get_lists("customers" => "ALL_CUSTOMERS",
|
| 245 | 258 |
"departments" => "ALL_DEPARTMENTS"); |
| 246 | 259 |
|
| ... | ... | |
| 269 | 282 |
sub show_dunning {
|
| 270 | 283 |
$lxdebug->enter_sub(); |
| 271 | 284 |
|
| 285 |
$auth->assert('dunning_edit');
|
|
| 286 |
|
|
| 272 | 287 |
my @filter_field_list = qw(customer_id customer dunning_level department_id invnumber ordnumber |
| 273 | 288 |
transdatefrom transdateto dunningfrom dunningto notes showold); |
| 274 | 289 |
|
| ... | ... | |
| 378 | 393 |
sub print_dunning {
|
| 379 | 394 |
$lxdebug->enter_sub(); |
| 380 | 395 |
|
| 396 |
$auth->assert('dunning_edit');
|
|
| 397 |
|
|
| 381 | 398 |
$form->{rowcount} = 1;
|
| 382 | 399 |
$form->{selected_1} = 1;
|
| 383 | 400 |
$form->{dunning_id_1} = $form->{dunning_id};
|
| ... | ... | |
| 390 | 407 |
sub print_multiple {
|
| 391 | 408 |
$lxdebug->enter_sub(); |
| 392 | 409 |
|
| 410 |
$auth->assert('dunning_edit');
|
|
| 411 |
|
|
| 393 | 412 |
$form->{title} = $locale->text('Print dunnings');
|
| 394 | 413 |
|
| 395 | 414 |
my @dunning_ids = map { $form->{"dunning_id_$_"} } grep { $form->{"selected_$_"} } (1..$form->{rowcount});
|
| ... | ... | |
| 421 | 440 |
$lxdebug->leave_sub(); |
| 422 | 441 |
} |
| 423 | 442 |
|
| 443 |
sub continue {
|
|
| 444 |
call_sub($form->{nextsub});
|
|
| 445 |
} |
|
| 446 |
|
|
| 424 | 447 |
# end of main |
Auch abrufbar als: Unified diff
Umstellung der Benutzerverwaltung von Dateien im Verzeichnis "users" auf die Verwendung einer Authentifizierungsdatenbank.
Es ist erforderlich, die Dateien doc/UPGRADE und doc/INSTALL/index.html zu lesen und die angesprochenen Punkte auszuführen, um nach einem Upgrade weiter arbeiten zu können.