diff options
| author | ivan <ivan> | 2001-08-12 00:06:33 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2001-08-12 00:06:33 +0000 |
| commit | 6b86dff993093cc34ca370ec8352103a7f3208f8 (patch) | |
| tree | be8546324864156a9798d19172776fda5b84f491 /FS | |
| parent | 3d726debcb197b4304208eb758dc9ede7f619f86 (diff) | |
better error msgs
Diffstat (limited to 'FS')
| -rw-r--r-- | FS/FS/cust_main_invoice.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/FS/FS/cust_main_invoice.pm b/FS/FS/cust_main_invoice.pm index eb0162f0e..61a8f7534 100644 --- a/FS/FS/cust_main_invoice.pm +++ b/FS/FS/cust_main_invoice.pm @@ -133,13 +133,14 @@ sub checkdest { if ( $self->dest eq 'POST' ) { #contemplate our navel } elsif ( $self->dest =~ /^(\d+)$/ ) { - return "Unknown local account (specified by svcnum)" + return "Unknown local account (specified by svcnum: ". $self->dest. ")" unless qsearchs( 'svc_acct', { 'svcnum' => $self->dest } ); } elsif ( $self->dest =~ /^([\w\.\-]+)\@(([\w\.\-]+\.)+\w+)$/ ) { my($user, $domain) = ($1, $2); if ( $domain eq $mydomain ) { my $svc_acct = qsearchs( 'svc_acct', { 'username' => $user } ); - return "Unknown local account (specified literally)" unless $svc_acct; + return "Unknown local account: $user\@$domain (specified literally)" + unless $svc_acct; $svc_acct->svcnum =~ /^(\d+)$/ or die "Non-numeric svcnum?!"; $self->dest($1); } @@ -171,7 +172,7 @@ sub address { =head1 VERSION -$Id: cust_main_invoice.pm,v 1.5 2001-08-11 00:01:39 ivan Exp $ +$Id: cust_main_invoice.pm,v 1.6 2001-08-12 00:06:33 ivan Exp $ =head1 BUGS |