version 1.107, 2002/09/05 14:38:57
|
version 1.108, 2002/09/09 17:18:33
|
Line 1680 sub parmval {
|
Line 1680 sub parmval {
|
|
|
# ---------------------------------------------- Update rows for course listing |
# ---------------------------------------------- Update rows for course listing |
sub updateclasssheet { |
sub updateclasssheet { |
my $safeeval=shift; |
my ($safeeval,$sheetdata) = @_; |
my $cnum=&getcnum($safeeval); |
my $cnum =$sheetdata->{'cnum'}; |
my $cdom=&getcdom($safeeval); |
my $cdom =$sheetdata->{'cdom'}; |
my $cid=&getcid($safeeval); |
my $cid =$sheetdata->{'cid'}; |
my $chome=&getchome($safeeval); |
my $chome =$sheetdata->{'chome'}; |
# |
# |
# Read class list and row labels |
# Read class list and row labels |
my %classlist; |
my %classlist; |
Line 1784 sub updateclasssheet {
|
Line 1784 sub updateclasssheet {
|
|
|
# ----------------------------------- Update rows for student and assess sheets |
# ----------------------------------- Update rows for student and assess sheets |
sub updatestudentassesssheet { |
sub updatestudentassesssheet { |
my $safeeval=shift; |
my ($safeeval,$sheetdata) = @_; |
my %bighash; |
my %bighash; |
my $stype=&gettype($safeeval); |
my $stype=$sheetdata->{'sheettype'}; |
|
my $uname=$sheetdata->{'uname'}; |
|
my $udom =$sheetdata->{'udom'}; |
my %current=(); |
my %current=(); |
if ($updatedata{$ENV{'request.course.fn'}.'_'.$stype}) { |
if ($updatedata |
|
{$ENV{'request.course.fn'}.'_'.$stype.'_'.$uname.'_'.$udom}) { |
%current=split(/\_\_\_\;\_\_\_/, |
%current=split(/\_\_\_\;\_\_\_/, |
$updatedata{$ENV{'request.course.fn'}.'_'.$stype}); |
$updatedata{$ENV{'request.course.fn'}. |
|
'_'.$stype.'_'.$uname.'_'.$udom}); |
} else { |
} else { |
# Tie hash |
# Tie hash |
tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db', |
tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db', |
Line 1808 sub updatestudentassesssheet {
|
Line 1812 sub updatestudentassesssheet {
|
'totalpoints' => |
'totalpoints' => |
'Total Points Granted<br>totalpoints'); |
'Total Points Granted<br>totalpoints'); |
my $adduserstr=''; |
my $adduserstr=''; |
if ((&getuname($safeeval) ne $ENV{'user.name'}) || |
if (($uname ne $ENV{'user.name'}) || ($udom ne $ENV{'user.domain'})){ |
(&getudom($safeeval) ne $ENV{'user.domain'})) { |
$adduserstr='&uname='.$uname.'&udom='.$udom; |
$adduserstr='&uname='.&getuname($safeeval). |
|
'&udom='.&getudom($safeeval); |
|
} |
} |
my %allassess = |
my %allassess = |
('_feedback' =>'<a href="/adm/assesscalc?usymb=_feedback'. |
('_feedback' =>'<a href="/adm/assesscalc?usymb=_feedback'. |
Line 1862 sub updatestudentassesssheet {
|
Line 1864 sub updatestudentassesssheet {
|
} elsif ($stype eq 'studentcalc') { |
} elsif ($stype eq 'studentcalc') { |
%current=%allassess; |
%current=%allassess; |
} |
} |
$updatedata{$ENV{'request.course.fn'}.'_'.$stype}= |
$updatedata{$ENV{'request.course.fn'}.'_'.$stype.'_'.$uname.'_'.$udom}= |
join('___;___',%current); |
join('___;___',%current); |
# Get current from cache |
# Get current from cache |
} |
} |
Line 2185 sub updatesheet {
|
Line 2187 sub updatesheet {
|
my ($safeeval,$sheetdata)=@_; |
my ($safeeval,$sheetdata)=@_; |
my $stype=$sheetdata->{'sheettype'}; |
my $stype=$sheetdata->{'sheettype'}; |
if ($stype eq 'classcalc') { |
if ($stype eq 'classcalc') { |
return &updateclasssheet($safeeval); |
return &updateclasssheet($safeeval,$sheetdata); |
} else { |
} else { |
return &updatestudentassesssheet($safeeval); |
return &updatestudentassesssheet($safeeval,$sheetdata); |
} |
} |
} |
} |
|
|