version 1.76, 2003/06/03 18:14:07
|
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(); |
Line 1205 sub get_current_state {
|
Line 1213 sub get_current_state {
|
return () if (! defined($sname) || ! defined($sdom)); |
return () if (! defined($sname) || ! defined($sdom)); |
# |
# |
my ($status,$data) = &ensure_current_data($sname,$sdom,$courseid); |
my ($status,$data) = &ensure_current_data($sname,$sdom,$courseid); |
&Apache::lonnet::logthis |
# &Apache::lonnet::logthis |
('sname = '.$sname. |
# ('sname = '.$sname. |
' domain = '.$sdom. |
# ' domain = '.$sdom. |
' status = '.$status. |
# ' status = '.$status. |
' data is '.(defined($data)?'defined':'undefined')); |
# ' data is '.(defined($data)?'defined':'undefined')); |
# while (my ($symb,$hash) = each(%$data)) { |
# while (my ($symb,$hash) = each(%$data)) { |
# &Apache::lonnet::logthis($symb."\n----------------------------------"); |
# &Apache::lonnet::logthis($symb."\n----------------------------------"); |
# while (my ($key,$value) = each (%$hash)) { |
# while (my ($key,$value) = each (%$hash)) { |