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

Diff of /FigWebServices/ma2sub.cgi

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

revision 1.2, Sun Jul 24 21:49:33 2005 UTC revision 1.3, Sun Jul 24 22:08:58 2005 UTC
# Line 26  Line 26 
26                          my ($gotpeg, $tag, $val, $link)=@$attr;                          my ($gotpeg, $tag, $val, $link)=@$attr;
27                          $tag = uc($tag);                          $tag = uc($tag);
28                          next unless ($tag eq $att_param);                          next unless ($tag eq $att_param);
                         $val = uc($val);  
                         #$value_param = uc($value_param);  
29                          next unless($val eq $value_param);                          next unless($val eq $value_param);
30                          my @subsystems = $fig->subsystems_for_peg($peg);                          my @subsystems = $fig->subsystems_for_peg($peg);
31                          foreach my $ss (@subsystems)                          foreach my $ss (@subsystems)
# Line 57  Line 55 
55  $html = [];  $html = [];
56  push @$html, "<TITLE>Connect Pegs with Attributes to Subsystems</TITLE>";  push @$html, "<TITLE>Connect Pegs with Attributes to Subsystems</TITLE>";
57    
58  push(@$html,$cgi->start_form(-action => "ma2sub.cgi",          push(@$html,$cgi->start_form(-action => "ma2sub.cgi",  -method => 'post'));
                               -method => 'post')  
 );  
59    
60    
61  my @gs_list;  my @gs_list;
# Line 80  Line 76 
76      $cgi->hr      $cgi->hr
77  );  );
78    
79  my $opt=$fig->get_keys("peg"); # all the peg tags          #my $opt=$fig->get_keys("peg"); # all the peg tags
80  my @options=sort {uc($a) cmp uc($b)} keys %$opt;          #my @options=sort {uc($a) cmp uc($b)} keys %$opt;
81  unshift(@options, undef);          #unshift(@options, undef);
82            @options =("microarray_sigmaB_regulon","pH_75_vs_55");
83  push(@$html,$cgi->h3("select experiment"), $cgi->popup_menu(-name => 'attribute', -values=>\@options), $cgi->br, $cgi->hr);  push(@$html,$cgi->h3("select experiment"), $cgi->popup_menu(-name => 'attribute', -values=>\@options), $cgi->br, $cgi->hr);
84    
 #my $opt2=$fig->get_values("peg"); # all the peg tags  
 #my @options2=sort {uc($a) cmp uc($b)} keys %$opt2;  
 #unshift(@options2, undef);  
85  @options2 = ("up regulated","down regulated");  @options2 = ("up regulated","down regulated");
86  push(@$html,$cgi->h3("select value"), $cgi->popup_menu(-name => 'value', -values=>\@options2), $cgi->br,$cgi->hr);  push(@$html,$cgi->h3("select value"), $cgi->popup_menu(-name => 'value', -values=>\@options2), $cgi->br,$cgi->hr);
87    

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3