[BACK]Return to lonnet.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / lonnet / perl

Diff for /loncom/lonnet/perl/lonnet.pm between versions 1.587.2.3.2.3 and 1.587.2.3.2.5

version 1.587.2.3.2.3, 2005/02/13 23:09:03 version 1.587.2.3.2.5, 2005/02/14 02:20:26
Line 1022  EVALBLOCK Line 1022  EVALBLOCK
 #    &logthis("load_cache_item $name took ".(&Time::HiRes::time()-$starttime));  #    &logthis("load_cache_item $name took ".(&Time::HiRes::time()-$starttime));
 }  }
   
 sub devalidate_cache_new {  
     my ($name,$id) = @_;  
     if (1) { &Apache::lonnet::logthis("deleting $name:$id"); }  
     $memcache->delete(&escape($name.':'.$id));  
 }  
   
 my $to_remember=10;  my $to_remember=10;
 my %remembered;  my %remembered;
 my %accessed;  my %accessed;
 my $kicks=0;  my $kicks=0;
 my $hits=0;  my $hits=0;
   sub devalidate_cache_new {
       my ($name,$id) = @_;
       if (0) { &Apache::lonnet::logthis("deleting $name:$id"); }
       $id=&escape($name.':'.$id);
       $memcache->delete($id);
       delete($remembered{$id});
       delete($accessed{$id});
   }
   
 sub is_cached_new {  sub is_cached_new {
     my ($name,$id,$debug) = @_;      my ($name,$id,$debug) = @_;
     $debug=0;      $debug=0;
Line 1067  sub do_cache_new { Line 1070  sub do_cache_new {
     }      }
     if ($debug) { &Apache::lonnet::logthis("Setting $id to $value"); }      if ($debug) { &Apache::lonnet::logthis("Setting $id to $value"); }
     $memcache->set($id,$setvalue,300);      $memcache->set($id,$setvalue,300);
       &make_room($id,$value);
     return $value;      return $value;
 }  }
   
Line 4797  sub gettitle { Line 4801  sub gettitle {
     my $urlsymb=shift;      my $urlsymb=shift;
     my $symb=&symbread($urlsymb);      my $symb=&symbread($urlsymb);
     if ($symb) {      if ($symb) {
  my ($result,$cached)=&is_cached_new('title',$symb);   my $key=$ENV{'request.course.id'}."\0".$symb;
    my ($result,$cached)=&is_cached_new('title',$key);
  if (defined($cached)) {    if (defined($cached)) { 
     return $result;      return $result;
  }   }
Line 4812  sub gettitle { Line 4817  sub gettitle {
  }   }
  $title=~s/\&colon\;/\:/gs;   $title=~s/\&colon\;/\:/gs;
  if ($title) {   if ($title) {
     return &do_cache_new('title',$symb,$title,600);      return &do_cache_new('title',$key,$title,600);
  }   }
  $urlsymb=$url;   $urlsymb=$url;
     }      }
Removed from v.1.587.2.3.2.3  
changed lines
  Added in v.1.587.2.3.2.5

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>