version 1.47, 2003/02/14 21:02:05
|
version 1.48, 2003/02/14 21:45:19
|
Line 1611 sub get_current_state {
|
Line 1611 sub get_current_state {
|
my $value = join(':',map { &Apache::lonnet::escape($_); } |
my $value = join(':',map { &Apache::lonnet::escape($_); } |
@Parameters); |
@Parameters); |
# Store away the values |
# Store away the values |
$cache{$key.&Apache::lonnet::escape($symb)}=$value; |
$cache{$key.&Apache::lonnet::escape($current_symb)}=$value; |
} |
} |
$cache{$key.'time'}=$time_of_retrieval; |
$cache{$key.'time'}=$time_of_retrieval; |
untie(%cache); |
untie(%cache); |
} |
} |
} else { |
} else { |
# &Apache::lonnet::logthis('retrieving cached data '); |
&Apache::lonnet::logthis('retrieving cached data '); |
if (tie(%cache,'GDBM_File',$cachefilename,&GDBM_READER(),0640)) { |
if (tie(%cache,'GDBM_File',$cachefilename,&GDBM_READER(),0640)) { |
if (defined($symb)) { |
if (defined($symb)) { |
my $searchkey = $key.&Apache::lonnet::escape($symb); |
my $searchkey = $key.&Apache::lonnet::escape($symb); |
Line 1628 sub get_current_state {
|
Line 1628 sub get_current_state {
|
my $searchkey = '^'.$key.'(.*)$';#' |
my $searchkey = '^'.$key.'(.*)$';#' |
while (my ($testkey,$params)=each(%cache)) { |
while (my ($testkey,$params)=each(%cache)) { |
if ($testkey =~ /$searchkey/) { # \Q \E? May be necc. |
if ($testkey =~ /$searchkey/) { # \Q \E? May be necc. |
$student_data{&Apache::lonnet::unescape($1)} = |
my $tmpsymb = $1; |
|
next if ($tmpsymb =~ 'time'); |
|
# &Apache::lonnet::logthis('found '.$tmpsymb.':'); |
|
$student_data{&Apache::lonnet::unescape($tmpsymb)} = |
&make_into_hash($params); |
&make_into_hash($params); |
} |
} |
} |
} |