--- loncom/lonnet/perl/lonnet.pm	2025/02/07 02:06:07	1.1535
+++ loncom/lonnet/perl/lonnet.pm	2025/02/18 19:30:43	1.1536
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1535 2025/02/07 02:06:07 raeburn Exp $
+# $Id: lonnet.pm,v 1.1536 2025/02/18 19:30:43 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -15116,6 +15116,9 @@ sub whichuser {
 	    $courseid=$tmp_courseid;
 	    ($domain)=&get_env_multiple('form.grade_domain');
 	    ($name)=&get_env_multiple('form.grade_username');
+            if ($name eq 'public' && $domain eq 'public') {
+                $publicuser = 1;
+            }
 	    return ($symb,$courseid,$domain,$name,$publicuser);
 	}
     }
@@ -15132,6 +15135,7 @@ sub whichuser {
 	    $env{'form.username'}.=time.rand(10000000);
 	}
 	$name.=$env{'form.username'};
+        $publicuser = 1;
     }
     return ($symb,$courseid,$domain,$name,$publicuser);