diff options
| author | ivan <ivan> | 1999-04-10 05:27:38 +0000 |
|---|---|---|
| committer | ivan <ivan> | 1999-04-10 05:27:38 +0000 |
| commit | 7f423abd0b553e1f0dd1419adec8735ee2c31df2 (patch) | |
| tree | 9544f9f742c02a189f60c122f52cdda5b39a68ac | |
| parent | 9d68b52edb3bb1f02aeccba86ebad0f6aebc4e6c (diff) | |
display an illegal payby, to assist importing
| -rw-r--r-- | site_perl/cust_main.pm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/site_perl/cust_main.pm b/site_perl/cust_main.pm index 768d77273..838e2091e 100644 --- a/site_perl/cust_main.pm +++ b/site_perl/cust_main.pm @@ -263,7 +263,7 @@ sub check { $self->zip =~ /^\s*(\w[\w\-\s]{3,8}\w)\s*$/ or return "Illegal zip"; $self->zip($1); - $self->payby =~ /^(CARD|BILL|COMP)$/ or return "Illegal payby"; + $self->payby =~ /^(CARD|BILL|COMP)$/ or return "Illegal payby: ". $self->payby; $self->payby($1); if ( $self->payby eq 'CARD' ) { @@ -880,7 +880,7 @@ sub check_invoicing_list { =head1 VERSION -$Id: cust_main.pm,v 1.16 1999-04-07 14:32:19 ivan Exp $ +$Id: cust_main.pm,v 1.17 1999-04-10 05:27:38 ivan Exp $ =head1 BUGS @@ -936,7 +936,10 @@ enable cybercash, cybercash v3 support, don't need to import FS::UID::{datasrc,checkruid} ivan@sisd.com 98-sep-19-21 $Log: cust_main.pm,v $ -Revision 1.16 1999-04-07 14:32:19 ivan +Revision 1.17 1999-04-10 05:27:38 ivan +display an illegal payby, to assist importing + +Revision 1.16 1999/04/07 14:32:19 ivan more &invoicing_list logic to skip searches when there is no custnum Revision 1.15 1999/04/07 13:41:54 ivan |