Revision c14dff08
Von Cem Aydin vor mehr als 1 Jahr hinzugefügt
| bin/mozilla/is.pl | ||
|---|---|---|
| 654 | 654 |
$TMPL_VAR{creditwarning} = ($form->{creditlimit} != 0) && ($form->{creditremaining} < 0) && !$form->{update};
|
| 655 | 655 |
$TMPL_VAR{is_credit_remaining_negativ} = $form->{creditremaining} =~ /-/;
|
| 656 | 656 |
|
| 657 |
# qr reference |
|
| 658 |
my $has_qr_reference = $::instance_conf->get_create_qrbill_invoices == 1 && |
|
| 659 |
$form->{formname} eq 'invoice' ? 1 : 0;
|
|
| 660 |
$TMPL_VAR{has_qr_reference} = $has_qr_reference;
|
|
| 657 |
# qr reference
|
|
| 658 |
my $has_qr_reference = $::instance_conf->get_create_qrbill_invoices == 1 &&
|
|
| 659 |
$form->{formname} eq 'invoice' ? 1 : 0;
|
|
| 660 |
$TMPL_VAR{has_qr_reference} = $has_qr_reference;
|
|
| 661 | 661 |
|
| 662 |
if ($has_qr_reference && defined $form->{qr_reference}) {
|
|
| 663 |
$TMPL_VAR{qr_reference_formatted} = get_ref_number_formatted($form->{qr_reference});
|
|
| 664 |
} |
|
| 662 |
if ($has_qr_reference && defined $form->{qr_reference}) {
|
|
| 663 |
$TMPL_VAR{qr_reference_formatted} = get_ref_number_formatted($form->{qr_reference});
|
|
| 664 |
}
|
|
| 665 | 665 |
|
| 666 |
# set option selected |
|
| 666 |
# set option selected
|
|
| 667 | 667 |
foreach my $item (qw(AR)) {
|
| 668 | 668 |
$form->{"select$item"} =~ s/ selected//;
|
| 669 | 669 |
$form->{"select$item"} =~ s/option>\Q$form->{$item}\E/option selected>$form->{$item}/;
|
Auch abrufbar als: Unified diff
is.pl Einrückung korrigiert