--- loncom/lonnet/perl/lonnet.pm	2003/04/03 22:17:09	1.359
+++ loncom/lonnet/perl/lonnet.pm	2003/04/03 22:25:49	1.360
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.359 2003/04/03 22:17:09 albertel Exp $
+# $Id: lonnet.pm,v 1.360 2003/04/03 22:25:49 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3096,8 +3096,8 @@ sub EXT {
     my $courseid;
     my $publicuser;
     if (!($uname && $udom)) {
-      (my $cursymb,$courseid,$udom,$uname)=&Apache::lonxml::whichuser();
-      if ($udom eq 'public' and $uname =~ /^public/) { $publicuser='1'; }
+      (my $cursymb,$courseid,$udom,$uname,$publicuser)=
+	  &Apache::lonxml::whichuser();
       if (!$symbparm) {	$symbparm=$cursymb; }
     } else {
 	$courseid=$ENV{'request.course.id'};