X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Frate.pm;h=f19ebf00231a740a8059f6bcea48afa2a162b823;hb=1755a73ccf8881a132ffd702471f455543871683;hp=7c6a70e8e76ab6797ca2df1737ef747eacc619d3;hpb=3bc7d019313160a918a55cca6ab530f58db3673d;p=freeside.git

diff --git a/FS/FS/rate.pm b/FS/FS/rate.pm
index 7c6a70e8e..f19ebf002 100644
--- a/FS/FS/rate.pm
+++ b/FS/FS/rate.pm
@@ -2,8 +2,6 @@ package FS::rate;
 
 use strict;
 use vars qw( @ISA $DEBUG );
-use Storable qw(thaw);
-use Data::Dumper;
 use FS::Record qw( qsearch qsearchs dbh fields );
 use FS::rate_detail;
 
@@ -309,15 +307,12 @@ Experimental job-queue processor for web interface adds/edits
 
 =cut
 
+use Storable qw(thaw);
+use Data::Dumper;
 use MIME::Base64;
 sub process {
   my $job = shift;
 
-  #my %param = @_;
-
-  #my $param = shift;
-  #my %param = split(/[;=]/, $param);
-
   my $param = thaw(decode_base64(shift));
   warn Dumper($param) if $DEBUG;
 
@@ -372,51 +367,6 @@ sub process {
 
 }
 
-# begin JSRPC code...
-
-package FS::rate::JSRPC;
-use vars qw(@ISA $DEBUG);
-use JavaScript::RPC::Server::CGI;
-use FS::UID;
-@ISA = qw( JavaScript::RPC::Server::CGI );
-$DEBUG = 1;
-
-sub process_rate {
-  my $self = shift;
-
-  my %param = @_;
-  warn "FS::rate::JSRPC::process_rate\n".
-       join('', map "  $_ => $param{$_}\n", keys %param )
-    if $DEBUG;
-
-  #progressbar prototype code...  should be generalized
-  
-  #first get the CGI params shipped off to a job ASAP so an id can be returned
-  #to the caller
-  
-  my $job = new FS::queue { 'job' => 'FS::rate::process' };
-  
-  #too slow to insert all the cgi params as individual args..,?
-  #my $error = $queue->insert('_JOB', $cgi->Vars);
-  
-  #my $bigstring = join(';', map { "$_=". scalar($cgi->param($_)) } $cgi->param );
-  my $bigstring = join(';', map { "$_=". $param{$_} } keys %param );
-  my $error = $job->insert('_JOB', $bigstring);
-
-  if ( $error ) {
-    $error;
-  } else {
-    $job->jobnum;
-  }
-  
-}
-
-sub get_new_query {
-  FS::UID::cgi();
-}
-
-# end JSRPC code...
-
 =head1 BUGS
 
 =head1 SEE ALSO