X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2Fprocess%2Fpart_svc.cgi;h=b92b62739228d2a0d6011e341d722b8670f131b6;hb=d5cab3c80bef3d7e2c538e7488af1f3fb0008af9;hp=4c972e4d7c4283d6160637c972bce45c5bd54e67;hpb=51984ac3d3da3006809c6866fdecd4ad83610731;p=freeside.git diff --git a/httemplate/edit/process/part_svc.cgi b/httemplate/edit/process/part_svc.cgi index 4c972e4d7..b92b62739 100755 --- a/httemplate/edit/process/part_svc.cgi +++ b/httemplate/edit/process/part_svc.cgi @@ -1,30 +1,3 @@ <% - -my $svcpart = $cgi->param('svcpart'); - -my $old = qsearchs('part_svc',{'svcpart'=>$svcpart}) if $svcpart; - -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); - $Response->Redirect(popurl(2). "part_svc.cgi?". $cgi->query_string ); -} else { - warn "redirecting to ". popurl(3)."browse/part_svc.cgi via $Response"; - $Response->Redirect(popurl(3)."browse/part_svc.cgi"); -} - -%> + my $server = new FS::UI::Web::JSRPC 'FS::part_svc::process', $cgi; +%><%= $server->process %>