[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.5, Sat Feb 12 21:55:23 2005 UTC revision 1.6, Sat Feb 12 22:03:23 2005 UTC
# Line 177  Line 177 
177       my $cell = '   ';       my $cell = '   ';
178       if ($genomes{$gen}) {       if ($genomes{$gen}) {
179        foreach my $peg ($fig->pegs_in_subsystem_cell($subsys, $gen, $role)) {        foreach my $peg ($fig->pegs_in_subsystem_cell($subsys, $gen, $role)) {
180         $cell .= &HTML::fid_link($cgi,$peg) . "; ";         $cell .= &HTML::fid_link($cgi,$peg, 'local') . "; ";
181        }        }
182       }       }
183       push @$genomeroles, [$cell, 1, 1];       push @$genomeroles, [$cell, 1, 1];
# Line 213  Line 213 
213    else {    else {
214     push @$table, @$toadd;     push @$table, @$toadd;
215    }    }
216     if ($$table[$#$table]->[0] eq "Membrane Transport") {print STDERR "Found Membrane Transport for $subsys\n"}
217   }   }
218    
219   # now convert $table into a table   # now convert $table into a table
# Line 245  Line 246 
246   exit(-1);   exit(-1);
247  }  }
248     my $width='';     my $width='';
249     if ($cell->[3]) {$width="width " . $cell->[3]}     if ($cell->[3]) {$width="width=" . $cell->[3]}
250     $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>";
251    }    }
252    $tab .= "\n</tr>\n";    $tab .= "\n</tr>\n";

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3