[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.10, Mon Aug 1 16:29:22 2005 UTC revision 1.12, Sun Sep 18 13:44:15 2005 UTC
# Line 12  Line 12 
12    
13          push (@$html, "<TITLE>Connect Differentially Expressed Pegs to Subsystems</TITLE>");          push (@$html, "<TITLE>Connect Differentially Expressed Pegs to Subsystems</TITLE>");
14          push(@$html, $cgi->br,$cgi->hr);          push(@$html, $cgi->br,$cgi->hr);
15          push(@$html,$cgi->h3("Subsystems"));          push(@$html,$cgi->h3("Subsystems: # of pegs with matching expression level"));
16          my $genome_string = $cgi->param('genome');          my $genome_string = $cgi->param('genome');
17          my @string_parts = split(", ",$genome_string);          my @string_parts = split(", ",$genome_string);
18          my $genome = $string_parts[1];          my $genome = $string_parts[1];
19          my $att_param = $cgi->param('attribute');          my $att_param = $cgi->param('attribute');
20          my $value_param = $cgi->param('value');          my $value_param = $cgi->param('value');
21            my $ss_counter;
22            my @all = $fig->all_subsystems();
23            foreach my $a (@all){ $ss_counter{$a} = 0 }
24          my @pegs = $fig->pegs_of($genome);          my @pegs = $fig->pegs_of($genome);
25          my %list_of_ss;          my %list_of_ss;
26          foreach my $peg (@pegs) {          foreach my $peg (@pegs) {
# Line 33  Line 35 
35                          foreach my $ss (@subsystems)                          foreach my $ss (@subsystems)
36                          {                          {
37                                  my $ss_name = $ss->[0];                                  my $ss_name = $ss->[0];
38                                    $counter = $ss_counter{$ss_name};
39                                    $counter = $counter + 1;
40                                  $list_of_ss{$ss_name} = "1";                                  $list_of_ss{$ss_name} = "1";
41                                  $ss = 0;                                  $ss_counter{$ss_name} = $counter;
42                                    $no_ss = 0;
43                          }                          }
44                          if($no_ss){push(@pegs_with_no_ss,$peg)}                          if($no_ss){push(@pegs_with_no_ss,$peg)}
45                   }                   }
# Line 46  Line 51 
51          push(@$html,"<TABLE>");          push(@$html,"<TABLE>");
52          foreach my $s (@list)          foreach my $s (@list)
53          {          {
54               my $peg_count = $ss_counter{$s};
55             my $url = "<a href="."$prefix"."$s"."$suffix"."&color_by_peg_tag=$att_param".">$s</a>";             my $url = "<a href="."$prefix"."$s"."$suffix"."&color_by_peg_tag=$att_param".">$s</a>";
56             push(@$html,"<TR><TD>$url</TD></TR>");             push(@$html,"<TR><TD>$url</TD><TD>$peg_count</TD></TR>");
57    
58           }           }
59           push(@$html,"</TABLE>",$cgi->hr);           push(@$html,"</TABLE>",$cgi->hr);
# Line 98  Line 104 
104          @options =("microarray_sigmaB_regulon","pH_75_vs_55");          @options =("microarray_sigmaB_regulon","pH_75_vs_55");
105          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);
106    
107          @options2 = ("up regulated","down regulated");          @options2 = ("up regulated","down regulated","present");
108          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);
109    
110          push(@$html,$cgi->submit('find subsystems'), $cgi->end_form);          push(@$html,$cgi->submit('find subsystems'), $cgi->end_form);

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.12

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3