version 1.102, 2003/01/08 15:05:52
|
version 1.103, 2003/01/10 15:41:26
|
Line 160 sub sequence_content_menu {
|
Line 160 sub sequence_content_menu {
|
else {$primary_sequence = '/res/'.$sequence[0];} |
else {$primary_sequence = '/res/'.$sequence[0];} |
my @master_seq = &coming_from_hash($primary_sequence,$sequence[0]); |
my @master_seq = &coming_from_hash($primary_sequence,$sequence[0]); |
my @master_seq_view = sort @master_seq; |
my @master_seq_view = sort @master_seq; |
|
@master_seq = sort @master_seq; |
for (my $i=0;$i<=$#master_seq_view;$i++) { |
for (my $i=0;$i<=$#master_seq_view;$i++) { |
$master_seq_view[$i]=~/\/([^\/]+)$/; |
$master_seq_view[$i]=~/\/([^\/]+)$/; |
$master_seq_view[$i]=$1; |
$master_seq_view[$i]=$1; |