--- loncom/interface/lonparmset.pm	2004/07/27 23:35:34	1.171
+++ 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.171 2004/07/27 23:35:34 www Exp $
+# $Id: lonparmset.pm,v 1.172 2004/08/10 18:28:55 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -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'};