Revision a3a9ebcd
Von Cem Aydin vor mehr als 2 Jahren hinzugefügt
| SL/Helper/QrBillFunctions.pm | ||
|---|---|---|
|
package SL::Helper::QrBillFunctions;
|
||
|
|
||
|
use List::Util qw(first);
|
||
|
|
||
|
use strict;
|
||
|
use warnings;
|
||
|
|
||
| ... | ... | |
|
|
||
|
my $qr_account;
|
||
|
|
||
|
my $bank_accounts = SL::DB::Manager::BankAccount->get_all;
|
||
|
$qr_account = scalar(@{ $bank_accounts }) == 1 ?
|
||
|
$bank_accounts->[0] :
|
||
|
first { $_->use_for_qrbill } @{ $bank_accounts };
|
||
|
my $bank_accounts = SL::DB::Manager::BankAccount->get_all_sorted;
|
||
|
|
||
|
$qr_account = first { $_->use_for_qrbill } @{ $bank_accounts };
|
||
|
|
||
|
if (!$qr_account) {
|
||
|
$::form->error($::locale->text('No bank account flagged for QRBill usage was found.'));
|
||
| SL/Template/OpenDocument.pm | ||
|---|---|---|
|
# use File::Spec;
|
||
|
# use File::Temp qw(:mktemp);
|
||
|
use IO::File;
|
||
|
use List::Util qw(first);
|
||
|
|
||
|
use strict;
|
||
|
|
||
Auch abrufbar als: Unified diff
Swiss QR-Bill: Fix zu Bankkonto für QR-Rechnung
- fehlendes Modul eingefügt
- nur erstes markiertes Bankkonto berücksichtigen