--- loncom/interface/lonparmset.pm 2002/10/28 23:28:52 1.75
+++ loncom/interface/lonparmset.pm 2002/11/19 19:26:35 1.78
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set parameters for assessments
#
-# $Id: lonparmset.pm,v 1.75 2002/10/28 23:28:52 albertel Exp $
+# $Id: lonparmset.pm,v 1.78 2002/11/19 19:26:35 matthew Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -657,6 +657,7 @@ sub assessparms {
my @pscat=&get_env_multiple('form.pscat');
my $pschp=$ENV{'form.pschp'};
my @psprt=&get_env_multiple('form.psprt');
+ if (!@psprt) { $psprt[0]='0'; }
my $showoptions=$ENV{'form.showoptions'};
my $pssymb='';
@@ -930,7 +931,6 @@ sub assessparms {
$r->print('>All Parameters');
my $cnt=0;
-
foreach $tempkey (sort { $allparms{$a} cmp $allparms{$b} }
keys %allparms ) {
++$cnt;
@@ -949,10 +949,12 @@ sub assessparms {
$r->print('');
+ my %temphash=();
+ foreach (@psprt) { $temphash{$_}=1; }
foreach $tempkey (sort keys %allparts) {
unless ($tempkey =~ /\./) {
$r->print('');
@@ -999,12 +1001,12 @@ sub assessparms {
}
$r->print('');
- my @temp_psprt;
- foreach my $t (@psprt) {
- push(@temp_psprt, grep {eval (/^$t\./ || ($_ == $t))} (keys %allparts));
- }
+# my @temp_psprt;
+# foreach my $t (@psprt) {
+# push(@temp_psprt, grep {eval (/^$t\./ || ($_ == $t))} (keys %allparts));
+# }
- @psprt = @temp_psprt;
+# @psprt = @temp_psprt;
my @temp_pscat;
map {
@@ -1375,6 +1377,21 @@ sub crsenv {
$dom,$crs).
'
';
}
+ if ($name =~ /^spreadsheet_default_(classcalc|
+ studentcalc|
+ assesscalc)$/x) {
+ my $sheettype = $1;
+ if ($sheettype eq 'classcalc') {
+ # no need to do anything since viewing the sheet will
+ # cause it to be updated.
+ } elsif ($sheettype eq 'studentcalc') {
+ # expire all the student spreadsheets
+ &Apache::lonnet::expirespread('','','studentcalc');
+ } else {
+ # expire all the default assessment spreadsheets
+ }
+ }
+
if ($name) {
$setoutput.='Setting '.$name.' to '.
$value.': '.