version 1.18, 2003/06/25 15:33:49
|
version 1.19, 2003/07/16 16:48:51
|
Line 248 sub load_spreadsheet_expirationdates {
|
Line 248 sub load_spreadsheet_expirationdates {
|
sub check_expiration_time { |
sub check_expiration_time { |
my $self = shift; |
my $self = shift; |
my ($time)=@_; |
my ($time)=@_; |
my ($key1,$key2,$key3,$key4); |
my ($key1,$key2,$key3,$key4,$key5); |
|
# Description of keys |
|
# |
|
# key1: all sheets of this type have expired |
|
# key2: all sheets of this type for this student |
|
# key3: all sheets of this type in this map for this student |
|
# key4: this assessment sheet for this student |
|
# key5: this assessment sheet for all students |
$key1 = '::'.$self->{'type'}.':'; |
$key1 = '::'.$self->{'type'}.':'; |
$key2 = $self->{'name'}.':'.$self->{'domain'}.':'.$self->{'type'}.':'; |
$key2 = $self->{'name'}.':'.$self->{'domain'}.':'.$self->{'type'}.':'; |
$key3 = $key2.$self->{'container'} if (defined($self->{'container'})); |
$key3 = $key2.$self->{'container'} if (defined($self->{'container'})); |
$key4 = $key2.$self->{'usymb'} if (defined($self->{'usymb'})); |
$key4 = $key2.$self->{'symb'} if (defined($self->{'symb'})); |
foreach my $key ($key1,$key2,$key3,$key4) { |
$key5 = $key1.$self->{'symb'} if (defined($self->{'symb'})); |
|
my $returnvalue = 1; # default to okay |
|
foreach my $key ($key1,$key2,$key3,$key4,$key5) { |
next if (! defined($key)); |
next if (! defined($key)); |
if (exists($expiredates{$key}) &&$expiredates{$key} > $time) { |
if (exists($expiredates{$key}) && $expiredates{$key} > $time) { |
return 0; |
$returnvalue = 0; # need to recompute |
} |
} |
} |
} |
return 1; |
return $returnvalue; |
} |
} |
|
|
###################################################### |
###################################################### |
Line 1641 sub save {
|
Line 1650 sub save {
|
sub save_tmp { |
sub save_tmp { |
my $self = shift; |
my $self = shift; |
my $filename=$ENV{'user.name'}.'_'. |
my $filename=$ENV{'user.name'}.'_'. |
$ENV{'user.domain'}.'_spreadsheet_'.$self->{'usymb'}.'_'. |
$ENV{'user.domain'}.'_spreadsheet_'.$self->{'symb'}.'_'. |
$self->{'filename'}; |
$self->{'filename'}; |
$filename=~s/\W/\_/g; |
$filename=~s/\W/\_/g; |
$filename=$Apache::lonnet::tmpdir.$filename.'.tmp'; |
$filename=$Apache::lonnet::tmpdir.$filename.'.tmp'; |
Line 1661 sub save_tmp {
|
Line 1670 sub save_tmp {
|
sub load_tmp { |
sub load_tmp { |
my $self = shift; |
my $self = shift; |
my $filename=$ENV{'user.name'}.'_'. |
my $filename=$ENV{'user.name'}.'_'. |
$ENV{'user.domain'}.'_spreadsheet_'.$self->{'usymb'}.'_'. |
$ENV{'user.domain'}.'_spreadsheet_'.$self->{'symb'}.'_'. |
$self->{'filename'}; |
$self->{'filename'}; |
$filename=~s/\W/\_/g; |
$filename=~s/\W/\_/g; |
$filename=$Apache::lonnet::tmpdir.$filename.'.tmp'; |
$filename=$Apache::lonnet::tmpdir.$filename.'.tmp'; |