[Bio] / FigWebServices / rast_submit_server.cgi Repository:
ViewVC logotype

Diff of /FigWebServices/rast_submit_server.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9, Fri Nov 20 17:54:21 2009 UTC revision 1.11, Thu Apr 1 20:26:24 2010 UTC
# Line 26  Line 26 
26                   status_of_RAST_job                   status_of_RAST_job
27                   kill_RAST_job                   kill_RAST_job
28                   delete_RAST_job                   delete_RAST_job
29                     copy_to_RAST_dir
30                   get_job_metadata                   get_job_metadata
31                  );                  );
32    
# Line 156  Line 157 
157    
158      my $rast_obj = new RAST_submission($rast_dbmaster, $dbmaster, $user_obj);      my $rast_obj = new RAST_submission($rast_dbmaster, $dbmaster, $user_obj);
159    
160        if ($function eq 'copy_to_RAST_dir')
161        {
162            #
163            # For the copy, we pluck the file upload
164            # from the CGI and give it to the handler as well.
165            #
166            my $file = $cgi->upload('file');
167            if (!ref($file))
168            {
169                $file = $cgi->param("file");
170            }
171    
172            my $params = $args[0];
173            $params->{-from} = $file if ref($params) eq 'HASH';
174        }
175    
176      #      #
177      # We handle retrieve in a different manner.      # We handle retrieve in a different manner.
# Line 202  Line 218 
218    
219          if ($@)          if ($@)
220          {          {
221                warn $@;
222              myerror($cgi, '500 error in method invocation', $@);              myerror($cgi, '500 error in method invocation', $@);
223          }          }
224    

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.11

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3