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

[raeburn]

raeburn		Thu Oct  1 17:25:17 2009 EDT

  Modified files:              
    /loncom/interface	loncommon.pm 
  Log:
  - Better choice of default domain for multi-domain servers.
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.892 loncom/interface/loncommon.pm:1.893
--- loncom/interface/loncommon.pm:1.892	Sun Sep 27 15:27:26 2009
+++ loncom/interface/loncommon.pm	Thu Oct  1 17:25:17 2009
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.892 2009/09/27 15:27:26 amueller Exp $
+# $Id: loncommon.pm,v 1.893 2009/10/01 17:25:17 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -4046,7 +4046,7 @@
     my $domain=shift;
     if (! $domain) {
         # Determine domain if we have not been given one
-        $domain = $Apache::lonnet::perlvar{'lonDefDomain'};
+        $domain = &Apache::lonnet::default_login_domain();
         if ($env{'user.domain'}) { $domain=$env{'user.domain'}; }
         if ($env{'request.role.domain'}) { 
             $domain=$env{'request.role.domain'};