--- loncom/interface/lonparmset.pm	2002/03/13 21:24:24	1.45
+++ loncom/interface/lonparmset.pm	2002/06/14 20:14:30	1.52
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.45 2002/03/13 21:24:24 matthew Exp $
+# $Id: lonparmset.pm,v 1.52 2002/06/14 20:14:30 www 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'); }
@@ -730,12 +730,19 @@ sub crsenv {
     my $output='';
     if (! exists($values{'con_lost'})) {
         my %descriptions=
-	    ('url'            => '<b>Top Level Map</b><br><font color=red> '.
+	    ('url'            => '<b>Top Level Map</b> '.
+                                 '<a href="javascript:openbrowser'.
+                                 "('envform','url','sequence')\">".
+                                 'Browse</a><br><font color=red> '.
                                  'Modification may make assessment data '.
                                  'inaccessible</font>',
              'description'    => '<b>Course Description</b>',
              'courseid'       => '<b>Course ID or number</b><br>'.
                                  '(internal, optional)',
+             'default_xml_style' => '<b>Default XML Style File</b> '.
+                    '<a href="javascript:openbrowser'.
+                    "('envform','default_xml_style'".
+                    ",'sty')\">Browse</a><br>",
              'question.email' => '<b>Feedback Addresses for Content '.
                                  'Questions</b><br>(<tt>user:domain,'.
                                  'user:domain,...</tt>)',
@@ -749,7 +756,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{$_}) {
@@ -757,18 +779,52 @@ 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>
+<script type="text/javascript" language="Javascript" >
+    var editbrowser;
+    function openbrowser(formname,elementname,only,omit) {
+        var url = '/res/?';
+        if (editbrowser == null) {
+            url += 'launch=1&';
+        }
+        url += 'catalogmode=interactive&';
+        url += 'mode=parmset&';
+        url += 'form=' + formname + '&';
+        if (only != null) {
+            url += 'only=' + only + '&';
+        } 
+        if (omit != null) {
+            url += 'omit=' + omit + '&';
+        }
+        url += 'element=' + elementname + '';
+        var title = 'Browser';
+        var options = 'scrollbars=1,resizable=1,menubar=0';
+        options += ',width=700,height=600';
+        editbrowser = open(url,title,options,'1');
+        editbrowser.focus();
+    }
+</script>
 <head>
 <title>LON-CAPA Course Environment</title>
 </head>