diff options
author | ivan <ivan> | 2005-01-07 22:16:50 +0000 |
---|---|---|
committer | ivan <ivan> | 2005-01-07 22:16:50 +0000 |
commit | 2f41d7382dac4f151de86ce06ad9846c89f56791 (patch) | |
tree | 6b67bcdf01ea0aaaeabc838089ce02379d635e9b /httemplate/edit/process | |
parent | 188b48a07be463b5c932fec6b65762bbad2d5482 (diff) |
remove separate file for rate processing, causing problems with giant query string, kludge in the non-displayed US-rates, and disable the submit button when pressed
Diffstat (limited to 'httemplate/edit/process')
-rwxr-xr-x | httemplate/edit/process/rate.cgi | 37 |
1 files changed, 0 insertions, 37 deletions
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"); -} - -%> |