X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2Fprocess%2Frate.cgi;h=87c082d6475fc856159ed693a0cfafefc3cc201a;hb=c738a3c4923774b64960aa87fa58bd0751487edb;hp=04ff5f8f77099f33956db9c8266053dabb47a5ad;hpb=f7fd2a3e34da751cbc02bbf215e99c6dc89adc15;p=freeside.git diff --git a/httemplate/edit/process/rate.cgi b/httemplate/edit/process/rate.cgi index 04ff5f8f7..87c082d64 100755 --- a/httemplate/edit/process/rate.cgi +++ b/httemplate/edit/process/rate.cgi @@ -1,37 +1,3 @@ <% - -my $ratenum = $cgi->param('ratenum'); - -my $old = qsearchs('rate', { 'ratenum' => $ratenum } ) if $ratenum; - -my @rate_detail = map { - my $regionnum = $_->regionnum; - new FS::rate_detail { - 'dest_regionnum' => $regionnum, - map { $_ => $cgi->param("$_$regionnum") } - qw( min_included min_charge sec_granularity ) - }; -} qsearch('rate_region', {} ); - -my $new = new FS::rate ( { - map { - $_, scalar($cgi->param($_)); - } fields('rate') -} ); - -my $error; -if ( $ratenum ) { - $error = $new->replace($old, 'rate_detail' => \@rate_detail ); -} else { - $error = $new->insert( 'rate_detail' => \@rate_detail ); - $ratenum = $new->getfield('ratenum'); -} - -if ( $error ) { - $cgi->param('error', $error); - print $cgi->redirect(popurl(2). "rate.cgi?". $cgi->query_string ); -} else { - print $cgi->redirect(popurl(3). "browse/rate.cgi"); -} - -%> + my $server = new FS::UI::Web::JSRPC 'FS::rate::process', $cgi; +%><%= $server->process %>