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

Diff of /FigWebServices/subsys_summary.cgi

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

revision 1.6, Sat Feb 12 22:03:23 2005 UTC revision 1.7, Sat Feb 12 22:23:59 2005 UTC
# Line 108  Line 108 
108    # if width is ommitted it is ignored    # if width is ommitted it is ignored
109    
110    my $tablerows;    my $tablerows;
111      my $mt; #DELETE THIS
112    # get the classification if required    # get the classification if required
113    if ($cgi->param('levels')) {    if ($cgi->param('levels')) {
114     # get the classification and make sure there are now 2 columns as andrei doesn't like #3.     # get the classification and make sure there are now 2 columns as andrei doesn't like #3.
# Line 134  Line 134 
134     push @$tablerows, [$c, 1, $rows];     push @$tablerows, [$c, 1, $rows];
135    }    }
136    
   
137    #    #
138    # This is convolvuted because we may want to skip some empty cells, but we won't know whether    # This is convolvuted because we may want to skip some empty cells, but we won't know whether
139    # we want to skip them. Also, we are using rowspan/colspan to determine the size of the cells    # we want to skip them. Also, we are using rowspan/colspan to determine the size of the cells
# Line 171  Line 170 
170    elsif ($cgi->param('korgs')) {    elsif ($cgi->param('korgs')) {
171     my $first=1;     my $first=1;
172     foreach my $role (@roles) {     foreach my $role (@roles) {
 if ($role eq "Membrane Transport") {print STDERR "Found role Membrane Transport in $subsys\n"}  
173      my $genomeroles;      my $genomeroles;
174      foreach my $gen (@wants) {      foreach my $gen (@wants) {
175       my $cell = '   ';       my $cell = '   ';
# Line 184  Line 182 
182      }      }
183      # because I am using rowspan to make long columns, we don't want the tr on the first of these.      # because I am using rowspan to make long columns, we don't want the tr on the first of these.
184      if ($first) {      if ($first) {
185       push @$tablerows, ([$role, 1, 1], @$genomeroles);       push @$tablerows, [$role, 1, 1], @$genomeroles;
186       push @$toadd, @$tablerows;       push @$toadd, @$tablerows;
187       undef $first;       undef $first;
188      }      }
189      else {      else {
190       my @tr=([$role, 1, 1], @$genomeroles);       my @tr=([$role, 1, 1], @$genomeroles);
191       push @$toadd, \@tr;       push @$toadd, @tr;
192      }      }
193     }     }
194    }    }
195    
196    unless ($toadd) {    unless ($toadd) {
197     push @$toadd, @$tablerows;     push @$toadd, @$tablerows;
    print STDERR "For $subsys just defined ", join " ", @$toadd, "\n";  
198    } # in case we didn't define it    } # in case we didn't define it
199    
200    
# Line 205  Line 202 
202    if ($cgi->param('orgpegs')) {    if ($cgi->param('orgpegs')) {
203     my $mustadd;     my $mustadd;
204     foreach my $org (@wants) {if ($pegcount->{$org}) {$mustadd=1}} # we'll add it if one of the orgs has a role     foreach my $org (@wants) {if ($pegcount->{$org}) {$mustadd=1}} # we'll add it if one of the orgs has a role
205     if ($mustadd) {push @$table, @$toadd}     if ($mustadd) {push @$table, $toadd}
206    }    }
207    elsif ($cgi->param("haveroles")) {    elsif ($cgi->param("haveroles")) {
208     if (scalar(@roles)) {push @$table, @$toadd}     if (scalar(@roles)) {push @$table, $toadd}
209    }    }
210    else {    else {
211     push @$table, @$toadd;     push @$table, $toadd;
212    }    }
  if ($$table[$#$table]->[0] eq "Membrane Transport") {print STDERR "Found Membrane Transport for $subsys\n"}  
213   }   }
214    
215   # now convert $table into a table   # now convert $table into a table

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3