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

Diff of /FigWebServices/pir.cgi

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

revision 1.23, Sun Apr 3 19:11:11 2005 UTC revision 1.24, Sun Apr 3 19:25:21 2005 UTC
# Line 63  Line 63 
63  # make sure that we read the file at the beginning  # make sure that we read the file at the beginning
64  my ($pegbypir, $pirid) =&read_pir_file("initial");  my ($pegbypir, $pirid) =&read_pir_file("initial");
65    
 # if we are going to update the data, we do that and then we present the blank form with the new data  
 # this will also reset $pegbypir and $pirid  
 if ($cgi->param('submit') =~ m/^Update/) {  
  # this should catch Update Data and Updata Anyway  
  ($html, $pegbypir, $pirid)=&update_data($html);  
 }  
   
   
66    
67    
68  if ($cgi->param('submit') eq "Tabulate summary") {  if ($cgi->param('submit') eq "Tabulate summary") {
69   $html=&table_annotations($html, $pegbypir, $pirid);   $html=&table_annotations($html, $pegbypir, $pirid);
70   push @$html, $cgi->p({class=>"diagnostic"}, ("\n<small>Generating this table took approximately " . (time-$^T) . " seconds\n</small>"));   push @$html, $cgi->p({class=>"diagnostic"}, ("\n<small>Generating this table took approximately " . (time-$^T) . " seconds\n</small>"));
71  }  }
72    elsif ($cgi->param('submit') =~ m/^Update/) {
73     # this should catch Update Data and Updata Anyway
74     $html=&update_data($html);
75    }
76  elsif ($cgi->param('submit') eq "Check for updates") {  elsif ($cgi->param('submit') eq "Check for updates") {
77   $html=&check_updates($html);   $html=&check_updates($html);
78   push @$html, $cgi->p({class=>"diagnostic"}, ("\n<small>Checking for updates took approximately " . (time-$^T) . " seconds\n</small>"));   push @$html, $cgi->p({class=>"diagnostic"}, ("\n<small>Checking for updates took approximately " . (time-$^T) . " seconds\n</small>"));
# Line 383  Line 379 
379   my $bkj=$fig->run_in_background(sub   my $bkj=$fig->run_in_background(sub
380     {     {
381       print "Loading new PIR superfamily data\n";       print "Loading new PIR superfamily data\n";
382       system("load_pirsf");       system("load_pirsf 1");
383       print "Complete\n";       print "Complete\n";
384     }     }
385   );   );
386    
387   push @$html, "<h2 style=\"background: red\">Downloading and installing new data has started in the background but will likely take some time.<br />\n",   push @$html, "<h2>Downloading and installing new data has started</h2>",
388      "The job has an ID of $bkj, and you can check it out from the <A href=\"/FIG/seed_ctl.cgi\">SEED Control Panel</a></h2>\n";      "<p>The job has started in the background but will likely take some time.<br />\n",
389        "The job has an ID of $bkj, and you can check it out from the <A href=\"/FIG/seed_ctl.cgi\">SEED Control Panel</a></p>\n",
390        "<p>You should not use the PIR superfamilies while the job is runnning</p>\n";
391    
392    
393   return $html;   return $html;
394  }  }

Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3