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

Diff of /FigWebServices/array2sub.cgi

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

revision 1.5, Tue Jul 26 00:36:10 2005 UTC revision 1.6, Tue Jul 26 00:53:38 2005 UTC
# Line 17  Line 17 
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    
         print "$genome\n";  
         print "$value_param\n";  
         print "$att_param\n";  
   
20          my @pegs = $fig->pegs_of($genome);          my @pegs = $fig->pegs_of($genome);
21          my %list_of_ss;          my %list_of_ss;
22          foreach my $peg (@pegs) {          foreach my $peg (@pegs) {
# Line 29  Line 25 
25                          next unless (defined $attr);                          next unless (defined $attr);
26                          my ($gotpeg, $tag, $val, $link)=@$attr;                          my ($gotpeg, $tag, $val, $link)=@$attr;
27                          next unless ($tag eq $att_param);                          next unless ($tag eq $att_param);
                         print "HERE!!!!!\n";  
                         print "val is: $val\n";  
                         print "value_param is: $value_param\n";  
28                          next unless($val eq $value_param);                          next unless($val eq $value_param);
                         print "$HERE!!!!!\n";  
                         print "$val\n";  
29                          my @subsystems = $fig->subsystems_for_peg($peg);                          my @subsystems = $fig->subsystems_for_peg($peg);
30                          foreach my $ss (@subsystems)                          foreach my $ss (@subsystems)
31                          {                          {

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3