From 48ba2845d0119c56971d5b724661aa37e73b49dd Mon Sep 17 00:00:00 2001 From: ivan Date: Sat, 20 Nov 2004 17:26:56 +0000 Subject: first pass at VoIP rating --- httemplate/edit/process/rate.cgi | 37 +++++++++++++++++++++++++++++++++++++ 1 file changed, 37 insertions(+) create mode 100755 httemplate/edit/process/rate.cgi (limited to 'httemplate/edit/process/rate.cgi') diff --git a/httemplate/edit/process/rate.cgi b/httemplate/edit/process/rate.cgi new file mode 100755 index 000000000..04ff5f8f7 --- /dev/null +++ b/httemplate/edit/process/rate.cgi @@ -0,0 +1,37 @@ +<% + +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 From 2f41d7382dac4f151de86ce06ad9846c89f56791 Mon Sep 17 00:00:00 2001 From: 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/rate.cgi') 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 From 6cf964d0dc008621fb30fd2da28e2c44f29c6364 Mon Sep 17 00:00:00 2001 From: ivan Date: Thu, 27 Jan 2005 10:21:18 +0000 Subject: DHTML progress bar for glacial rate adding and editing, closes: Bug#1100 --- httemplate/edit/process/rate.cgi | 4 ++++ 1 file changed, 4 insertions(+) create mode 100755 httemplate/edit/process/rate.cgi (limited to 'httemplate/edit/process/rate.cgi') diff --git a/httemplate/edit/process/rate.cgi b/httemplate/edit/process/rate.cgi new file mode 100755 index 000000000..df7c4672e --- /dev/null +++ b/httemplate/edit/process/rate.cgi @@ -0,0 +1,4 @@ +<% +my $server = new FS::rate::JSRPC; +$server->process; +%> -- cgit v1.2.1 From 3bc7d019313160a918a55cca6ab530f58db3673d Mon Sep 17 00:00:00 2001 From: ivan Date: Fri, 11 Feb 2005 06:44:27 +0000 Subject: generalize progressbar code in preparation for using it wherever needed --- httemplate/edit/process/rate.cgi | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'httemplate/edit/process/rate.cgi') diff --git a/httemplate/edit/process/rate.cgi b/httemplate/edit/process/rate.cgi index df7c4672e..031f8d14e 100755 --- a/httemplate/edit/process/rate.cgi +++ b/httemplate/edit/process/rate.cgi @@ -1,4 +1,7 @@ <% -my $server = new FS::rate::JSRPC; +#my $server = new FS::rate::JSRPC; +#$server->process; +my $server = new FS::UI::Web::JSRPC 'FS::rate::process'; +###wtf###$server->start_job; $server->process; %> -- cgit v1.2.1 From d5de3968350034bfc4b9e1c3fb163e6ee1ca5fb5 Mon Sep 17 00:00:00 2001 From: ivan Date: Thu, 17 Feb 2005 01:37:02 +0000 Subject: generalize progressbar code in preparation for using it wherever needed --- httemplate/edit/process/rate.cgi | 3 --- 1 file changed, 3 deletions(-) (limited to 'httemplate/edit/process/rate.cgi') diff --git a/httemplate/edit/process/rate.cgi b/httemplate/edit/process/rate.cgi index 031f8d14e..005caf90a 100755 --- a/httemplate/edit/process/rate.cgi +++ b/httemplate/edit/process/rate.cgi @@ -1,7 +1,4 @@ <% -#my $server = new FS::rate::JSRPC; -#$server->process; my $server = new FS::UI::Web::JSRPC 'FS::rate::process'; -###wtf###$server->start_job; $server->process; %> -- cgit v1.2.1 From 76161f1a2ae0f96470bed4089b00eff5abb16cff Mon Sep 17 00:00:00 2001 From: ivan Date: Sun, 25 Sep 2005 08:13:36 +0000 Subject: get rid of JSRS iframe foo for progress bar, use XMLHTTPRequest instead. really should have done that in the first place. JSON will wait until another day... --- httemplate/edit/process/rate.cgi | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'httemplate/edit/process/rate.cgi') diff --git a/httemplate/edit/process/rate.cgi b/httemplate/edit/process/rate.cgi index 005caf90a..0030b5754 100755 --- a/httemplate/edit/process/rate.cgi +++ b/httemplate/edit/process/rate.cgi @@ -1,4 +1,3 @@ <% -my $server = new FS::UI::Web::JSRPC 'FS::rate::process'; -$server->process; -%> + my $server = new FS::UI::Web::JSRPC 'FS::rate::process'; +%><%= $server->process %> -- cgit v1.2.1 From fbff7663ff6fb115bcd4dae2eb991b90339bf68d Mon Sep 17 00:00:00 2001 From: ivan Date: Mon, 24 Oct 2005 11:56:35 +0000 Subject: fix rate plan editing with new xmlhttp progressbar - use POST instead of GET. also optimize SQL on rate search screen --- httemplate/edit/process/rate.cgi | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'httemplate/edit/process/rate.cgi') diff --git a/httemplate/edit/process/rate.cgi b/httemplate/edit/process/rate.cgi index 0030b5754..87c082d64 100755 --- a/httemplate/edit/process/rate.cgi +++ b/httemplate/edit/process/rate.cgi @@ -1,3 +1,3 @@ <% - my $server = new FS::UI::Web::JSRPC 'FS::rate::process'; + my $server = new FS::UI::Web::JSRPC 'FS::rate::process', $cgi; %><%= $server->process %> -- cgit v1.2.1