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

Diff of /FigWebServices/close_genome_discrepancies.cgi

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

revision 1.1, Thu Jun 29 15:21:59 2006 UTC revision 1.2, Thu Jun 29 15:36:01 2006 UTC
# Line 55  Line 55 
55  my $max       = $cgi->param('max');  my $max       = $cgi->param('max');
56    
57  unless ($key_org) {$key_org=$orgs[0]}  unless ($key_org) {$key_org=$orgs[0]}
58  unless ($maxN) {$maxN=50}  unless ($maxN) {$maxN=10}
59  unless ($maxP) {$maxP=1e-20}  unless ($maxP) {$maxP=1e-20}
60  unless ($max) {$max=10}  unless ($max) {$max=10}
61    
# Line 112  Line 112 
112          $fn=[$fn, "td style='background-color: $color'"];          $fn=[$fn, "td style='background-color: $color'"];
113    
114          my $in_sub="   ";          my $in_sub="   ";
115          my @subs=$fig->subsystems_for_peg($peg);          my @subs=map {$_->[0]} $fig->subsystems_for_peg($peg);
116          if (@subs > 0) {          if (@subs > 0) {
117              $in_sub = @subs;              $in_sub = @subs;
118              my $ss_list=join "<br>", map { my $g = $_; $g =~ s/\_/ /g; $_ = $g } sort {$a cmp $b} @subs;              my $ss_list=join "<br>", map { my $g = $_; $g =~ s/\_/ /g; $_ = $g } sort {$a cmp $b} @subs;

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3