From 2f41d7382dac4f151de86ce06ad9846c89f56791 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Fri, 7 Jan 2005 22:16:50 +0000
Subject: 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

---
 httemplate/edit/process/rate.cgi | 37 -------------------------------------
 1 file changed, 37 deletions(-)
 delete mode 100755 httemplate/edit/process/rate.cgi

(limited to 'httemplate/edit/process')

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");
-}
-
-%>
-- 
cgit v1.2.1