--- loncom/interface/lonparmset.pm	2002/03/19 19:55:52	1.46
+++ loncom/interface/lonparmset.pm	2002/08/08 13:44:17	1.56
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.46 2002/03/19 19:55:52 matthew Exp $
+# $Id: lonparmset.pm,v 1.56 2002/08/08 13:44:17 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -43,6 +43,8 @@
 # 12/19 Guy Albertelli
 # 12/26,12/27 Gerd Kortemeyer
 #
+# YEAR=2002
+# 7/19 Jeremy Bowers
 ###
 
 package Apache::lonparmset;
@@ -557,7 +559,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,15 +732,19 @@ sub crsenv {
     my $output='';
     if (! exists($values{'con_lost'})) {
         my %descriptions=
-	    ('url'            => '<b>Top Level Map</b>'.
+	    ('url'            => '<b>Top Level Map</b> '.
                                  '<a href="javascript:openbrowser'.
-                                 "('envform','url')\">".
+                                 "('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>)',
@@ -748,11 +754,32 @@ sub crsenv {
                                  '<br>(<tt>user:domain,user:domain,...</tt>)',
              'hideemptyrows'  => '<b>Hide Empty Rows in Spreadsheets</b><br>'.
                                  '("<tt>yes</tt>" for default hiding)',
+             'pageseparators'  => '<b>Visibly Separate Items on Pages</b><br>'.
+                                 '("<tt>yes</tt>" for visible separation)',
              'pch.roles.denied'=> '<b>Disallow Resource Discussion for '.
-                                  'Students</b><br>"<tt>st</tt>": '.
+                                  'Roles</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>) '.
+	       Apache::loncommon::help_open_topic("Course_Disable_Discussion"),
+             'pch.users.denied' => 
+                          '<b>Disallow Resource Discussion for Users</b><br>'.
+                                 '(<tt>user:domain,user:domain,...</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,21 +787,31 @@ 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) {
+    function openbrowser(formname,elementname,only,omit) {
         var url = '/res/?';
         if (editbrowser == null) {
             url += 'launch=1&';
@@ -782,6 +819,12 @@ sub crsenv {
         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';