[LON-CAPA-cvs] cvs: loncom(version_1_3_X_memcached) /lonnet/perl lonnet.pm
albertel
lon-capa-cvs@mail.lon-capa.org
Mon, 14 Feb 2005 02:17:51 -0000
albertel Sun Feb 13 21:17:51 2005 EDT
Modified files: (Branch: version_1_3_X_memcached)
/loncom/lonnet/perl lonnet.pm
Log:
- titles were being cached again $symb which isn't specific enough need to toss a courseid in there
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.587.2.3.2.3 loncom/lonnet/perl/lonnet.pm:1.587.2.3.2.4
--- loncom/lonnet/perl/lonnet.pm:1.587.2.3.2.3 Sun Feb 13 18:09:03 2005
+++ loncom/lonnet/perl/lonnet.pm Sun Feb 13 21:17:51 2005
@@ -1,7 +1,7 @@
# The LearningOnline Network
# TCP networking package
#
-# $Id: lonnet.pm,v 1.587.2.3.2.3 2005/02/13 23:09:03 albertel Exp $
+# $Id: lonnet.pm,v 1.587.2.3.2.4 2005/02/14 02:17:51 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -4797,7 +4797,8 @@
my $urlsymb=shift;
my $symb=&symbread($urlsymb);
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)) {
return $result;
}
@@ -4812,7 +4813,7 @@
}
$title=~s/\&colon\;/\:/gs;
if ($title) {
- return &do_cache_new('title',$symb,$title,600);
+ return &do_cache_new('title',$key,$title,600);
}
$urlsymb=$url;
}