diff options
| author | ivan <ivan> | 2001-09-02 04:51:11 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2001-09-02 04:51:11 +0000 |
| commit | 9b81123e5ff5825d2c3c000432e4dd18b5fd764f (patch) | |
| tree | 5af76c3167f5502b0b55c88c1ad92c470f3bf547 | |
| parent | f1ee95396defc991301ac758b71bdda9df82984e (diff) | |
better error msgs
| -rw-r--r-- | FS/FS/cust_svc.pm | 5 | ||||
| -rw-r--r-- | FS/FS/svc_acct.pm | 5 |
2 files changed, 6 insertions, 4 deletions
diff --git a/FS/FS/cust_svc.pm b/FS/FS/cust_svc.pm index 1708b1ce3..77151b80e 100644 --- a/FS/FS/cust_svc.pm +++ b/FS/FS/cust_svc.pm @@ -122,7 +122,8 @@ sub label { my $self = shift; my $part_svc = qsearchs( 'part_svc', { 'svcpart' => $self->svcpart } ); my $svcdb = $part_svc->svcdb; - my $svc_x = qsearchs( $svcdb, { 'svcnum' => $self->svcnum } ); + my $svc_x = qsearchs( $svcdb, { 'svcnum' => $self->svcnum } ) + or die "can't find $svcdb.svcnum ". $self->svcnum; my $svc = $part_svc->svc; my $tag; if ( $svcdb eq 'svc_acct' ) { @@ -154,7 +155,7 @@ sub label { =head1 VERSION -$Id: cust_svc.pm,v 1.3 2001-08-20 11:18:20 ivan Exp $ +$Id: cust_svc.pm,v 1.4 2001-09-02 04:51:11 ivan Exp $ =head1 BUGS diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm index 9c95b219e..7e27fd859 100644 --- a/FS/FS/svc_acct.pm +++ b/FS/FS/svc_acct.pm @@ -610,7 +610,8 @@ Returns the domain associated with this account. sub domain { my $self = shift; if ( $self->domsvc ) { - my $svc_domain = qsearchs( 'svc_domain', { 'svcnum' => $self->domsvc } ); + my $svc_domain = qsearchs( 'svc_domain', { 'svcnum' => $self->domsvc } ) + or die "no svc_domain.svcnum for svc_acct.domsvc ". $self->domsvc; $svc_domain->domain; } else { $mydomain or die "svc_acct.domsvc is null and no legacy domain config file"; @@ -632,7 +633,7 @@ sub email { =head1 VERSION -$Id: svc_acct.pm,v 1.28 2001-08-21 03:03:36 ivan Exp $ +$Id: svc_acct.pm,v 1.29 2001-09-02 04:51:11 ivan Exp $ =head1 BUGS |