better error msgs

diff --git a/FS/FS/cust_svc.pm b/FS/FS/cust_svc.pm
index 1708b1c..77151b8 100644 (file)
--- 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 9c95b21..7e27fd8 100644 (file)
--- 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