[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.7, Sat Feb 12 22:23:59 2005 UTC revision 1.8, Sat Feb 12 22:32:12 2005 UTC
# Line 183  Line 183 
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;
198    } # in case we didn't define it    } # in case we didn't define it
199    
200    
# Line 202  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    }    }
213   }   }
214    
# Line 237  Line 237 
237   foreach my $row (@$table) {   foreach my $row (@$table) {
238    $tab .= "\n<tr>";    $tab .= "\n<tr>";
239    foreach my $cell (@$row) {    foreach my $cell (@$row) {
 unless (ref($cell) eq "ARRAY") {  
  print STDERR "Didn't work. This is what we have for the row: ", join "\n", @$row, "\n";  
  exit(-1);  
 }  
240     my $width='';     my $width='';
241     if ($cell->[3]) {$width="width=" . $cell->[3]}     if ($cell->[3]) {$width="width=" . $cell->[3]}
242     $tab .= "\n\t<td valign=top $width colspan=$cell->[1] rowspan=$cell->[2]>$cell->[0]</td>";     $tab .= "\n\t<td valign=top $width colspan=$cell->[1] rowspan=$cell->[2]>$cell->[0]</td>";

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3