version 1.30, 2001/01/02 22:35:30
|
version 1.31, 2001/01/02 22:58:46
|
Line 1191 sub loadcourse {
|
Line 1191 sub loadcourse {
|
my $row=$1; |
my $row=$1; |
unless (($f{$_}=~/^\!/) |
unless (($f{$_}=~/^\!/) |
|
|
|| ($row>5)) |
|| ($row>25)) |
|
|
{ |
{ |
my @studentdata=&exportsheet(&getuname($safeeval), |
my @studentdata=&exportsheet(&getuname($safeeval), |
Line 1252 sub loadassessment {
|
Line 1252 sub loadassessment {
|
# ----------------------------- returnhash now has all stores for this resource |
# ----------------------------- returnhash now has all stores for this resource |
|
|
# ---------------------------- initialize coursedata and userdata for this user |
# ---------------------------- initialize coursedata and userdata for this user |
%courseopt=(); |
undef %courseopt; |
%useropt=(); |
undef %useropt; |
|
|
my $userprefix=$uname.'_'.$udom.'_'; |
my $userprefix=$uname.'_'.$udom.'_'; |
|
|
Line 1385 sub exportsheet {
|
Line 1385 sub exportsheet {
|
&updatesheet($thissheet); |
&updatesheet($thissheet); |
&loadrows($thissheet); |
&loadrows($thissheet); |
&calcsheet($thissheet); |
&calcsheet($thissheet); |
return &exportdata($thissheet); |
my @returnthis=&exportdata($thissheet); |
|
undef $thissheet; |
|
return @returnthis; |
} |
} |
|
|
# ================================================================ Main handler |
# ================================================================ Main handler |