|
version 1.587.2.3.2.11, 2005/02/14 04:29:43
|
version 1.587.2.3.2.13, 2005/02/15 17:14:51
|
|
Line 782 sub getsection {
|
Line 782 sub getsection {
|
| $courseid=~s/^(\w)/\/$1/; |
$courseid=~s/^(\w)/\/$1/; |
| |
|
| my $hashid="$udom:$unam:$courseid"; |
my $hashid="$udom:$unam:$courseid"; |
| my ($result,$cached)=&is_cached_new('getsection',$hashid,1); |
my ($result,$cached)=&is_cached_new('getsection',$hashid); |
| if (defined($cached)) { return $result; } |
if (defined($cached)) { return $result; } |
| |
|
| my %Pending; |
my %Pending; |
|
Line 1023 EVALBLOCK
|
Line 1023 EVALBLOCK
|
| # &logthis("load_cache_item $name took ".(&Time::HiRes::time()-$starttime)); |
# &logthis("load_cache_item $name took ".(&Time::HiRes::time()-$starttime)); |
| } |
} |
| |
|
| my $to_remember=10; |
my $to_remember=20; |
| my %remembered; |
my %remembered; |
| my %accessed; |
my %accessed; |
| my $kicks=0; |
my $kicks=0; |
|
Line 1051 sub is_cached_new {
|
Line 1051 sub is_cached_new {
|
| if ($debug) { &Apache::lonnet::logthis("getting $id is not defined"); } |
if ($debug) { &Apache::lonnet::logthis("getting $id is not defined"); } |
| return (undef,undef); |
return (undef,undef); |
| } |
} |
| &make_room($id,$value,$debug); |
|
| if ($value eq '__undef__') { |
if ($value eq '__undef__') { |
| if ($debug) { &Apache::lonnet::logthis("getting $id is __undef__"); } |
if ($debug) { &Apache::lonnet::logthis("getting $id is __undef__"); } |
| return (undef,1); |
$value=undef; |
| } |
} |
| |
&make_room($id,$value,$debug); |
| if ($debug) { &Apache::lonnet::logthis("getting $id is $value"); } |
if ($debug) { &Apache::lonnet::logthis("getting $id is $value"); } |
| return ($value,1); |
return ($value,1); |
| } |
} |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonnet.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / lonnet / perl