--- loncom/interface/lonparmset.pm 2002/03/26 16:08:46 1.48
+++ loncom/interface/lonparmset.pm 2002/04/11 18:08:46 1.51
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set parameters for assessments
#
-# $Id: lonparmset.pm,v 1.48 2002/03/26 16:08:46 matthew Exp $
+# $Id: lonparmset.pm,v 1.51 2002/04/11 18:08:46 matthew Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -752,7 +752,22 @@ sub crsenv {
'Students
"st": '.
'student, "ta": '.
'TA, "in": '.
- 'instructor;
role,role,...)'
+ 'instructor;
role,role,...)',
+ 'spreadsheet_default_classcalc'
+ => 'Default course spreadsheet '.
+ 'Browse
",
+ 'spreadsheet_default_studentcalc'
+ => 'Default student spreadsheet '.
+ 'Browse
",
+ 'spreadsheet_default_assesscalc'
+ => 'Default assessment spreadsheet '.
+ 'Browse
",
);
foreach (keys(%values)) {
unless ($descriptions{$_}) {
@@ -760,15 +775,25 @@ sub crsenv {
}
}
foreach (sort keys %descriptions) {
- $output.='| '.$descriptions{$_}.' | | |
';
- }
- $output.='Create New Environment Variable
'.
- ' | '.
- ' | '.
- ' |
';
+ # onchange is javascript to automatically check the 'Set' button.
+ my $onchange = 'onchange="javascript:window.document.forms'.
+ '[\'envform\'].elements[\''.$_.'_setparmval\']'.
+ '.checked=true;"';
+ $output.='| '.$descriptions{$_}.' | '.
+ ' | '.
+ ' | '.
+ '
'."\n";
+ }
+ my $onchange = 'onchange="javascript:window.document.forms'.
+ '[\'envform\'].elements[\'newp_setparmval\']'.
+ '.checked=true;"';
+ $output.='Create New Environment Variable
'.
+ ' | '.
+ ' | '.
+ ' |
';
}
$r->print(<