--- loncom/interface/lonparmset.pm 2002/04/09 18:39:30 1.49
+++ 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.49 2002/04/09 18:39:30 matthew Exp $
+# $Id: lonparmset.pm,v 1.51 2002/04/11 18:08:46 matthew Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -754,20 +754,20 @@ sub crsenv {
'TA, "in": '.
'instructor;
role,role,...)',
'spreadsheet_default_classcalc'
- => 'Default course spreadsheet',
-# 'Browse
",
+ => 'Default course spreadsheet '.
+ 'Browse
",
'spreadsheet_default_studentcalc'
- => 'Default student spreadsheet',
-# 'Browse
",
+ => 'Default student spreadsheet '.
+ 'Browse
",
'spreadsheet_default_assesscalc'
- => 'Default assessment spreadsheet'
-# 'Browse
",
+ => 'Default assessment spreadsheet '.
+ 'Browse
",
);
foreach (keys(%values)) {
unless ($descriptions{$_}) {
@@ -775,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(<