--- loncom/xml/lonxml.pm	2003/04/03 21:58:09	1.244
+++ loncom/xml/lonxml.pm	2003/04/03 22:25:49	1.245
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # XML Parser Module 
 #
-# $Id: lonxml.pm,v 1.244 2003/04/03 21:58:09 albertel Exp $
+# $Id: lonxml.pm,v 1.245 2003/04/03 22:25:49 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1391,7 +1391,7 @@ sub description {
 # calls to lonnet functions for this setup.
 # - looks for form.grade_ parameters
 sub whichuser {
-  my ($symb,$courseid,$domain,$name);
+  my ($symb,$courseid,$domain,$name,$publicuser);
   if (defined($ENV{'form.grade_symb'})) {
     my $tmp_courseid=$ENV{'form.grade_courseid'};
     my $allowed=&Apache::lonnet::allowed('mgr',$tmp_courseid);
@@ -1413,7 +1413,7 @@ sub whichuser {
 	  $name.=$ENV{'form.username'};
       }
   }
-  return ($symb,$courseid,$domain,$name);
+  return ($symb,$courseid,$domain,$name,$publicuser);
 }
 
 1;