[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.48, Fri Oct 8 22:04:48 2004 UTC revision 1.49, Sat Oct 23 19:51:41 2004 UTC
# Line 1  Line 1 
1    ### start
2    
3  use FIG;  use FIG;
4  my $fig = new FIG;  my $fig = new FIG;
5    
# Line 38  Line 40 
40  if ($cgi->param('Search for Genes Matching an Occurrence Profile or Common to a Set of Organisms'))  if ($cgi->param('Search for Genes Matching an Occurrence Profile or Common to a Set of Organisms'))
41  {  {
42      unshift @$html, "<TITLE>The SEED: Phylogenetic Signatures</TITLE>\n";      unshift @$html, "<TITLE>The SEED: Phylogenetic Signatures</TITLE>\n";
     my $url = $cgi->url;  
43      $ENV{"REQUEST_METHOD"} = "GET";      $ENV{"REQUEST_METHOD"} = "GET";
44      $ENV{"QUERY_STRING"} = "user=$user";      $ENV{"QUERY_STRING"} = "user=$user";
45      my @out = `./sigs.cgi`;      my @out = `./sigs.cgi`;
46      &HTML::trim_output(\@out);      print @out;
47      push(@$html,@out);      exit;
48    }
49    #-----------------------------------------------------------------------
50    #  Statistics for a single organism
51    #-----------------------------------------------------------------------
52    elsif ($cgi->param('statistics'))
53    {
54        @orgs = $cgi->param('korgs');
55        @orgs = map { $_ =~ /\((\d+\.\d+)\)/; $1 } @orgs;
56        if (@orgs != 1)
57        {
58            push(@$html,$cgi->h1('Please select a single organism to get statistcs'));
59        }
60        else
61        {
62            $ENV{"REQUEST_METHOD"} = "GET";
63            $ENV{"QUERY_STRING"} = "user=$user&genome=$orgs[0]";
64            my @out = `./genome_statistcs.cgi`;
65            print @out;
66            exit;
67        }
68  }  }
69  #-----------------------------------------------------------------------  #-----------------------------------------------------------------------
70  #  Align Sequences  #  Align Sequences
# Line 217  Line 238 
238      &show_initial($fig,$cgi,$html);      &show_initial($fig,$cgi,$html);
239  }  }
240  &HTML::show_page($cgi,$html,1);  &HTML::show_page($cgi,$html,1);
241    exit;
242    
243    
244  #==============================================================================  #==============================================================================
# Line 334  Line 356 
356                    "</TD>",                    "</TD>",
357                    "   </TR>\n",                    "   </TR>\n",
358                    "</TABLE>\n",                    "</TABLE>\n",
359                      $cgi->br, $cgi->submit('statistics'),": Select an organism, and this should give relevant statistics",
360                    $cgi->hr);                    $cgi->hr);
361    
362    
363      my @maps = sort map { $map = $_; $name = $fig->map_name($map); "$name ($map)" } $fig->all_maps;      my @maps = sort map { $map = $_; $name = $fig->map_name($map); "$name ($map)" } $fig->all_maps;
364    
365    
366      push( @$html, $cgi->h2('Finding Candidates for a Functional Role'),      push( @$html, $cgi->h2('Finding Candidates for a Functional Role'),
367                  "Make sure that you type the functional role you want to search for in the Search Pattern above",                  "Make sure that you type the functional role you want to search for in the Search Pattern above",
368                  $cgi->br,                  $cgi->br,

Legend:
Removed from v.1.48  
changed lines
  Added in v.1.49

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3