--- loncom/interface/lonparmset.pm	2004/07/19 17:57:25	1.169
+++ 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.169 2004/07/19 17:57:25 matthew 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?)
 
@@ -689,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'};
@@ -1592,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').' '.
@@ -1634,6 +1641,7 @@ sub crsenv {
                              'plc.roles.denied','plc.users.denied',
                              'pch.roles.denied','pch.users.denied',
                              'allow_limited_html_in_feedback',
+                             'allow_discussion_post_editing',
                              'languages',
 			     'nothideprivileged',
                              'rndseed',