2 % $cgi->param('error', $error);
3 <% $cgi->redirect(popurl(2). "catchall.cgi?". $cgi->query_string ) %>
5 <% $cgi->redirect(popurl(3). "view/svc_domain.cgi?$svcnum") %>
10 unless $FS::CurrentUser::CurrentUser->access_right('Edit domain catchall');
12 $FS::svc_domain::whois_hack=1;
14 $cgi->param('svcnum') =~ /^(\d*)$/ or die "Illegal svcnum!";
17 my $old = qsearchs('svc_domain',{'svcnum'=>$svcnum}) if $svcnum;
19 my $new = new FS::svc_domain ( {
21 ($_, scalar($cgi->param($_)));
22 } ( fields('svc_domain'), qw( pkgnum svcpart ) )
25 $new->setfield('action' => 'M');
29 $error = $new->replace($old);
31 $error = $new->insert;
32 $svcnum = $new->getfield('svcnum');