[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.62, Wed Mar 9 18:08:44 2005 UTC revision 1.63, Sun Mar 13 21:32:38 2005 UTC
# Line 191  Line 191 
191  elsif ( ( $pattern = $cgi->param('pattern') )  elsif ( ( $pattern = $cgi->param('pattern') )
192       && ( $cgi->param('Search')       && ( $cgi->param('Search')
193         || $cgi->param('Search genome selected below')         || $cgi->param('Search genome selected below')
194           || $cgi->param('Search Selected Organisms')
195         || $cgi->param('Find Genes in Org that Might Play the Role')         || $cgi->param('Find Genes in Org that Might Play the Role')
196          )          )
197        )        )
# Line 445  Line 446 
446                    "      <TD>",                    "      <TD>",
447                    $cgi->scrolling_list( -name   => 'korgs',                    $cgi->scrolling_list( -name   => 'korgs',
448                                          -values => [ @orgs ],                                          -values => [ @orgs ],
449                                          -size   => 10                                          -size   => 10,
450                                        ), $cgi->br,                                        ), $cgi->br,
451                    "$n_genomes genomes shown ",                    "$n_genomes genomes shown ",
452                    $cgi->submit( 'Update List' ), $cgi->reset, $cgi->br,                    $cgi->submit( 'Update List' ), $cgi->reset, $cgi->br,
# Line 621  Line 622 
622      # }      # }
623      ## End of added lines      ## End of added lines
624    
625        # RAE version with separate submit buttons and more than one org in korg
626        # this is used by organisms.cgi for group specific searches
627        if ( $cgi->param('korgs') && $cgi->param('Search Selected Organisms')
628           )
629        {
630          my @temp;
631          foreach my $org ($cgi->param('korgs'))
632          {
633             push @temp, grep { $_->[0] =~ /^fig\|$org/ } @$peg_index_data;
634          }
635          @$peg_index_data = @temp;
636        }
637    
638    
639      # GJO version with separate submit buttons      # GJO version with separate submit buttons
640    
641      if ( $cgi->param('korgs') && $cgi->param('korgs') =~ /\((\d+\.*\d*)\)/      if ( $cgi->param('korgs') && $cgi->param('korgs') =~ /\((\d+\.*\d*)\)/
# Line 640  Line 655 
655          #  does not currently do for all options).          #  does not currently do for all options).
656          #  -- GJO          #  -- GJO
657          #          #
658          push( @$html, $cgi->start_form(-action => "index.cgi"),  
659                        $cgi->hidden(-name => 'user',    -value => $user),          # RAE: Added javascript buttons see below. Only two things are needed. The form must have a name parameter, and
660                        $cgi->hidden(-name => 'pattern', -value => $pattern),          # the one line of code for the buttons. Everything else is automatic
661                        $cgi->hidden(-name => 'maxpeg',  -value => $maxpeg),  
662                        $cgi->hidden(-name => 'maxrole', -value => $maxrole),          # push( @$html, $cgi->start_form(-action => "index.cgi"),
663                        $cgi->hidden(-name => 'Search',  -value => 'Search'),          #               $cgi->hidden(-name => 'user',    -value => $user),
664                        $cgi->submit( $check_all ? 'Deselect all' : 'Select all'),          #               $cgi->hidden(-name => 'pattern', -value => $pattern),
665                        $cgi->end_form          #               $cgi->hidden(-name => 'maxpeg',  -value => $maxpeg),
666              );          #               $cgi->hidden(-name => 'maxrole', -value => $maxrole),
667            #               $cgi->hidden(-name => 'Search',  -value => 'Search'),
668            #               $cgi->submit( $check_all ? 'Deselect all' : 'Select all'),
669            #               $cgi->end_form
670            #     );
671    
672    
673    
674          push( @$html, $cgi->start_form( -method => 'post',          push( @$html, $cgi->start_form( -method => 'post',
675                                          -target => "window$$",                                          -target => "window$$",
676                                          -action => 'fid_checked.cgi'                                          -action => 'fid_checked.cgi',
677                                            -name   => 'found_pegs',
678                                        ),                                        ),
679                        $cgi->hidden(-name => 'user', -value => $user),                        $cgi->hidden(-name => 'user', -value => $user),
680                        "For Selected (checked) sequences: ",                        "For Selected (checked) sequences: ",
# Line 662  Line 684 
684                        $cgi->br, $cgi->br                        $cgi->br, $cgi->br
685              );              );
686    
687            # RAE Add the check all/uncheck all boxes.
688            push (@$html, $cgi->br, &HTML::java_buttons("found_pegs", "checked"), $cgi->br);
689    
690          my $n = @$peg_index_data;          my $n = @$peg_index_data;
691          if ($n > $maxpeg)          if ($n > $maxpeg)
692          {          {

Legend:
Removed from v.1.62  
changed lines
  Added in v.1.63

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3