version 1.116, 2005/02/25 19:48:00
|
version 1.118, 2005/03/01 22:25:59
|
Line 500 sub get_selected_maps {
|
Line 500 sub get_selected_maps {
|
} else { |
} else { |
@selected_maps = ('all'); |
@selected_maps = ('all'); |
} |
} |
|
foreach my $map (@selected_maps) { |
|
if ($map eq 'all') { |
|
@selected_maps = ('all'); |
|
last; |
|
} |
|
} |
return @selected_maps; |
return @selected_maps; |
} |
} |
|
|
Line 599 sub map_select {
|
Line 605 sub map_select {
|
} |
} |
$form .= 'size="'.$numvisible.'" >'."\n"; |
$form .= 'size="'.$numvisible.'" >'."\n"; |
# |
# |
# Deal with 'all' |
|
foreach (@selected_maps) { |
|
if ($_ eq 'all') { |
|
@selected_maps = ('all'); |
|
last; |
|
} |
|
} |
|
# |
|
# Put in option for 'all' |
# Put in option for 'all' |
$form .= ' <option value="all" '; |
$form .= ' <option value="all" '; |
foreach (@selected_maps) { |
if ($selected_maps[0] eq 'all') { |
if ($_ eq 'all') { |
$form .= 'selected '; |
$form .= 'selected '; |
|
last; |
|
} |
|
} |
} |
$form .= ">all</option>\n"; |
$form .= ">all</option>\n"; |
# |
# |
# Loop through the sequences |
# Loop through the sequences |
my @sequences = &selected_sequences_with_assessments(); |
my @sequences = &selected_sequences_with_assessments('all'); |
my $navmap; |
my $navmap; |
if (!ref($sequences[0])) { |
if (!ref($sequences[0])) { |
return $sequences[0]; |
return $sequences[0]; |