--- loncom/interface/lonparmset.pm	2004/08/17 20:32:50	1.168.2.1
+++ loncom/interface/lonparmset.pm	2004/08/10 18:28:55	1.172
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.168.2.1 2004/08/17 20:32:50 albertel Exp $
+# $Id: lonparmset.pm,v 1.172 2004/08/10 18:28:55 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?)
 
@@ -585,8 +585,8 @@ sub extractResourceInformation {
 	    my $resid=$2;
 	    my $id=$mapid.'.'.$resid;
 	    my $srcf=$$bighash{$_};
+#	    if ($srcf=~/\.(problem|exam|quiz|assess|survey|form)$/) {
 	    if (1) {
-		$srcf=~/\.(\w+)$/;
 		$$ids[$#$ids+1]=$id;
 		$$typep{$id}=$1;
 		$$keyp{$id}='';
@@ -595,10 +595,6 @@ sub extractResourceInformation {
                     my $key=$_;
                     my $allkey=$1;
                     $allkey=~s/\_/\./g;
-		    if (&Apache::lonnet::metadata($srcf,$key.'.hidden') eq 
-			'parm') {
-			next; #hide hidden things
-		    }
                     my $display= &Apache::lonnet::metadata($srcf,$key.'.display');
                     my $name=&Apache::lonnet::metadata($srcf,$key.'.name');
                     my $part= &Apache::lonnet::metadata($srcf,$key.'.part');
@@ -693,8 +689,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'};
@@ -1557,6 +1557,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>": '.
@@ -1595,6 +1596,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').' '.
@@ -1633,9 +1637,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',