[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.30, Fri Apr 23 21:49:03 2004 UTC revision 1.31, Mon May 3 17:04:11 2004 UTC
# Line 55  Line 55 
55      push(@$html,@out);      push(@$html,@out);
56  }  }
57  #-----------------------------------------------------------------------  #-----------------------------------------------------------------------
58    #  Align Sequences
59    #-----------------------------------------------------------------------
60    elsif ($cgi->param('Align Sequences'))
61    {
62        my $seqs = $cgi->param('seqids');
63        $seqs =~ s/^\s+//;
64        $seqs =~ s/\s+$//;
65        my @seq_ids = split(/[ \t,;]+/,$seqs);
66        if (@seq_ids < 2)
67        {
68            print $cgi->header;
69            print $cgi->h1("Sorry, you need to specify at least two sequence IDs");
70        }
71        else
72        {
73            $ENV{"REQUEST_METHOD"} = "GET";
74            $_ = join('&checked=',@seq_ids);
75            $ENV{"QUERY_STRING"} = "user=$user&align=1&checked=" . $_;
76            my @out = `./fid_checked.cgi`;
77            print join("",@out);
78        }
79        exit;
80    }
81    #-----------------------------------------------------------------------
82  #  Search (text) || Find Genes in Org that Might Play the Role  #  Search (text) || Find Genes in Org that Might Play the Role
83  #-----------------------------------------------------------------------  #-----------------------------------------------------------------------
84  elsif (($pattern = $cgi->param('pattern')) && ($cgi->param('Search') || $cgi->param('Find Genes in Org that Might Play the Role')))  elsif (($pattern = $cgi->param('pattern')) && ($cgi->param('Search') || $cgi->param('Find Genes in Org that Might Play the Role')))
# Line 322  Line 346 
346                  $cgi->end_form,                  $cgi->end_form,
347           );           );
348    
349        push(@$html,
350                    $cgi->hr,
351                    $cgi->h1('Align Sequences'),
352                    $cgi->start_form(-action => "index.cgi"),
353                    "Enter user: ",
354                    $cgi->textfield(-name => "user", -size => 20), $cgi->br,
355                    $cgi->submit('Align Sequences'),": ",
356                    $cgi->textfield(-name => "seqids", -size => 100),
357                    $cgi->end_form
358             );
359  }  }
360    
361    

Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3