--- loncom/lonnet/perl/lonnet.pm	2010/09/24 03:15:04	1.1084
+++ loncom/lonnet/perl/lonnet.pm	2010/09/24 13:15:47	1.1085
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1084 2010/09/24 03:15:04 raeburn Exp $
+# $Id: lonnet.pm,v 1.1085 2010/09/24 13:15:47 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -5065,6 +5065,11 @@ sub is_course_owner {
 
 sub is_advanced_user {
     my ($udom,$uname) = @_;
+    if ($udom ne '' && $uname ne '') {
+        if (($udom eq $env{'user.domain'}) && ($uname eq $env{'user.name'})) {
+            return $env{'user.adv'};  
+        }
+    }
     my %roleshash = &get_my_roles($uname,$udom,'userroles',undef,undef,undef,1);
     my %allroles;
     my $is_adv;