[LON-CAPA-cvs] cvs: loncom /interface lonparmset.pm

[albertel]

albertel		Tue Aug 10 14:28:55 2004 EDT

  Modified files:              
    /loncom/interface	lonparmset.pm 
  Log:
   BUG# 3286
  
  
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.171 loncom/interface/lonparmset.pm:1.172
--- loncom/interface/lonparmset.pm:1.171	Tue Jul 27 19:35:34 2004
+++ loncom/interface/lonparmset.pm	Tue Aug 10 14:28:55 2004
@@ -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 @@
     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'};