[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.6, Mon Dec 5 19:12:12 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 26  Line 43 
43                          my ($gotpeg, $tag, $val, $link)=@$attr;                          my ($gotpeg, $tag, $val, $link)=@$attr;
44                          $tag = uc($tag);                          $tag = uc($tag);
45                          next unless ($tag eq $att_param);                          next unless ($tag eq $att_param);
                         $val = uc($val);  
                         #$value_param = uc($value_param);  
46                          next unless($val eq $value_param);                          next unless($val eq $value_param);
47                          my @subsystems = $fig->subsystems_for_peg($peg);                          my @subsystems = $fig->subsystems_for_peg($peg);
48                          foreach my $ss (@subsystems)                          foreach my $ss (@subsystems)
# Line 39  Line 54 
54          }          }
55          my @list = keys(%list_of_ss);          my @list = keys(%list_of_ss);
56    
57          my $prefix = "$FIG_Config::cgi_url"."subsys.cgi?user=&ssa_name=";          my $prefix = &FIG::cgi_url(-relative => 1) . "/subsys.cgi?user=&ssa_name=";
58          my $suffix = "&request=show_ssa";          my $suffix = "&request=show_ssa";
59          push(@$html,"<TABLE>");          push(@$html,"<TABLE>");
60          foreach my $s (@list)          foreach my $s (@list)
# Line 57  Line 72 
72  $html = [];  $html = [];
73  push @$html, "<TITLE>Connect Pegs with Attributes to Subsystems</TITLE>";  push @$html, "<TITLE>Connect Pegs with Attributes to Subsystems</TITLE>";
74    
75  push(@$html,$cgi->start_form(-action => "ma2sub.cgi",          push(@$html,$cgi->start_form(-action => "ma2sub.cgi",  -method => 'post'));
                               -method => 'post')  
 );  
76    
77    
78  my @gs_list;  my @gs_list;
# Line 80  Line 93 
93      $cgi->hr      $cgi->hr
94  );  );
95    
96  my $opt=$fig->get_keys("peg"); # all the peg tags          #my $opt=$fig->get_keys("peg"); # all the peg tags
97  my @options=sort {uc($a) cmp uc($b)} keys %$opt;          #my @options=sort {uc($a) cmp uc($b)} keys %$opt;
98  unshift(@options, undef);          #unshift(@options, undef);
99            @options =("microarray_sigmaB_regulon","pH_75_vs_55");
100  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);
101    
 #my $opt2=$fig->get_values("peg"); # all the peg tags  
 #my @options2=sort {uc($a) cmp uc($b)} keys %$opt2;  
 #unshift(@options2, undef);  
102  @options2 = ("up regulated","down regulated");  @options2 = ("up regulated","down regulated");
103  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);
104    

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3