Revision 69a27305
Von Steven Schubiger vor mehr als 2 Jahren hinzugefügt
| SL/Helper/QrBill.pm | ||
|---|---|---|
| 119 | 119 |
'reference number data' => [ |
| 120 | 120 |
[ 'type', qr{^(?:QRR|NON)$} ],
|
| 121 | 121 |
], |
| 122 |
additional => {
|
|
| 123 |
'qr_iban' => qr{^.{4}3[01][0-9]{3}.{12}$},
|
|
| 124 |
}, |
|
| 122 | 125 |
); |
| 123 | 126 |
|
| 124 | 127 |
my $group = 'biller information'; |
| ... | ... | |
| 174 | 177 |
$check_re->($group, $ref_nr_data, @$re); |
| 175 | 178 |
} |
| 176 | 179 |
$check_re->($group, $ref_nr_data, 'ref_number', $ref_nr_regexes{$ref_nr_data->{type}});
|
| 180 |
|
|
| 181 |
$group = 'biller information'; |
|
| 182 |
if ($ref_nr_data->{type} eq 'QRR') {
|
|
| 183 |
$check_re->($group, $biller_information, 'iban', $regexes{additional}->{qr_iban});
|
|
| 184 |
} |
|
| 177 | 185 |
} |
| 178 | 186 |
|
| 179 | 187 |
sub generate {
|
Auch abrufbar als: Unified diff
Swiss QR-Bill: QrBill.pm: Prüfe QR-IBANs auf Gültigkeit