version 1.47, 2001/03/20 20:11:27
|
version 1.48, 2001/03/20 21:34:34
|
Line 1637 sub exportsheet {
|
Line 1637 sub exportsheet {
|
} |
} |
return @exportarr; |
return @exportarr; |
} |
} |
|
# ============================================================ Expiration Dates |
|
# |
|
# Load previously cached student spreadsheets for this course |
|
# |
|
|
|
sub expirationdates { |
|
undef %expiredates; |
|
my $cid=$ENV{'request.course.id'}; |
|
my $reply=&Apache::lonnet::reply('dump:'. |
|
$ENV{'course.'.$cid.'.domain'}.':'. |
|
$ENV{'course.'.$cid.'.num'}. |
|
':nohist_expirationdates', |
|
$ENV{'course.'.$cid.'.home'}); |
|
unless ($reply=~/^error\:/) { |
|
map { |
|
my ($name,$value)=split(/\=/,$_); |
|
$expiredates{&Apache::lonnet::unescape($name)} |
|
=&Apache::lonnet::unescape($value); |
|
} split(/\&/,$reply); |
|
} |
|
} |
|
|
# ===================================================== Calculated sheets cache |
# ===================================================== Calculated sheets cache |
# |
# |
Line 1858 ENDSCRIPT
|
Line 1879 ENDSCRIPT
|
|
|
# --------------------------------------------------------------- Cached sheets |
# --------------------------------------------------------------- Cached sheets |
|
|
|
&expirationdates(); |
|
|
undef %oldsheets; |
undef %oldsheets; |
undef %loadedcaches; |
undef %loadedcaches; |
|
|