version 1.50, 2003/02/25 15:55:15
|
version 1.51, 2003/02/25 16:05:24
|
Line 340 sub get_sequence_assessment_data {
|
Line 340 sub get_sequence_assessment_data {
|
my $currentmap = $Nested_Sequences[-1]; # Last one on the stack |
my $currentmap = $Nested_Sequences[-1]; # Last one on the stack |
if ($curRes == $iterator->BEGIN_MAP()) { |
if ($curRes == $iterator->BEGIN_MAP()) { |
# get the map itself, instead of BEGIN_MAP |
# get the map itself, instead of BEGIN_MAP |
$title = $previous->title();#$curRes->title(); |
$title = $previous->title(); |
$symb = $previous->symb;#curRes->symb(); |
$symb = $previous->symb(); |
$src = $previous->src();#$curRes->src(); |
$src = $previous->src(); |
my $newmap = { title => $title, |
my $newmap = { title => $title, |
src => $src, |
src => $src, |
symb => $symb, |
symb => $symb, |