diff options
Diffstat (limited to 'httemplate/edit/process')
| -rw-r--r-- | httemplate/edit/process/cust_svc.cgi | 2 | ||||
| -rwxr-xr-x | httemplate/edit/process/domain_record.cgi | 2 | ||||
| -rw-r--r-- | httemplate/edit/process/reg_code.cgi | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/httemplate/edit/process/cust_svc.cgi b/httemplate/edit/process/cust_svc.cgi index 3a07d1e7a..e9d5f6238 100644 --- a/httemplate/edit/process/cust_svc.cgi +++ b/httemplate/edit/process/cust_svc.cgi @@ -21,7 +21,7 @@ %if ( $error ) { % #$cgi->param('error', $error); % #print $cgi->redirect(popurl(2). "cust_svc.cgi?". $cgi->query_string ); -% eidiot($error); +% errorpage($error); %} else { % my $svcdb = $new->part_svc->svcdb; % print $cgi->redirect(popurl(3). "view/$svcdb.cgi?$svcnum"); diff --git a/httemplate/edit/process/domain_record.cgi b/httemplate/edit/process/domain_record.cgi index 87bdf6835..daf35ad6d 100755 --- a/httemplate/edit/process/domain_record.cgi +++ b/httemplate/edit/process/domain_record.cgi @@ -26,7 +26,7 @@ <!-- mason kludge --> % -% eidiot($error); +% errorpage($error); %} else { % my $svcnum = $new->svcnum; % print $cgi->redirect(popurl(3). "view/svc_domain.cgi?$svcnum"); diff --git a/httemplate/edit/process/reg_code.cgi b/httemplate/edit/process/reg_code.cgi index 4fdea60fc..d93bb55a2 100644 --- a/httemplate/edit/process/reg_code.cgi +++ b/httemplate/edit/process/reg_code.cgi @@ -1,7 +1,7 @@ % % %$cgi->param('agentnum') =~ /^(\d+)$/ -% or eidiot 'illegal agentnum '. $cgi->param('agentnum'); +% or errorpage('illegal agentnum '. $cgi->param('agentnum')); %my $agentnum = $1; %my $agent = qsearchs('agent', { 'agentnum' => $agentnum } ); % |