[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.3, Sun Jul 24 19:31:59 2005 UTC
# Line 11  Line 11 
11    
12          push (@$html, "<TITLE>Connect Pegs with Attributes to Subsystems</TITLE>");          push (@$html, "<TITLE>Connect Pegs with Attributes to Subsystems</TITLE>");
13    
14          my $genome = $cgi->param('genome');          my $genome_string = $cgi->param('genome');
15            my @string_parts = split($genome_string,", ");
16            my $genome = $string_parts[1];
17          my $att_param = $cgi->param('attribute');          my $att_param = $cgi->param('attribute');
18          my $value_param = $cgi->param('value');          my $value_param = $cgi->param('value');
19    
# Line 25  Line 27 
27                          $tag = uc($tag);                          $tag = uc($tag);
28                          next unless ($tag eq $att_param);                          next unless ($tag eq $att_param);
29                          $val = uc($val);                          $val = uc($val);
30                          $value_param = uc($value_param);                          #$value_param = uc($value_param);
31                          next unless($val eq $value_param);                          next unless($val eq $value_param);
32                          my @subsystems = $fig->subsystems_for_peg($peg);                          my @subsystems = $fig->subsystems_for_peg($peg);
33                          foreach my $ss (@subsystems)                          foreach my $ss (@subsystems)
# Line 64  Line 66 
66  my @genomes = $fig->genomes('complete');  my @genomes = $fig->genomes('complete');
67  foreach $g (@genomes){  foreach $g (@genomes){
68          my $gs = $fig->genus_species($g);          my $gs = $fig->genus_species($g);
69          push(@gs_list, $gs);          push(@gs_list, $gs.", ".$g);
70  }  }
71    
72  @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.3

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3