--- loncom/lonnet/perl/lonnet.pm	2002/12/05 23:27:46	1.308
+++ loncom/lonnet/perl/lonnet.pm	2002/12/05 23:51:05	1.309
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.308 2002/12/05 23:27:46 albertel Exp $
+# $Id: lonnet.pm,v 1.309 2002/12/05 23:51:05 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -81,7 +81,7 @@ qw(%perlvar %hostname %homecache %badSer
    %libserv %pr %prp %metacache %packagetab %titlecache 
    %courselogs %accesshash $processmarker $dumpcount 
    %coursedombuf %coursehombuf %courseresdatacache 
-   %studentresdatacache %domaindescription);
+   %domaindescription);
 use IO::Socket;
 use GDBM_File;
 use Apache::Constants qw(:common :http);
@@ -2851,8 +2851,9 @@ sub EXT {
 # ----------------------------------------------------------- first, check user
 	    #most student don't have any data set, check if there is some data
             #every thirty minutes
-	    if (!exists($studentresdatacache{$uname.'_'.$udom})
-		|| $studentresdatacache{$uname.'_'.$udom} > (time+1800)) {
+	    if (!
+		(exists($ENV{'cache.studentresdata'})
+		    && (($ENV{'cache.studentresdata'}+1800) > time))) {
 		my %resourcedata=&get('resourcedata',
 				      [$courselevelr,$courselevelm,$courselevel],
 				      $udom,$uname);
@@ -2871,7 +2872,9 @@ sub EXT {
 				 $uname." at ".$udom.": ".
 				 $tmp."</font>");
 		    } elsif ($tmp=~/error:No such file/) {
-			$studentresdatacache{$uname.'_'.$udom}=time;
+			$ENV{'cache.studentresdata'}=time;
+			&appenv(('cache.studentresdata'=>
+				 $ENV{'cache.studentresdata'}));
 		    } elsif ($tmp =~ /^(con_lost|no_such_host)/) {
 			return $tmp;
 		    }