--- loncom/interface/Attic/lonspreadsheet.pm	2000/12/11 16:51:12	1.12
+++ loncom/interface/Attic/lonspreadsheet.pm	2000/12/11 18:33:24	1.13
@@ -762,13 +762,15 @@ sub rowaassess {
     my $uhome=&Apache::lonnet::homeserver($uname,$udom);
     unless ($uhome eq 'no_host') { 
 # -------------------------------------------------------------- Get coursedata
-      unless ($courserdatas{$ENV{'request.course.id'}}) {
+      unless
+        ((time-$courserdatas{$ENV{'request.course.id'}.'.last_cache'})<120) {
          my $reply=&Apache::lonnet::reply('dump:'.
               $ENV{'course.'.$ENV{'request.course.id'}.'.domain'}.':'.
               $ENV{'course.'.$ENV{'request.course.id'}.'.num'}.':resourcedata',
               $ENV{'course.'.$ENV{'request.course.id'}.'.home'});
          if ($reply!~/^error\:/) {
             $courserdatas{$ENV{'request.course.id'}}=$reply;
+            $courserdatas{$ENV{'request.course.id'}.'.last_cache'}=time;
          }
       }
       map {
@@ -777,11 +779,13 @@ sub rowaassess {
                     &Apache::lonnet::unescape($value);  
       } split(/\&/,$courserdatas{$ENV{'request.course.id'}});
 # --------------------------------------------------- Get userdata (if present)
-      unless ($userrdatas{$uname.'___'.$udom}) {
+      unless
+        ((time-$userrdatas{$uname.'___'.$udom.'.last_cache'})<120) {
          my $reply=
        &Apache::lonnet::reply('dump:'.$udom.':'.$uname.':resourcedata',$uhome);
          if ($reply!~/^error\:/) {
 	     $userrdatas{$uname.'___'.$udom}=$reply;
+	     $userrdatas{$uname.'___'.$udom.'.last_cache'}=time;
          }
       }
       map {