--- loncom/interface/lonparmset.pm	2003/06/20 16:13:06	1.107
+++ loncom/interface/lonparmset.pm	2003/07/24 17:53:59	1.118
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.107 2003/06/20 16:13:06 matthew Exp $
+# $Id: lonparmset.pm,v 1.118 2003/07/24 17:53:59 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -488,9 +488,15 @@ sub print_row {
 sub print_td {
     my ($r,$which,$defbg,$result,$outpar,$mprefix,$value,$typeoutpar,$display)=@_;
     $r->print('<td bgcolor='.(($result==$which)?'"#AAFFAA"':$defbg).
-              ' align="center">'.
-              &plink($$typeoutpar[$which],$$display{$value},$$outpar[$which],
-                     $mprefix."$which",'parmform.pres','psub').'</td>'."\n");
+              ' align="center">');
+    if ($which<10) {
+	$r->print(&plink($$typeoutpar[$which],
+			 $$display{$value},$$outpar[$which],
+			 $mprefix."$which",'parmform.pres','psub'));
+    } else {
+	$r->print(&valout($$outpar[$which],$$typeoutpar[$which]));
+    }
+    $r->print('</td>'."\n");
 }
 
 sub get_env_multiple {
@@ -852,12 +858,13 @@ sub assessparms {
 	    $message.="<font color=red>Write Error: $1</font>";
 	}
 # ---------------------------------------------------------------- Done storing
-	$message.='<h3>Changes can take up to 10 minutes before being active for all students</h3>';
+	$message.='<h3>Changes can take up to 10 minutes before being active for all students.'.&Apache::loncommon::help_open_topic('Caching').'</h3>';
     }
 # --------------------------------------------- Devalidate cache for this child
-        &Apache::lonnet::devalidatecourseresdata(
+    &Apache::lonnet::devalidatecourseresdata(
                  $ENV{'course.'.$ENV{'request.course.id'}.'.num'},
                  $ENV{'course.'.$ENV{'request.course.id'}.'.domain'});
+    &Apache::lonnet::clear_EXT_cache_status();
 # -------------------------------------------------------------- Get coursedata
     %courseopt = &Apache::lonnet::dump
         ('resourcedata',
@@ -891,7 +898,11 @@ sub assessparms {
 
     &startpage($r,$id,$udom,$csec,$uname,$have_assesments);
 
-    if (!$have_assesments) { return ''; }
+    if (!$have_assesments) {
+	untie(%bighash);
+	untie(%parmhash);
+	return '';
+    }
 #    if ($ENV{'form.url'}) {
 #	$r->print('<input type="hidden" value="'.$ENV{'form.url'}.
 #		  '" name="url"><input type="hidden" name="command" value="set">');
@@ -1450,6 +1461,9 @@ sub crsenv {
             }
         }
     }
+# ------------------------- Re-init course environment entries for this session
+
+    &Apache::lonnet::coursedescription($ENV{'request.course.id'});
 
 # -------------------------------------------------------- Get parameters again
 
@@ -1466,6 +1480,10 @@ sub crsenv {
              'description'    => '<b>Course Description</b>',
              'courseid'       => '<b>Course ID or number</b><br />'.
                                  '(internal, optional)',
+             'grading'        => '<b>Grading</b>'.
+                                 '"standard" or any other value.  '.
+                                 'Default for new courses is "standard".',
+
              'default_xml_style' => '<b>Default XML Style File</b> '.
                     '<a href="javascript:openbrowser'.
                     "('envform','default_xml_style'".
@@ -1482,6 +1500,17 @@ sub crsenv {
              'pageseparators'  => '<b>Visibly Separate Items on Pages</b><br />'.
                                  '("<tt>yes</tt>" for visible separation, '.
                                  'changes will not show until next login)',
+
+             'plc.roles.denied'=> '<b>Disallow live chatroom use for '.
+                                  'Roles</b><br />"<tt>st</tt>": '.
+                                  'student, "<tt>ta</tt>": '.
+                                  'TA, "<tt>in</tt>": '.
+                                  'instructor;<br /><tt>role,role,...</tt>) '.
+	       Apache::loncommon::help_open_topic("Course_Disable_Discussion"),
+             'plc.users.denied' => 
+                          '<b>Disallow live chatroom use for Users</b><br />'.
+                                 '(<tt>user:domain,user:domain,...</tt>)',
+
              'pch.roles.denied'=> '<b>Disallow Resource Discussion for '.
                                   'Roles</b><br />"<tt>st</tt>": '.
                                   'student, "<tt>ta</tt>": '.
@@ -1508,26 +1537,36 @@ sub crsenv {
                     ",'spreadsheet')\">Select Spreadsheet File</a><br />",
 	     'allow_limited_html_in_feedback'
 	         => '<b>Allow limited HTML in discussion posts</b><br />'.
-	            '(Set value to yes to allow)',
+	            '(Set value to "<tt>yes</tt>" to allow)',
 	     'rndseed'
 	         => '<b>Randomization algorithm used</b> <br />'.
                     '<font color="red">Modifying this will make problems '.
                     'have different numbers and answers</font>',
              'problem_stream_switch'
                  => '<b>Allow problems to be split over pages</b><br />'.
-                    ' (<tt><b>yes</b> if allow anything else if not</tt>)',
-             'default_enrollment_start_date' => 'The default beginning date '.
-                                                'for enrolled students.',
-             'default_enrollment_end_date'   => 'The default ending date '.
-                                                'for enrolled students.',
+                    ' ("<tt>yes</tt>" if allowed, anything else if not)',
+             'anonymous_quiz'
+                 => '<b>Anonimous quiz/exam</b><br />'.
+                    ' (<tt><b>yes</b> to avoid print students names </tt>)',
+             'default_enrollment_start_date' => '<b>Default beginning date '.
+                                                'when enrolling students</b>',
+             'default_enrollment_end_date'   => '<b>Default ending date '.
+                                                'when enrolling students</b>',
+             'languages' => '<b>Languages used</b>',
+             'disable_receipt_display'
+                 => '<b>Disable display of problem receipts</b><br />'.
+                    ' ("<tt>yes</tt>" to disable, anything else if not)'
              ); 
-        my @Display_Order = ('url','description','courseid',
+        my @Display_Order = ('url','description','courseid','grading',
                              'default_xml_style','pageseparators',
                              'question.email','comment.email','policy.email',
+                             'plc.roles.denied','plc.users.denied',
                              'pch.roles.denied','pch.users.denied',
                              'allow_limited_html_in_feedback',
+                             'languages',
                              'rndseed',
                              'problem_stream_switch',
+                             'disable_receipt_display',
                              'spreadsheet_default_classcalc',
                              'spreadsheet_default_studentcalc',
                              'spreadsheet_default_assesscalc',