--- loncom/interface/lonparmset.pm	2003/07/16 19:36:02	1.116
+++ loncom/interface/lonparmset.pm	2003/09/03 15:44:57	1.120
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.116 2003/07/16 19:36:02 www Exp $
+# $Id: lonparmset.pm,v 1.120 2003/09/03 15:44:57 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -287,7 +287,7 @@ sub plink {
 sub startpage {
     my ($r,$id,$udom,$csec,$uname,$have_assesments)=@_;
 
-    my $bodytag=&Apache::loncommon::bodytag('Set Course Parameters','',
+    my $bodytag=&Apache::loncommon::bodytag('Set/Modify Course Parameters','',
                                             'onUnload="pclose()"');
     my $chooseopt=&Apache::loncommon::select_dom_form($udom,'udom').' '.
         &Apache::loncommon::selectstudent_link('parmform','uname','udom');
@@ -343,16 +343,22 @@ $selscript
 $bodytag
 
 <form method="post" action="/adm/parmset" name="envform">
-<h3>Course Environment</h3>
-<input type="submit" name="crsenv" value="Set Course Environment">
+<h4>Course Environment Parameters</h4>
+<input type="submit" name="crsenv" value="Set Course Environment Parameters" />
+</form>
+<hr />
+<form method="post" action="/adm/helper/parameter.helper" name="helpform">
+<h4>Course Assessment Parameter - Helper Mode</h4>
+<input type="submit" value="Set/Modify Course Assessment Parameter" />
+</form>
+<hr />
+<form method="post" action="/adm/parmset" name="overview">
+<h4>Course Assessment Parameters - Overview Mode</h4>
+<input type="submit" name="overview" value="Modify Course Assessment Parameters" />
 </form>
 <hr />
 <form method="post" action="/adm/parmset" name="parmform">
-<h3>Course Assessments</h3>
-
-<a href="/adm/helper/parameter.helper">Use Assignment Parameter Helper</a>, a
-simpler interface to set open, due, or answer open dates for problems or
-sequences.<br />&nbsp;<br />
+<h4>Course Assessments Parameters - Table Mode</h4>
 ENDHEAD
 
     if (!$have_assesments) {
@@ -917,7 +923,7 @@ sub assessparms {
 
     $r->print('<h2>'.$message.'</h2><table>');
                         
-    my $submitmessage;
+    my $submitmessage = 'Update Section or Specific User';
     if (!$pssymb) {
         $r->print('<tr><td>Select Parameter Level</td><td colspan="2">');
         $r->print('<select name="parmlev">');
@@ -1040,7 +1046,7 @@ sub assessparms {
     if (($prevvisit) || ($pschp) || ($pssymb)) {
         $submitmessage = "Update Course Assessment Parameter Display";
     } else {
-        $submitmessage = "Set Course Assessment Parameters";
+        $submitmessage = "Set/Modify Course Assessment Parameters";
     }
     $r->print('<input type="submit" name="dis" value="'.$submitmessage.'">');
 
@@ -1480,6 +1486,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'".
@@ -1496,6 +1506,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>": '.
@@ -1542,9 +1563,10 @@ sub crsenv {
                  => '<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',
@@ -1642,7 +1664,28 @@ $output
 </html>    
 ENDENV
 }
+##################################################
 
+sub overview {
+    my $r=shift;
+    my $bodytag=&Apache::loncommon::bodytag(
+                             'Set/Modify Course Assessment Parameters');
+    my $dom = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'};
+    my $crs = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};
+    $r->print(<<ENDOVER);
+<html>
+<head>
+<title>LON-CAPA Course Environment</title>
+</head>
+$bodytag
+<form method="post" action="/adm/parmset" name="overview">
+Not yet implemented.
+<input type="hidden" name="overview" value="1" />
+</form>
+</body>
+</html>
+ENDOVER
+}
 ##################################################
 ##################################################
 
@@ -1681,6 +1724,7 @@ sub handler {
 # --------------------------------------------------------- Bring up assessment
 	    &assessparms($r);
 # ---------------------------------------------- This is for course environment
+	} elsif ($ENV{'form.overview'}) {
 	} else {
 	    &crsenv($r);
 	}