diff options
| author | ivan <ivan> | 1999-04-10 08:35:14 +0000 |
|---|---|---|
| committer | ivan <ivan> | 1999-04-10 08:35:14 +0000 |
| commit | 315d063dbcc86d90a523db155012da8fcacb2b0d (patch) | |
| tree | d3b42fe985c3fec6595621f3da65a92d149bf962 | |
| parent | 3268e924e5c041114349d0dcda0039d04034d96d (diff) | |
say what the unknown state/county/country are!
| -rw-r--r-- | site_perl/cust_main.pm | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/site_perl/cust_main.pm b/site_perl/cust_main.pm index 10df79015..7dba86a7a 100644 --- a/site_perl/cust_main.pm +++ b/site_perl/cust_main.pm @@ -253,8 +253,8 @@ sub check { 'country' => $self->country, 'state' => '', } ) ) { - return "Unknown state/county/country" - #" state ". $self->state. " county ". $self->county. " country ". $self->country + return "Unknown state/county/country: ". + $self->state. "/". $self->county. "/". $self->country unless qsearchs('cust_main_county',{ 'state' => $self->state, 'county' => $self->county, @@ -885,7 +885,7 @@ sub check_invoicing_list { =head1 VERSION -$Id: cust_main.pm,v 1.19 1999-04-10 07:38:06 ivan Exp $ +$Id: cust_main.pm,v 1.20 1999-04-10 08:35:14 ivan Exp $ =head1 BUGS @@ -941,7 +941,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.19 1999-04-10 07:38:06 ivan +Revision 1.20 1999-04-10 08:35:14 ivan +say what the unknown state/county/country are! + +Revision 1.19 1999/04/10 07:38:06 ivan _all_ check stuff with illegal data return the bad data too, to help debugging Revision 1.18 1999/04/10 06:54:11 ivan |