--- loncom/interface/lonparmset.pm	2002/03/26 16:08:46	1.48
+++ 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.48 2002/03/26 16:08:46 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;
@@ -739,6 +741,10 @@ sub crsenv {
              '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,15 +787,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>