freeside/FS/FS/UI Web.pm,1.1,1.2

[ivan]

Update of /home/cvs/cvsroot/freeside/FS/FS/UI
In directory pouncequick:/tmp/cvs-serv4181/FS/FS/UI

Modified Files:
	Web.pm 
Log Message:
generalize progressbar code in preparation for using it wherever needed

Index: Web.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/UI/Web.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- Web.pm	11 Feb 2005 06:44:26 -0000	1.1
+++ Web.pm	17 Feb 2005 00:11:29 -0000	1.2
@@ -38,21 +38,14 @@
        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' };
   my $job = new FS::queue { 'job' => $self->{'job'} };
   
   #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);
-
   #warn 'froze string of size '. length(nfreeze(\%param)). " for job args\n"
   #  if $DEBUG;
 
@@ -65,3 +58,8 @@
   }
   
 }
+
+sub get_new_query {
+  FS::UID::cgi();
+}
+