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

Diff of /FigWebServices/index.cgi

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

revision 1.20, Fri Mar 5 19:18:37 2004 UTC revision 1.21, Fri Mar 19 21:58:31 2004 UTC
# Line 29  Line 29 
29    
30  my $html = [];  my $html = [];
31  my @ver = `cat $FIG_Config::fig_disk/CURRENT_RELEASE`;  my @ver = `cat $FIG_Config::fig_disk/CURRENT_RELEASE`;
32  chop $ver[0];  chomp $ver[0];
33  my $p2p_url = &FIG::cgi_url . "/p2p/seed_update_page.cgi";  my $p2p_url = "p2p/seed_update_page.cgi";
34  push(@$html,  push(@$html,
35          "You are currently running SEED version <b>$ver[0]</b><br>",          "You are currently running SEED version <b>$ver[0]</b><br>",
36          "To start a peer-to-peer update, <a href=$p2p_url>click here</a><br>\n"          "To start a peer-to-peer update, <a href=$p2p_url>click here</a><br>\n"
# Line 277  Line 277 
277                        $cgi->hidden(-name => 'user',    -value => $user),                        $cgi->hidden(-name => 'user',    -value => $user),
278                        $cgi->hidden(-name => 'pattern', -value => $pattern),                        $cgi->hidden(-name => 'pattern', -value => $pattern),
279                        $cgi->hidden(-name => 'maxpeg',  -value => $maxpeg),                        $cgi->hidden(-name => 'maxpeg',  -value => $maxpeg),
280                        $cgi->hidden(-name => 'maxrole', -value => $maxpeg),                        $cgi->hidden(-name => 'maxrole', -value => $maxrole),
                       $cgi->hidden(-name => 'maxpeg',  -value => $maxrole),  
281                        $cgi->hidden(-name => 'Search',  -value => 'Search'),                        $cgi->hidden(-name => 'Search',  -value => 'Search'),
282                        $cgi->submit( $check_all ? 'Deselect all' : 'Select all'),                        $cgi->submit( $check_all ? 'Deselect all' : 'Select all'),
283                        $cgi->end_form                        $cgi->end_form
# Line 289  Line 288 
288                                          -action => 'fid_checked.cgi'                                          -action => 'fid_checked.cgi'
289                                        ),                                        ),
290                        $cgi->hidden(-name => 'user', -value => $user),                        $cgi->hidden(-name => 'user', -value => $user),
291                        "For SELECTed (checked) sequences: ",                        "For Selected (checked) sequences: ",
292                        $cgi->submit('get sequences'),                        $cgi->submit('get sequences'),
293                        $cgi->submit('view annotations'),                        $cgi->submit('view annotations'),
294                        $cgi->br, $cgi->br                        $cgi->br, $cgi->br
# Line 344  Line 343 
343    
344      my($peg,$gs,$aliases,@funcs) = @$entry;      my($peg,$gs,$aliases,@funcs) = @$entry;
345    
346  #   $gs =~ s/\s+\d+$//;   # What is this???      $gs =~ s/\s+\d+$//;   # Org name comes with taxon_id appended (why?) -- GJO
   
     my $user = $cgi->param('user');  
     $user = $user ? $user : "";  
347    
348      @funcs = map { $_ =~ s/^function:\s*//; $_ } @funcs;      @funcs = map { $_ =~ s/^function:\s*//; $_ } @funcs;
349    
# Line 360  Line 356 
356          $aliases = "";          $aliases = "";
357      }      }
358    
359        my $user = $cgi->param('user');
360        $user = $user ? $user : "";
361    
362      if ($user)      if ($user)
363      {      {
364          for ($i=0; ($i < @funcs) && ($funcs[$i] !~ /\#$user/); $i++) {}          for ($i=0; ($i < @funcs) && ($funcs[$i] !~ /\#$user/); $i++) {}
# Line 368  Line 367 
367              ($function,$who) = split(/\#/,$funcs[$i]);              ($function,$who) = split(/\#/,$funcs[$i]);
368          }          }
369      }      }
370    
371      if (! $function)      if (! $function)
372      {      {
373          for ($i=0; ($i < @funcs) && ($funcs[$i] !~ /\#master/); $i++) {}          for ($i=0; ($i < @funcs) && ($funcs[$i] !~ /\#master/); $i++) {}
# Line 381  Line 381 
381      {      {
382          ($function,$who) = split(/\#/,$funcs[0]);          ($function,$who) = split(/\#/,$funcs[0]);
383      }      }
384      my $box = "<input type=\"checkbox\" name=\"checked\" value=\"$peg\""      my $box = "<input type=checkbox name=checked value=\"$peg\""
385              . ($checked ? "checked=1" : "")              . ($checked ? "checked=1" : "")
386              . ">";              . ">";
387      return [ $box, &HTML::fid_link($cgi,$peg), $gs, $aliases, $function, $who ];      return [ $box, &HTML::fid_link($cgi,$peg), $gs, $aliases, $function, $who ];
# Line 427  Line 427 
427                  $beg = $2;                  $beg = $2;
428                  $end = $3;                  $end = $3;
429                  $string = $out[$i+1];                  $string = $out[$i+1];
430                  chop $string;                  chomp $string;
431                  push( @$tab, [ &HTML::fid_link($cgi,$peg,1),                  push( @$tab, [ &HTML::fid_link($cgi,$peg,1),
432                                 $beg,                                 $beg,
433                                 $end,                                 $end,
# Line 480  Line 480 
480                  $beg = $2;                  $beg = $2;
481                  $end = $3;                  $end = $3;
482                  $string = $out[$i+1];                  $string = $out[$i+1];
483                  chop $string;                  chomp $string;
484                  push(@$tab,[$contig,$beg,$end,$string]);                  push(@$tab,[$contig,$beg,$end,$string]);
485              }              }
486          }          }

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3