--- loncom/interface/loncommon.pm 2009/09/26 21:46:38 1.891 +++ loncom/interface/loncommon.pm 2009/10/01 17:25:17 1.893 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.891 2009/09/26 21:46:38 bisitz Exp $ +# $Id: loncommon.pm,v 1.893 2009/10/01 17:25:17 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2964,7 +2964,7 @@ sub aboutmewrapper { if (!defined($username) && !defined($domain)) { return; } - return ''.$link.''; } @@ -4046,7 +4046,7 @@ sub determinedomain { 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'};