X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;ds=sidebyside;f=httemplate%2Fedit%2Fprocess%2Fpart_svc.cgi;h=65de3fc6c7eee369fae1123d8835b6f4e5ad8afd;hb=1fc8addc56f8daf12397da568eb1ac1b27fd3984;hp=093d86a75313a236b6b92cc300537af38474b9da;hpb=67e59b7ab85227889ca127b875b4138f018c844d;p=freeside.git diff --git a/httemplate/edit/process/part_svc.cgi b/httemplate/edit/process/part_svc.cgi index 093d86a75..65de3fc6c 100755 --- a/httemplate/edit/process/part_svc.cgi +++ b/httemplate/edit/process/part_svc.cgi @@ -1,29 +1,9 @@ -<% +<% $server->process %> +<%init> -my $svcpart = $cgi->param('svcpart'); +die "access denied" + unless $FS::CurrentUser::CurrentUser->access_right('Configuration'); -my $old = qsearchs('part_svc',{'svcpart'=>$svcpart}) if $svcpart; +my $server = new FS::UI::Web::JSRPC 'FS::part_svc::process', $cgi; -my $new = new FS::part_svc ( { - map { - $_, scalar($cgi->param($_)); -# } qw(svcpart svc svcdb) - } fields('part_svc') -} ); - -my $error; -if ( $svcpart ) { - $error = $new->replace($old); -} else { - $error = $new->insert; - $svcpart=$new->getfield('svcpart'); -} - -if ( $error ) { - $cgi->param('error', $error); - print $cgi->redirect(popurl(2), "part_svc.cgi?". $cgi->query_string ); -} else { - print $cgi->redirect(popurl(3)."browse/part_svc.cgi"); -} - -%> +