diff options
author | ivan <ivan> | 2008-01-13 21:35:54 +0000 |
---|---|---|
committer | ivan <ivan> | 2008-01-13 21:35:54 +0000 |
commit | 0930d22ffc440f80c1b222b2e750cadbabd9e8f6 (patch) | |
tree | 59d6738ed4c685cd9bec804e9d3f661f4f37d72c /httemplate/edit/process/domain_record.cgi | |
parent | f49f11d4c3c4ba9480cc5c9acfaa606a5ba73ad1 (diff) |
ACLs
Diffstat (limited to 'httemplate/edit/process/domain_record.cgi')
-rwxr-xr-x | httemplate/edit/process/domain_record.cgi | 54 |
1 files changed, 24 insertions, 30 deletions
diff --git a/httemplate/edit/process/domain_record.cgi b/httemplate/edit/process/domain_record.cgi index daf35ad..2e427e4 100755 --- a/httemplate/edit/process/domain_record.cgi +++ b/httemplate/edit/process/domain_record.cgi @@ -1,36 +1,30 @@ -% -% -%my $recnum = $cgi->param('recnum'); -% -%my $old = qsearchs('agent',{'recnum'=>$recnum}) if $recnum; -% -%my $new = new FS::domain_record ( { -% map { -% $_, scalar($cgi->param($_)); -% } fields('domain_record') -%} ); -% -%my $error; -%if ( $recnum ) { -% $error=$new->replace($old); -%} else { -% $error=$new->insert; -% $recnum=$new->getfield('recnum'); -%} -% %if ( $error ) { -%# $cgi->param('error', $error); -%# print $cgi->redirect(popurl(2). "agent.cgi?". $cgi->query_string ); -% #no edit screen to send them back to -% - -<!-- mason kludge --> -% % errorpage($error); %} else { % my $svcnum = $new->svcnum; -% print $cgi->redirect(popurl(3). "view/svc_domain.cgi?$svcnum"); +<% $cgi->redirect(popurl(3). "view/svc_domain.cgi?$svcnum") %> %} -% -% +<%init> + +die "access denied" + unless $FS::CurrentUser::CurrentUser->access_right('Edit domain nameservice'); + +my $recnum = $cgi->param('recnum'); + +my $old = qsearchs('agent',{'recnum'=>$recnum}) if $recnum; + +my $new = new FS::domain_record ( { + map { + $_, scalar($cgi->param($_)); + } fields('domain_record') +} ); + +my $error; +if ( $recnum ) { + $error=$new->replace($old); +} else { + $error=$new->insert; + $recnum=$new->getfield('recnum'); +} +</%init> |