Revision d440aa09
Von Thomas Heck vor fast 12 Jahren hinzugefügt
| bin/mozilla/ar.pl | ||
|---|---|---|
| 456 | 456 |
my $locale = $main::locale; |
| 457 | 457 |
my $cgi = $::request->{cgi};
|
| 458 | 458 |
|
| 459 |
my ($transdate, $closedto); |
|
| 460 |
|
|
| 461 |
my $follow_ups_block; |
|
| 462 |
if ($form->{id}) {
|
|
| 459 |
if ( $form->{id} ) {
|
|
| 463 | 460 |
my $follow_ups = FU->follow_ups('trans_id' => $form->{id});
|
| 464 |
|
|
| 465 |
if (@{ $follow_ups} ) {
|
|
| 466 |
my $num_due = sum map { $_->{due} * 1 } @{ $follow_ups };
|
|
| 467 |
$follow_ups_block = qq|<p>| . $locale->text("There are #1 unfinished follow-ups of which #2 are due.", scalar @{ $follow_ups }, $num_due) . qq|</p>|;
|
|
| 461 |
if ( @{ $follow_ups} ) {
|
|
| 462 |
$form->{follow_up_length} = scalar(@{$follow_ups});
|
|
| 463 |
$form->{follow_up_due_length} = sum(map({ $_->{due} * 1 } @{ $follow_ups }));
|
|
| 468 | 464 |
} |
| 469 | 465 |
} |
| 470 | 466 |
|
| 471 |
print qq| |
|
| 472 |
|
|
| 473 |
$follow_ups_block |
|
| 474 |
|
|
| 475 |
<input name=gldate type=hidden value="| . Q($form->{gldate}) . qq|">
|
|
| 476 |
|
|
| 477 |
<input name=callback type=hidden value="$form->{callback}">
|
|
| 478 |
| |
|
| 479 |
. $cgi->hidden('-name' => 'draft_id', '-default' => [$form->{draft_id}])
|
|
| 480 |
. $cgi->hidden('-name' => 'draft_description', '-default' => [$form->{draft_description}])
|
|
| 481 |
. qq| |
|
| 482 |
|
|
| 483 |
<br> |
|
| 484 |
|; |
|
| 485 |
|
|
| 486 |
if (!$form->{id} && $form->{draft_id}) {
|
|
| 487 |
print(NTI($cgi->checkbox('-name' => 'remove_draft', '-id' => 'remove_draft',
|
|
| 488 |
'-value' => 1, '-checked' => $form->{remove_draft},
|
|
| 489 |
'-label' => '')) . |
|
| 490 |
qq| <label for="remove_draft">| . |
|
| 491 |
$locale->text("Remove draft when posting") .
|
|
| 492 |
qq|</label><br>|); |
|
| 493 |
} |
|
| 494 |
|
|
| 495 |
$transdate = $form->datetonum($form->{transdate}, \%myconfig);
|
|
| 496 |
$closedto = $form->datetonum($form->{closedto}, \%myconfig);
|
|
| 467 |
my $transdate = $form->datetonum($form->{transdate}, \%myconfig);
|
|
| 468 |
my $closedto = $form->datetonum($form->{closedto}, \%myconfig);
|
|
| 497 | 469 |
|
| 498 |
print qq|<input class="submit" type="submit" name="action" id="update_button" value="| . $locale->text('Update') . qq|">\n|;
|
|
| 470 |
$form->{is_closed} = $transdate <= $closedto;
|
|
| 499 | 471 |
|
| 500 | 472 |
# ToDO: - insert a global check for stornos, so that a storno is only possible a limited time after saving it |
| 501 |
print qq| <input class=submit type=submit name=action value="| . $locale->text('Storno') . qq|"> |
|
|
| 502 |
if ($form->{id} && !IS->has_storno(\%myconfig, $form, 'ar') && !IS->is_storno(\%myconfig, $form, 'ar') && (($form->{totalpaid} == 0) || ($form->{totalpaid} eq "")));
|
|
| 503 |
|
|
| 504 |
if ($form->{id}) {
|
|
| 505 |
if ($form->{radier}) {
|
|
| 506 |
print qq| |
|
| 507 |
<input class=submit type=submit name=action value="| . $locale->text('Post') . qq|">
|
|
| 508 |
<input class=submit type=submit name=action value="| . $locale->text('Delete') . qq|"> |;
|
|
| 509 |
} |
|
| 510 |
if ($transdate > $closedto) {
|
|
| 511 |
print qq| |
|
| 512 |
<input class=submit type=submit name=action value="| . $locale->text('Use As New') . qq|"> |;
|
|
| 513 |
} |
|
| 514 |
print qq| |
|
| 515 |
<input class=submit type=submit name=action value="| . $locale->text('Post Payment') . qq|">
|
|
| 516 |
<input type="button" class="submit" onclick="follow_up_window()" value="| |
|
| 517 |
. $locale->text('Follow-Up')
|
|
| 518 |
. qq|"> |; |
|
| 473 |
$form->{show_storno_button} =
|
|
| 474 |
$form->{id} &&
|
|
| 475 |
!IS->has_storno(\%myconfig, $form, 'ar') && |
|
| 476 |
!IS->is_storno(\%myconfig, $form, 'ar') && |
|
| 477 |
($form->{totalpaid} == 0 || $form->{totalpaid} eq "");
|
|
| 519 | 478 |
|
| 520 |
} else {
|
|
| 521 |
if ($transdate > $closedto) {
|
|
| 522 |
print qq| <input class=submit type=submit name=action value="| . $locale->text('Post') . qq|"> | .
|
|
| 523 |
NTI($cgi->submit('-name' => 'action', '-value' => $locale->text('Save draft'), '-class' => 'submit'));
|
|
| 524 |
} |
|
| 525 |
} |
|
| 479 |
$form->{show_mark_as_paid_button} = $form->{id} && $::instance_conf->get_ar_show_mark_as_paid();
|
|
| 526 | 480 |
|
| 527 |
# button for saving history |
|
| 528 |
if($form->{id} ne "") {
|
|
| 529 |
print qq| <input type=button class=submit onclick=set_history_window($form->{id}); name=history id=history value=| . $locale->text('history') . qq|> |;
|
|
| 530 |
} |
|
| 531 |
# /button for saving history |
|
| 532 |
# mark_as_paid button |
|
| 533 |
if(($form->{id} ne "") && $::instance_conf->get_ar_show_mark_as_paid) {
|
|
| 534 |
print qq|<input type="submit" class="submit" name="action" value="| |
|
| 535 |
. $locale->text('mark as paid') . qq|">|;
|
|
| 536 |
} |
|
| 537 |
# /mark_as_paid button |
|
| 538 |
|
|
| 539 |
print " |
|
| 540 |
</form> |
|
| 541 |
"; |
|
| 481 |
print $::form->parse_html_template('ar/form_footer');
|
|
| 542 | 482 |
|
| 543 | 483 |
$main::lxdebug->leave_sub(); |
| 544 | 484 |
} |
Auch abrufbar als: Unified diff
HTML aus der Funktion bin/ap.pl:form_footer in ein Template übertragen.