version 1.77, 2002/11/19 19:20:50
|
version 1.80, 2002/12/09 22:27:20
|
Line 780 sub assessparms {
|
Line 780 sub assessparms {
|
if ($snum==5) { $storeunder=$seclevelm; } |
if ($snum==5) { $storeunder=$seclevelm; } |
if ($snum==4) { $storeunder=$seclevelr; } |
if ($snum==4) { $storeunder=$seclevelr; } |
|
|
|
my $delete; |
|
if ($ENV{'form.pres_value'} eq '') { $delete=1;} |
my %storecontent = ($storeunder => $ENV{'form.pres_value'}, |
my %storecontent = ($storeunder => $ENV{'form.pres_value'}, |
$storeunder.'.type' => $ENV{'form.pres_type'}); |
$storeunder.'.type' => $ENV{'form.pres_type'}); |
my $reply=''; |
my $reply=''; |
Line 796 sub assessparms {
|
Line 798 sub assessparms {
|
&Apache::lonnet::expirespread('','','assesscalc'); |
&Apache::lonnet::expirespread('','','assesscalc'); |
} |
} |
# Store parameter |
# Store parameter |
$reply=&Apache::lonnet::cput |
if ($delete) { |
('resourcedata',\%storecontent, |
$reply=&Apache::lonnet::del |
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}, |
('resourcedata',[keys(%storecontent)], |
$ENV{'course.'.$ENV{'request.course.id'}.'.num'}); |
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}, |
|
$ENV{'course.'.$ENV{'request.course.id'}.'.num'}); |
|
} else { |
|
$reply=&Apache::lonnet::cput |
|
('resourcedata',\%storecontent, |
|
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}, |
|
$ENV{'course.'.$ENV{'request.course.id'}.'.num'}); |
|
} |
} else { |
} else { |
# ------------------------------------------------------------------ Store User |
# ------------------------------------------------------------------ Store User |
# |
# |
Line 815 sub assessparms {
|
Line 824 sub assessparms {
|
&Apache::lonnet::expirespread($uname,$udom,'assesscalc'); |
&Apache::lonnet::expirespread($uname,$udom,'assesscalc'); |
} |
} |
# Store parameter |
# Store parameter |
$reply=&Apache::lonnet::cput |
if ($delete) { |
('resourcedata',\%storecontent,$udom,$uname); |
$reply=&Apache::lonnet::del |
|
('resourcedata',[keys(%storecontent)],$udom,$uname); |
|
} else { |
|
$reply=&Apache::lonnet::cput |
|
('resourcedata',\%storecontent,$udom,$uname); |
|
} |
} |
} |
|
|
if ($reply=~/^error\:(.*)/) { |
if ($reply=~/^error\:(.*)/) { |
$message.="<font color=red>Write Error: $1</font>"; |
$message.="<font color=red>Write Error: $1</font>"; |
} |
} |
# ---------------------------------------------------------------- Done storing |
# ---------------------------------------------------------------- Done storing |
|
$message.='<h3>Changes can take up to 10 minutes before being active for all students</h3>'; |
} |
} |
# --------------------------------------------- Devalidate cache for this child |
# --------------------------------------------- Devalidate cache for this child |
&Apache::lonnet::devalidatecourseresdata( |
&Apache::lonnet::devalidatecourseresdata( |
Line 1380 sub crsenv {
|
Line 1395 sub crsenv {
|
if ($name =~ /^spreadsheet_default_(classcalc| |
if ($name =~ /^spreadsheet_default_(classcalc| |
studentcalc| |
studentcalc| |
assesscalc)$/x) { |
assesscalc)$/x) { |
my $sheettype = $1; |
my $sheettype = $1; |
if ($sheettype eq 'classcalc') { |
if ($sheettype eq 'classcalc') { |
# no need to do anything since viewing the sheet will |
# no need to do anything since viewing the sheet will |
# cause it to be updated. |
# cause it to be updated. |
} elsif ($sheettype eq 'studentcalc') { |
} elsif ($sheettype eq 'studentcalc') { |
# expire all the student spreadsheets |
# expire all the student spreadsheets |
&Apache::lonnet::expirespread('','','studentcalc'); |
&Apache::lonnet::expirespread('','','studentcalc'); |
} else { |
} else { |
# expire all the default assessment spreadsheets |
# expire all the default assessment spreadsheets |
# ACK! No way to do this currently!!!!! Bummer! |
|
} |
} |
} |
} |
|
|