name change: validator statt validater

diff --git a/SL/DB/Helper/IBANValidation.pm b/SL/DB/Helper/IBANValidation.pm
index 1336c835d84deecd87db637f72c6f3cb2367e4e4..bc4cbf4511d061572a2f12d4b3f5163e3d4784e1 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 $_validater;
+my $_validator;

 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);
 

-  $_validater //= Algorithm::CheckDigits::CheckDigits('iban');
+  $_validator //= Algorithm::CheckDigits::CheckDigits('iban');

 
 

-  return ($::locale->text("The value '#1' is not a valid IBAN.", $iban)) if !$_validater->is_valid($iban);
+  return ($::locale->text("The value '#1' is not a valid IBAN.", $iban)) if !$_validator->is_valid($iban);

 
   my $country = $_countries{substr($iban, 0, 2)};
 
 
   my $country = $_countries{substr($iban, 0, 2)};