X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fsvc_domain.pm;h=fcfcfa955a9c6ee870f261d71f719b75cd3f92bc;hp=01aa21a6cdb63a438e0d9dc8e7c4c296d9973730;hb=4d513ff5a17bd3b697502b54c9516577a0a8d3e4;hpb=67e59b7ab85227889ca127b875b4138f018c844d

diff --git a/FS/FS/svc_domain.pm b/FS/FS/svc_domain.pm
index 01aa21a6c..fcfcfa955 100644
--- a/FS/FS/svc_domain.pm
+++ b/FS/FS/svc_domain.pm
@@ -336,6 +336,9 @@ 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};
+
   $self->ut_textn('purpose');
 
 }
@@ -478,7 +481,7 @@ sub submit_internic {
 
 =head1 VERSION
 
-$Id: svc_domain.pm,v 1.12 2001-06-03 17:22:52 ivan Exp $
+$Id: svc_domain.pm,v 1.13 2001-08-12 19:41:24 jeff Exp $
 
 =head1 BUGS