projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
bank_transactions.t: Anzahl Testfälle korrigiert
[kivitendo-erp.git]
/
SL
/
DB
/
Helper
/
IBANValidation.pm
diff --git
a/SL/DB/Helper/IBANValidation.pm
b/SL/DB/Helper/IBANValidation.pm
index
1336c83
..
bc4cbf4
100644
(file)
--- a/
SL/DB/Helper/IBANValidation.pm
+++ b/
SL/DB/Helper/IBANValidation.pm
@@
-6,7
+6,7
@@
use Algorithm::CheckDigits ();
use Carp;
use SL::Locale::String qw(t8);
use Carp;
use SL::Locale::String qw(t8);
-my $_validat
e
r;
+my $_validat
o
r;
my %_countries = (
AT => { len => 20, name => t8('Austria') },
BE => { len => 16, name => t8('Belgium') },
my %_countries = (
AT => { len => 20, name => t8('Austria') },
BE => { len => 16, name => t8('Belgium') },
@@
-29,9
+29,9
@@
sub _validate {
return () unless length($iban);
return () unless length($iban);
- $_validat
e
r //= Algorithm::CheckDigits::CheckDigits('iban');
+ $_validat
o
r //= Algorithm::CheckDigits::CheckDigits('iban');
- return ($::locale->text("The value '#1' is not a valid IBAN.", $iban)) if !$_validat
e
r->is_valid($iban);
+ return ($::locale->text("The value '#1' is not a valid IBAN.", $iban)) if !$_validat
o
r->is_valid($iban);
my $country = $_countries{substr($iban, 0, 2)};
my $country = $_countries{substr($iban, 0, 2)};