X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fedit%2Fprocess%2Frate.cgi;fp=httemplate%2Fedit%2Fprocess%2Frate.cgi;h=0000000000000000000000000000000000000000;hp=04ff5f8f77099f33956db9c8266053dabb47a5ad;hb=2f41d7382dac4f151de86ce06ad9846c89f56791;hpb=188b48a07be463b5c932fec6b65762bbad2d5482 diff --git a/httemplate/edit/process/rate.cgi b/httemplate/edit/process/rate.cgi deleted file mode 100755 index 04ff5f8f7..000000000 --- a/httemplate/edit/process/rate.cgi +++ /dev/null @@ -1,37 +0,0 @@ -<% - -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"); -} - -%>