loncom/interface/loncoursedata.pm - diff

Return to loncoursedata.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.77, 2003/06/16 15:55:27	version 1.78, 2003/06/17 21:45:36
Line 143 sub get_sequence_assessment_data {	Line 143 sub get_sequence_assessment_data {
#	#
# We need to keep track of which sequences contain homework problems	# We need to keep track of which sequences contain homework problems
#	#
	my $previous_too;
my $previous;	my $previous;
while (scalar(@Nested_Sequences)) {	while (scalar(@Nested_Sequences)) {
	$previous_too = $previous;
$previous = $curRes;	$previous = $curRes;
$curRes = $iterator->next();	$curRes = $iterator->next();
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()) {
	if (! ref($previous)) {
	$previous = $previous_too;
	}
	if (! ref($previous)) {
	next;
	}
# get the map itself, instead of BEGIN_MAP	# get the map itself, instead of BEGIN_MAP
$title = $previous->title();	$title = $previous->title();
$symb = $previous->symb();	$symb = $previous->symb();