X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fcust_pay_batch.pm;h=0576cbefcfc95836427852fb74c876c78af5c61d;hp=7c5c6c40457b43345d6b978dbb46902bfbb544b8;hb=b6449417b8af1065a6e58f5cab11d63b33cbd2f9;hpb=387f0b6a7ab855203fa88c08d1cb85ccb976e526

diff --git a/FS/FS/cust_pay_batch.pm b/FS/FS/cust_pay_batch.pm
index 7c5c6c404..0576cbefc 100644
--- a/FS/FS/cust_pay_batch.pm
+++ b/FS/FS/cust_pay_batch.pm
@@ -176,7 +176,7 @@ sub check {
     or return "Illegal zip: ". $self->zip;
   $self->zip($1);
 
-  $self->country =~ /^(\w\w)$/ or return "Illegal \w\wy";
+  $self->country =~ /^(\w\w)$/ or return "Illegal country: ". $self->country;
   $self->country($1);
 
   #check invnum, custnum, ?
@@ -188,7 +188,7 @@ sub check {
 
 =head1 VERSION
 
-$Id: cust_pay_batch.pm,v 1.1 1999-08-04 09:03:53 ivan Exp $
+$Id: cust_pay_batch.pm,v 1.2 2000-06-17 21:48:05 ivan Exp $
 
 =head1 BUGS