|
version 1.587.2.3.2.15, 2005/02/23 23:28:54
|
version 1.587.2.3.2.16, 2005/04/15 20:48:18
|
|
Line 1067 sub do_cache_new {
|
Line 1067 sub do_cache_new {
|
| if (!defined($setvalue)) { |
if (!defined($setvalue)) { |
| $setvalue='__undef__'; |
$setvalue='__undef__'; |
| } |
} |
| |
if (!defined($time)) { |
| |
$time=600; |
| |
} |
| if ($debug) { &Apache::lonnet::logthis("Setting $id to $value"); } |
if ($debug) { &Apache::lonnet::logthis("Setting $id to $value"); } |
| $memcache->set($id,$setvalue,$time); |
$memcache->set($id,$setvalue,$time); |
| #&make_room($id,$value,$debug); |
#&make_room($id,$value,$debug); |
|
Line 4415 sub EXT {
|
Line 4418 sub EXT {
|
| if (!defined($cached)) { |
if (!defined($cached)) { |
| my %resourcedata=&dump('resourcedata',$udom,$uname); |
my %resourcedata=&dump('resourcedata',$udom,$uname); |
| $result=\%resourcedata; |
$result=\%resourcedata; |
| &do_cache_new('userres',$hashid,$result); |
&do_cache_new('userres',$hashid,$result,600); |
| } |
} |
| my ($tmp)=keys(%$result); |
my ($tmp)=keys(%$result); |
| if (($tmp!~/^error\:/) && ($tmp!~/^con_lost/)) { |
if (($tmp!~/^error\:/) && ($tmp!~/^con_lost/)) { |
|
Line 4736 sub metadata {
|
Line 4739 sub metadata {
|
| $metaentry{':keys'}=join(',',keys %metathesekeys); |
$metaentry{':keys'}=join(',',keys %metathesekeys); |
| &metadata_generate_part0(\%metathesekeys,\%metaentry,$uri); |
&metadata_generate_part0(\%metathesekeys,\%metaentry,$uri); |
| $metaentry{':allpossiblekeys'}=join(',',keys %metathesekeys); |
$metaentry{':allpossiblekeys'}=join(',',keys %metathesekeys); |
| &do_cache_new('meta',$uri,\%metaentry); |
&do_cache_new('meta',$uri,\%metaentry,6000); |
| # this is the end of "was not already recently cached |
# this is the end of "was not already recently cached |
| } |
} |
| return $metaentry{':'.$what}; |
return $metaentry{':'.$what}; |
![[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