[LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm

[raeburn]

raeburn		Tue Feb 18 19:30:43 2025 EDT

  Modified files:              
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  - Commit log entry for lonxml.pm rev. 1.245 (4/3/2003) falsely claimed: 
    "lonxml::whichuser, now says if the user is public". This was still false
    after whichuser() moved to lonnet.pm (rev. 1.790; 10/12/2006). 
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.1535 loncom/lonnet/perl/lonnet.pm:1.1536
--- loncom/lonnet/perl/lonnet.pm:1.1535	Fri Feb  7 02:06:07 2025
+++ loncom/lonnet/perl/lonnet.pm	Tue Feb 18 19:30:43 2025
@@ -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 @@
 	    $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 @@
 	    $env{'form.username'}.=time.rand(10000000);
 	}
 	$name.=$env{'form.username'};
+        $publicuser = 1;
     }
     return ($symb,$courseid,$domain,$name,$publicuser);