--- loncom/interface/lonparmset.pm	2004/10/15 22:31:14	1.168.2.3
+++ loncom/interface/lonparmset.pm	2004/09/10 21:29:54	1.175
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.168.2.3 2004/10/15 22:31:14 albertel Exp $
+# $Id: lonparmset.pm,v 1.175 2004/09/10 21:29:54 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -542,7 +542,7 @@ Input: See list below:
 
 =item B<typep>: hash, id->type, where "type" contains the extension of the file, thus, I<problem exam quiz assess survey form>.
 
-=item B<keyp>: hash, id->key list, will contain a comma seperated list of the meta-data keys available for the given id
+=item B<keyp>: hash, id->key list, will contain a comma separated list of the meta-data keys available for the given id
 
 =item B<allparms>: hash, name of parameter->display value (what is the display value?)
 
@@ -581,6 +581,8 @@ sub extractResourceInformation {
 
     foreach (keys %$bighash) {
 	if ($_=~/^src\_(\d+)\.(\d+)$/) {
+	    # there are no resources in the 0 level
+	    if ($1 eq '0') { next; }
 	    my $mapid=$1;
 	    my $resid=$2;
 	    my $id=$mapid.'.'.$resid;
@@ -623,8 +625,12 @@ sub extractResourceInformation {
 		    &Apache::lonnet::declutter($$bighash{'map_id_'.$mapid});
                 $$mapp{$mapid}=$$mapp{$id};
 		$$allmaps{$mapid}=$$mapp{$id};
-		$$maptitles{$mapid}=
- $$bighash{'title_'.$$bighash{'ids_'.&Apache::lonnet::clutter($$mapp{$id})}};
+		if ($mapid eq '1') {
+		    $$maptitles{$mapid}='Main Course Documents';
+		} else {
+		    $$maptitles{$mapid}=
+			$$bighash{'title_'.$$bighash{'ids_'.&Apache::lonnet::clutter($$mapp{$id})}};
+		}
 		$$maptitles{$$mapp{$id}}=$$maptitles{$mapid};
 		$$symbp{$id}=$$mapp{$id}.
 			'___'.$resid.'___'.
@@ -693,8 +699,12 @@ sub assessparms {
     my $message='';
 
     $csec=$ENV{'form.csec'};
-    $udom=$ENV{'form.udom'};
-    unless ($udom) { $udom=$r->dir_config('lonDefDomain'); }
+    if      ($udom=$ENV{'form.udom'}) {
+    } elsif ($udom=$ENV{'request.role.domain'}) {
+    } elsif ($udom=$ENV{'user.domain'}) {
+    } else {
+	$udom=$r->dir_config('lonDefDomain');
+    }
 
     my @pscat=&Apache::loncommon::get_env_multiple('form.pscat');
     my $pschp=$ENV{'form.pschp'};
@@ -992,36 +1002,23 @@ sub assessparms {
 
         $r->print('<tr><td colspan="3" align="center">'.&mt('Select Parameters to View').'</td></tr>');
 
-        $r->print('<tr><td colspan="2"><table><tr>');
+        $r->print('<tr><td colspan="2"><table>');
+        $r->print('<tr><td><input type="checkbox" name="pscat" value="all"');
+        $r->print(' checked') unless (@pscat);
+        $r->print('>'.&mt('All Parameters').'</td>');
+
         my $cnt=0;
         foreach $tempkey (sort { $allparms{$a} cmp $allparms{$b} }
                       keys %allparms ) {
             ++$cnt;
-            $r->print('</tr><tr>') if ($cnt%2);
+            $r->print('</tr><tr>') unless ($cnt%2);
             $r->print('<td><input type="checkbox" name="pscat" ');
             $r->print('value="'.$tempkey.'"');
             if ($pscat[0] eq "all" || grep $_ eq $tempkey, @pscat) {
                 $r->print(' checked');
             }
-	    $r->print('>'.$allparms{$tempkey}.'</td>');
-	}
-	$r->print('
-</tr><tr><td>
-<script type="text/javascript">
-    function checkall(value, checkName) {
-	for (i=0; i<document.forms.parmform.elements.length; i++) {
-            ele = document.forms.parmform.elements[i];
-            if (ele.name == checkName) {
-                document.forms.parmform.elements[i].checked=value;
-            }
+            $r->print('>'.$allparms{$tempkey}.'</td>');
         }
-    }
-</script>
-<input type="button" onclick="checkall(true, \'pscat\')" value="Select All" />
-</td><td>
-<input type="button" onclick="checkall(false, \'pscat\')" value="Unselect All" />
-</td>
-');
         $r->print('</tr></table>');
 
 #        $r->print('<tr><td>Select Parts</td><td>');
@@ -1570,6 +1567,7 @@ sub crsenv {
              'pageseparators'  => '<b>'.&mt('Visibly Separate Items on Pages').'</b><br />'.
                                  '('.&mt('"[_1]" for visible separation','<tt>yes</tt>').', '.
                                  &mt('changes will not show until next login').')',
+             'student_classlist_view' => '<b>'.&mt('Allow students to view classlist.').'</b>'.&mt('("all":students can view all sections,"section":students can only view their own section.blank or "disabled" prevents student view.'),
 
              'plc.roles.denied'=> '<b>'.&mt('Disallow live chatroom use for Roles').
                                   '</b><br />"<tt>st</tt>": '.
@@ -1608,6 +1606,9 @@ sub crsenv {
 	     'allow_limited_html_in_feedback'
 	         => '<b>'.&mt('Allow limited HTML in discussion posts').'</b><br />'.
 	            '('.&mt('Set value to "[_1]" to allow',"<tt>yes</tt>").')',
+             'allow_discussion_post_editing'
+                 => '<b>'.&mt('Allow users to edit/delete their own discussion posts').'</b><br />'.
+                    '('.&mt('Set value to "[_1]" to allow',"<tt>yes</tt>").')',
 	     'rndseed'
 	         => '<b>'.&mt('Randomization algorithm used').'</b> <br />'.
                     '<font color="red">'.&mt('Modifying this will make problems').' '.
@@ -1646,9 +1647,11 @@ sub crsenv {
         my @Display_Order = ('url','description','courseid','grading',
                              'default_xml_style','pageseparators',
                              'question.email','comment.email','policy.email',
+                             'student_classlist_view',
                              'plc.roles.denied','plc.users.denied',
                              'pch.roles.denied','pch.users.denied',
                              'allow_limited_html_in_feedback',
+                             'allow_discussion_post_editing',
                              'languages',
 			     'nothideprivileged',
                              'rndseed',