version 1.75, 2003/06/02 17:18:33
|
version 1.77, 2003/06/16 15:55:27
|
Line 121 sub get_sequence_assessment_data {
|
Line 121 sub get_sequence_assessment_data {
|
## We are going to loop until we run out of sequences/pages to explore for |
## We are going to loop until we run out of sequences/pages to explore for |
## resources. This means we have to start out with something to look |
## resources. This means we have to start out with something to look |
## at. |
## at. |
my $title = $top_level_map->title(); |
my $title = $ENV{'course.'.$ENV{'request.course.id'}.'.description'}; |
my $symb = $top_level_map->symb(); |
my $symb = $top_level_map->symb(); |
my $src = $top_level_map->src(); |
my $src = $top_level_map->src(); |
my $randompick = $top_level_map->randompick(); |
my $randompick = $top_level_map->randompick(); |
Line 1205 sub get_current_state {
|
Line 1205 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)) { |