[Bio] / FigKernelPackages / Observation.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/Observation.pm

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

revision 1.80, Mon Jun 29 16:49:01 2009 UTC revision 1.81, Thu Aug 27 13:58:34 2009 UTC
# Line 1799  Line 1799 
1799      my $ln_hit = $thing->hlength;      my $ln_hit = $thing->hlength;
1800  #    my $query_color = match_color($query_start, $query_stop, $ln_query, 1);  #    my $query_color = match_color($query_start, $query_stop, $ln_query, 1);
1801  #    my $hit_color = match_color($hit_start, $hit_stop, $ln_hit, 1);  #    my $hit_color = match_color($hit_start, $hit_stop, $ln_hit, 1);
1802      my $query_color = match_color($query_start, $query_stop, abs($query_stop-$query_start), 1);      my $query_color = match_color($query_start, $query_stop, abs($query_stop-$query_start)+1, 1);
1803      my $hit_color = match_color($hit_start, $hit_stop, abs($query_stop-$query_start), 1);      my $hit_color = match_color($hit_start, $hit_stop, abs($query_stop-$query_start)+1, 1);
1804    
1805      my $tax_link = "http://www.ncbi.nlm.nih.gov/Taxonomy/Browser/wwwtax.cgi?id=" . $org_tax;      my $tax_link = "http://www.ncbi.nlm.nih.gov/Taxonomy/Browser/wwwtax.cgi?id=" . $org_tax;
1806    
# Line 2649  Line 2649 
2649      foreach my $id (@$ids){      foreach my $id (@$ids){
2650          my @in_sub = @{$in_subs{$id}} if (defined $in_subs{$id});          my @in_sub = @{$in_subs{$id}} if (defined $in_subs{$id});
2651          my @subsystems;          my @subsystems;
2652            if (scalar(@in_sub)) {
         if (@in_sub > 0) {  
2653              foreach my $array(@in_sub){              foreach my $array(@in_sub){
2654                  my $ss = $array->[0];                  my $ss_name = $array->[0];
2655                  $ss =~ s/_/ /ig;                  $ss_name =~ s/_/ /ig;
2656                  push (@subsystems, "-" . $ss);                  push (@subsystems, "-" . $ss_name);
2657              }              }
2658              my $in_sub_line = join ("<br>", @subsystems);              my $in_sub_line = join ("<br>", @subsystems);
2659              $ss->{$id} = $in_sub_line;              $ss->{$id} = $in_sub_line;

Legend:
Removed from v.1.80  
changed lines
  Added in v.1.81

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3