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

Diff of /FigWebServices/att2sub.cgi

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

revision 1.1, Sun Jul 24 15:55:28 2005 UTC revision 1.6, Mon Dec 5 19:12:11 2005 UTC
# Line 1  Line 1 
1    #
2    # Copyright (c) 2003-2006 University of Chicago and Fellowship
3    # for Interpretations of Genomes. All Rights Reserved.
4    #
5    # This file is part of the SEED Toolkit.
6    #
7    # The SEED Toolkit is free software. You can redistribute
8    # it and/or modify it under the terms of the SEED Toolkit
9    # Public License.
10    #
11    # You should have received a copy of the SEED Toolkit Public License
12    # along with this program; if not write to the University of Chicago
13    # at info@ci.uchicago.edu or the Fellowship for Interpretation of
14    # Genomes at veronika@thefig.info or download a copy from
15    # http://www.theseed.org/LICENSE.TXT.
16    #
17    
18  use FIG;  use FIG;
19  my $fig = new FIG;  my $fig = new FIG;
20  use HTML;  use HTML;
# Line 11  Line 28 
28    
29          push (@$html, "<TITLE>Connect Pegs with Attributes to Subsystems</TITLE>");          push (@$html, "<TITLE>Connect Pegs with Attributes to Subsystems</TITLE>");
30    
31          my $genome = $cgi->param('genome');          my $genome_string = $cgi->param('genome');
32            my @string_parts = split($genome_string,", ");
33            my $genome = $string_parts[1];
34          my $att_param = $cgi->param('attribute');          my $att_param = $cgi->param('attribute');
35          my $value_param = $cgi->param('value');          my $value_param = $cgi->param('value');
36    
# Line 25  Line 44 
44                          $tag = uc($tag);                          $tag = uc($tag);
45                          next unless ($tag eq $att_param);                          next unless ($tag eq $att_param);
46                          $val = uc($val);                          $val = uc($val);
47                          $value_param = uc($value_param);                          #$value_param = uc($value_param);
48                          next unless($val eq $value_param);                          next unless($val eq $value_param);
49                          my @subsystems = $fig->subsystems_for_peg($peg);                          my @subsystems = $fig->subsystems_for_peg($peg);
50                          foreach my $ss (@subsystems)                          foreach my $ss (@subsystems)
# Line 37  Line 56 
56          }          }
57          my @list = keys(%list_of_ss);          my @list = keys(%list_of_ss);
58    
59          my $prefix = "$FIG_Config::cgi_url"."subsys.cgi?user=&ssa_name=";          my $prefix = &FIG::cgi_url(-relative => 1) . "/subsys.cgi?user=&ssa_name=";
60          my $suffix = "&request=show_ssa";          my $suffix = "&request=show_ssa";
61          push(@$html,"<TABLE>");          push(@$html,"<TABLE>");
62          foreach my $s (@list)          foreach my $s (@list)
# Line 64  Line 83 
83  my @genomes = $fig->genomes('complete');  my @genomes = $fig->genomes('complete');
84  foreach $g (@genomes){  foreach $g (@genomes){
85          my $gs = $fig->genus_species($g);          my $gs = $fig->genus_species($g);
86          push(@gs_list, $gs);          push(@gs_list, $gs.", ".$g);
87  }  }
88    
89  @gs_list2 =sort {uc($a) cmp uc($b)} @gs_list;  @gs_list2 =sort {uc($a) cmp uc($b)} @gs_list;

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.6

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3