$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');
}
=head1 VERSION
-$Id: svc_domain.pm,v 1.12 2001-06-03 17:22:52 ivan Exp $
+$Id: svc_domain.pm,v 1.12.2.1 2001-08-08 17:45:35 jeff Exp $
=head1 BUGS