--- loncom/interface/Attic/lonspreadsheet.pm 2001/01/02 22:35:30 1.30 +++ loncom/interface/Attic/lonspreadsheet.pm 2001/01/02 23:27:11 1.32 @@ -1191,12 +1191,13 @@ sub loadcourse { my $row=$1; unless (($f{$_}=~/^\!/) -|| ($row>5)) +|| ($row>200)) { my @studentdata=&exportsheet(&getuname($safeeval), &getudom($safeeval), 'studentcalc'); + undef %userrdatas; my $index=0; map { if ($studentdata[$index]) { @@ -1252,15 +1253,15 @@ sub loadassessment { # ----------------------------- returnhash now has all stores for this resource # ---------------------------- initialize coursedata and userdata for this user - %courseopt=(); - %useropt=(); + undef %courseopt; + undef %useropt; my $userprefix=$uname.'_'.$udom.'_'; unless ($uhome eq 'no_host') { # -------------------------------------------------------------- Get coursedata unless - ((time-$courserdatas{$cid.'.last_cache'})<120) { + ((time-$courserdatas{$cid.'.last_cache'})<240) { my $reply=&Apache::lonnet::reply('dump:'.$cdom.':'.$cnum. ':resourcedata',$chome); if ($reply!~/^error\:/) { @@ -1275,7 +1276,7 @@ sub loadassessment { } split(/\&/,$courserdatas{$ENV{'request.course.id'}}); # --------------------------------------------------- Get userdata (if present) unless - ((time-$userrdatas{$uname.'___'.$udom.'.last_cache'})<120) { + ((time-$userrdatas{$uname.'___'.$udom.'.last_cache'})<240) { my $reply= &Apache::lonnet::reply('dump:'.$udom.':'.$uname.':resourcedata',$uhome); if ($reply!~/^error\:/) { @@ -1385,7 +1386,9 @@ sub exportsheet { &updatesheet($thissheet); &loadrows($thissheet); &calcsheet($thissheet); - return &exportdata($thissheet); + my @returnthis=&exportdata($thissheet); + undef $thissheet; + return @returnthis; } # ================================================================ Main handler