[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.67, Thu Apr 7 02:57:19 2005 UTC revision 1.68, Thu Apr 7 04:54:02 2005 UTC
# Line 641  Line 641 
641        @$peg_index_data = @temp;        @$peg_index_data = @temp;
642      }      }
643    
   
644      # GJO version with separate submit buttons      # GJO version with separate submit buttons
645    
646      if ( $cgi->param('korgs') && $cgi->param('korgs') =~ /\((\d+\.*\d*)\)/      if ( $cgi->param('korgs') && $cgi->param('korgs') =~ /\((\d+\.*\d*)\)/
# Line 662  Line 661 
661          push( @$html, $cgi->start_form( -method => 'post',          push( @$html, $cgi->start_form( -method => 'post',
662                                          -target => "window$$",                                          -target => "window$$",
663                                          -action => 'fid_checked.cgi',                                          -action => 'fid_checked.cgi',
664                                          -name   => 'found_pegs',                                          -name   => 'found_pegs'
665                                        ),                                        ),
666                        $cgi->hidden(-name => 'user', -value => $user),                        $cgi->hidden(-name => 'user', -value => $user),
667                        "For Selected (checked) sequences: ",                        "For Selected (checked) sequences: ",
668                        $cgi->submit('get sequences'),                        $cgi->submit('get sequences'),
669                        $cgi->submit('view annotations'),                        $cgi->submit('view annotations'),
670                        $cgi->submit('assign/annotate'),                        $cgi->submit('assign/annotate'),
671                          $cgi->param('SPROUT') ? () : $cgi->submit('view similarities'),
672                        $cgi->br, $cgi->br                        $cgi->br, $cgi->br
673              );              );
674    
# Line 693  Line 693 
693                        "For SELECTed (checked) sequences: ",                        "For SELECTed (checked) sequences: ",
694                        $cgi->submit('get sequences'),                        $cgi->submit('get sequences'),
695                        $cgi->submit('view annotations'),                        $cgi->submit('view annotations'),
696                          $cgi->submit('assign/annotate'),
697                          $cgi->param('SPROUT') ? () : $cgi->submit('view similarities'),
698                        $cgi->br,                        $cgi->br,
699                        $cgi->end_form                        $cgi->end_form
700              );              );

Legend:
Removed from v.1.67  
changed lines
  Added in v.1.68

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3