--- loncom/interface/lonparmset.pm	2002/03/25 19:33:35	1.47
+++ 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.47 2002/03/25 19:33:35 matthew Exp $
+# $Id: lonparmset.pm,v 1.51 2002/04/11 18:08:46 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -557,7 +557,7 @@ sub assessparms {
     if (!$pssymb) {
 	$r->print('</select></tr><tr><td>Select Enclosing Map</td><td><select name=pschp>');
 	$r->print('<option value=all>All Maps</option>');
-	foreach (keys %allmaps) {
+	foreach (sort keys %allmaps) {
 	    $r->print('<option value="'.$_.'"');
 	    if (($pssymb=~/^$allmaps{$_}/) || 
 		($pschp eq $_)) { $r->print(' selected'); }
@@ -752,7 +752,22 @@ sub crsenv {
                                   'Students</b><br>"<tt>st</tt>": '.
                                   'student, "<tt>ta</tt>": '.
                                   'TA, "<tt>in</tt>": '.
-                                  'instructor;<br><tt>role,role,...</tt>)'
+                                  'instructor;<br><tt>role,role,...</tt>)',
+             'spreadsheet_default_classcalc' 
+                 => '<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> '.
+                    '<a href="javascript:openbrowser'.
+                    "('envform','spreadsheet_default_calc'".
+                    ",'spreadsheet')\">Browse</a><br>",
+             'spreadsheet_default_assesscalc' 
+                 => '<b>Default assessment spreadsheet</b> '.
+                    '<a href="javascript:openbrowser'.
+                    "('envform','spreadsheet_default_assesscalc'".
+                    ",'spreadsheet')\">Browse</a><br>",
              );
 	foreach (keys(%values)) {
 	    unless ($descriptions{$_}) {
@@ -760,15 +775,25 @@ sub crsenv {
 	    }
 	}
 	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>
