another pg7.3 fix
authorivan <ivan>
Tue, 11 Mar 2003 11:40:35 +0000 (11:40 +0000)
committerivan <ivan>
Tue, 11 Mar 2003 11:40:35 +0000 (11:40 +0000)
FS/FS/svc_domain.pm

index 0d71b27..3941d6e 100644 (file)
@@ -382,8 +382,10 @@ sub check {
   $recref->{action} =~ /^(M|N)$/ or return "Illegal action";
   $recref->{action} = $1;
 
-  my $svc_acct = qsearchs( 'svc_acct', { 'svcnum' => $recref->{catchall} } );
-  return "Unknown catchall" unless $svc_acct || ! $recref->{catchall};
+  if ( $recref->{catchall} ne '' ) {
+    my $svc_acct = qsearchs( 'svc_acct', { 'svcnum' => $recref->{catchall} } );
+    return "Unknown catchall" unless $svc_acct;
+  }
 
   $self->ut_textn('purpose');