[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;
     }