[LON-CAPA-cvs] cvs: loncom /interface lonparmset.pm
matthew
lon-capa-cvs@mail.lon-capa.org
Thu, 11 Apr 2002 18:08:46 -0000
matthew Thu Apr 11 14:08:46 2002 EDT
Modified files:
/loncom/interface lonparmset.pm
Log:
Addition of minor amount of javascript to automagically check the little
buttons for you when you change an environment setting.
This is part of a larger effort to maintain my sanity while working on the
spreadsheet.
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.50 loncom/interface/lonparmset.pm:1.51
--- loncom/interface/lonparmset.pm:1.50 Wed Apr 10 11:30:45 2002
+++ loncom/interface/lonparmset.pm Thu Apr 11 14:08:46 2002
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set parameters for assessments
#
-# $Id: lonparmset.pm,v 1.50 2002/04/10 15:30:45 matthew Exp $
+# $Id: lonparmset.pm,v 1.51 2002/04/11 18:08:46 matthew Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -754,17 +754,17 @@
'TA, "<tt>in</tt>": '.
'instructor;<br><tt>role,role,...</tt>)',
'spreadsheet_default_classcalc'
- => '<b>Default course spreadsheet</b>'.
+ => '<b>Default course spreadsheet</b> '.
'<a href="javascript:openbrowser'.
"('envform','spreadsheet_default_classcalc'".
",'spreadsheet')\">Browse</a><br>",
'spreadsheet_default_studentcalc'
- => '<b>Default student spreadsheet</b>'.
+ => '<b>Default student spreadsheet</b> '.
'<a href="javascript:openbrowser'.
"('envform','spreadsheet_default_calc'".
",'spreadsheet')\">Browse</a><br>",
'spreadsheet_default_assesscalc'
- => '<b>Default assessment spreadsheet</b>'.
+ => '<b>Default assessment spreadsheet</b> '.
'<a href="javascript:openbrowser'.
"('envform','spreadsheet_default_assesscalc'".
",'spreadsheet')\">Browse</a><br>",
@@ -775,15 +775,25 @@
}
}
foreach (sort keys %descriptions) {
- $output.='<tr><td>'.$descriptions{$_}.'</td><td><input name="'.
- $_.'_value" size=40 value="'.
- $values{$_}.'"></td><td><input type=checkbox name="'.
- $_.'_setparmval"></td></tr>';
- }
- $output.='<tr><td><i>Create New Environment Variable</i><br>'.
- '<input type="text" size=40 name="newp_name" ></td><td>'.
- '<input type="text" size=40 name="newp_value" ></td><td>'.
- '<input type="checkbox" name="newp_setparmval"></td></tr>';
+ # onchange is javascript to automatically check the 'Set' button.
+ my $onchange = 'onchange="javascript:window.document.forms'.
+ '[\'envform\'].elements[\''.$_.'_setparmval\']'.
+ '.checked=true;"';
+ $output.='<tr><td>'.$descriptions{$_}.'</td>'.
+ '<td><input name="'.$_.'_value" size=40 '.
+ 'value="'.$values{$_}.'" '.$onchange.' /></td>'.
+ '<td><input type=checkbox name="'.$_.'_setparmval"></td>'.
+ '</tr>'."\n";
+ }
+ my $onchange = 'onchange="javascript:window.document.forms'.
+ '[\'envform\'].elements[\'newp_setparmval\']'.
+ '.checked=true;"';
+ $output.='<tr><td><i>Create New Environment Variable</i><br />'.
+ '<input type="text" size=40 name="newp_name" '.
+ $onchange.' /></td><td>'.
+ '<input type="text" size=40 name="newp_value" '.
+ $onchange.' /></td><td>'.
+ '<input type="checkbox" name="newp_setparmval" /></td></tr>';
}
$r->print(<<ENDENV);
<html>