| 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 |
|
|
| 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; |
Parent Directory
| 
Revision Log
| 
Patch