Revision cd1d67a1
Von Moritz Bunkus vor mehr als 16 Jahren hinzugefügt
| bin/mozilla/gl.pl | ||
|---|---|---|
| 451 | 451 |
my @hidden_variables = qw(accno source reference department description notes project_id datefrom dateto category l_subtotal); |
| 452 | 452 |
push @hidden_variables, map { "l_${_}" } @columns;
|
| 453 | 453 |
|
| 454 |
my (@options, $date_option); |
|
| 455 |
if ($form->{accno}) {
|
|
| 456 |
push @options, $locale->text('Account') . " : $form->{accno} $form->{account_description}";
|
|
| 457 |
} |
|
| 458 |
if ($form->{source}) {
|
|
| 459 |
push @options, $locale->text('Source') . " : $form->{source}";
|
|
| 460 |
} |
|
| 461 |
if ($form->{reference}) {
|
|
| 462 |
push @options, $locale->text('Reference') . " : $form->{reference}";
|
|
| 463 |
} |
|
| 454 |
my (@options, @date_options); |
|
| 455 |
push @options, $locale->text('Account') . " : $form->{accno} $form->{account_description}" if ($form->{accno});
|
|
| 456 |
push @options, $locale->text('Source') . " : $form->{source}" if ($form->{source});
|
|
| 457 |
push @options, $locale->text('Reference') . " : $form->{reference}" if ($form->{reference});
|
|
| 458 |
push @options, $locale->text('Description') . " : $form->{description}" if ($form->{description});
|
|
| 459 |
push @options, $locale->text('Notes') . " : $form->{notes}" if ($form->{notes});
|
|
| 460 |
|
|
| 461 |
push @date_options, $locale->text('From'), $locale->date(\%myconfig, $form->{datefrom}, 1) if ($form->{datefrom});
|
|
| 462 |
push @date_options, $locale->text('Bis'), $locale->date(\%myconfig, $form->{dateto}, 1) if ($form->{dateto});
|
|
| 463 |
push @options, join(' ', @date_options) if (scalar @date_options);
|
|
| 464 |
|
|
| 464 | 465 |
if ($form->{department}) {
|
| 465 | 466 |
my ($department) = split /--/, $form->{department};
|
| 466 | 467 |
push @options, $locale->text('Department') . " : $department";
|
| 467 | 468 |
} |
| 468 |
if ($form->{description}) {
|
|
| 469 |
push @options, $locale->text('Description') . " : $form->{description}";
|
|
| 470 |
} |
|
| 471 |
if ($form->{notes}) {
|
|
| 472 |
push @options, $locale->text('Notes') . " : $form->{notes}";
|
|
| 473 |
} |
|
| 474 |
if ($form->{datefrom}) {
|
|
| 475 |
$date_option = $locale->text('From') . " " . $locale->date(\%myconfig, $form->{datefrom}, 1);
|
|
| 476 |
} |
|
| 477 |
if ($form->{dateto}) {
|
|
| 478 |
if ($form->{datefrom}) {
|
|
| 479 |
$date_option .= " "; |
|
| 480 |
} |
|
| 481 |
$date_option .= $locale->text('Bis') . " " . $locale->date(\%myconfig, $form->{dateto}, 1);
|
|
| 482 |
} |
|
| 483 |
push @options, $date_option if $date_option; |
|
| 469 |
|
|
| 484 | 470 |
|
| 485 | 471 |
my $callback = build_std_url('action=generate_report', @hidden_variables);
|
| 486 | 472 |
|
Auch abrufbar als: Unified diff
Kosmetik.