version 1.7, 2003/05/23 21:03:29
|
version 1.8, 2003/05/29 13:39:38
|
Line 64 my %Exportrows = ();
|
Line 64 my %Exportrows = ();
|
|
|
my $current_course; |
my $current_course; |
|
|
|
sub initialize { |
|
&initialize_sequence_cache(); |
|
} |
|
|
sub initialize_package { |
sub initialize_package { |
$current_course = $ENV{'request.course.id'}; |
$current_course = $ENV{'request.course.id'}; |
&initialize_sequence_cache(); |
&initialize_sequence_cache(); |
&load_cached_export_rows(); |
&load_cached_export_rows(); |
} |
} |
|
|
|
sub ensure_correct_sequence_data { |
|
if ($current_course ne $ENV{'request.course.id'}) { |
|
&initialize_sequence_cache(); |
|
$current_course = $ENV{'request.course.id'}; |
|
} |
|
return; |
|
} |
|
|
sub initialize_sequence_cache { |
sub initialize_sequence_cache { |
# |
# |
# Set up the sequences and assessments |
# Set up the sequences and assessments |