version 1.138, 2004/07/22 15:55:57
|
version 1.139, 2004/09/23 14:46:03
|
Line 155 sub get_sequence_assessment_data {
|
Line 155 sub get_sequence_assessment_data {
|
next; |
next; |
} |
} |
# get the map itself, instead of BEGIN_MAP |
# get the map itself, instead of BEGIN_MAP |
$title = $previous->title(); |
$title = $previous->compTitle; |
$title =~ s/\:/\&\#058;/g; |
|
$symb = $previous->symb(); |
$symb = $previous->symb(); |
$src = $previous->src(); |
$src = $previous->src(); |
# pick up the filename if there is no title available |
|
if (! defined($title) || $title eq '') { |
|
($title) = ($src=~/\/([^\/]*)$/); |
|
} |
|
$randompick = $previous->randompick(); |
$randompick = $previous->randompick(); |
my $newmap = { title => $title, |
my $newmap = { title => $title, |
src => $src, |
src => $src, |
Line 184 sub get_sequence_assessment_data {
|
Line 179 sub get_sequence_assessment_data {
|
next if (! ref($curRes)); |
next if (! ref($curRes)); |
next if (! $curRes->is_problem() && $curRes->src() !~ /\.survey$/); |
next if (! $curRes->is_problem() && $curRes->src() !~ /\.survey$/); |
# Okay, from here on out we only deal with assessments |
# Okay, from here on out we only deal with assessments |
$title = $curRes->title(); |
$title = $curRes->compTitle(); |
$title =~ s/\:/\&\#058;/g; |
|
$symb = $curRes->symb(); |
$symb = $curRes->symb(); |
$src = $curRes->src(); |
$src = $curRes->src(); |
# Grab the filename if there is not title available |
|
if (! defined($title) || $title eq '') { |
|
($title) = ($src=~ m:/([^/]*)$:); |
|
} |
|
my $parts = $curRes->parts(); |
my $parts = $curRes->parts(); |
my %partdata; |
my %partdata; |
foreach my $part (@$parts) { |
foreach my $part (@$parts) { |