diff options
Diffstat (limited to 'FS/FS/cust_svc.pm')
| -rw-r--r-- | FS/FS/cust_svc.pm | 5 |
1 files changed, 3 insertions, 2 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 |