--- loncom/interface/Attic/lonspreadsheet.pm 2001/01/02 22:35:30 1.30 +++ loncom/interface/Attic/lonspreadsheet.pm 2001/01/02 22:58:46 1.31 @@ -1191,7 +1191,7 @@ sub loadcourse { my $row=$1; unless (($f{$_}=~/^\!/) -|| ($row>5)) +|| ($row>25)) { my @studentdata=&exportsheet(&getuname($safeeval), @@ -1252,8 +1252,8 @@ 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.'_'; @@ -1385,7 +1385,9 @@ sub exportsheet { &updatesheet($thissheet); &loadrows($thissheet); &calcsheet($thissheet); - return &exportdata($thissheet); + my @returnthis=&exportdata($thissheet); + undef $thissheet; + return @returnthis; } # ================================================================ Main handler