--- loncom/lonnet/perl/lonnet.pm	2005/02/13 23:09:03	1.587.2.3.2.3
+++ loncom/lonnet/perl/lonnet.pm	2005/02/14 02:17:51	1.587.2.3.2.4
@@ -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 @@ sub gettitle {
     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 @@ sub gettitle {
 	}
 	$title=~s/\&colon\;/\:/gs;
 	if ($title) {
-	    return &do_cache_new('title',$symb,$title,600);
+	    return &do_cache_new('title',$key,$title,600);
 	}
 	$urlsymb=$url;
     }