loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.359, 2003/04/03 22:17:09	version 1.360, 2003/04/03 22:25:49
Line 3096 sub EXT {	Line 3096 sub EXT {
my $courseid;	my $courseid;
my $publicuser;	my $publicuser;
if (!($uname && $udom)) {	if (!($uname && $udom)) {
(my $cursymb,$courseid,$udom,$uname)=&Apache::lonxml::whichuser();	(my $cursymb,$courseid,$udom,$uname,$publicuser)=
if ($udom eq 'public' and $uname =~ /^public/) { $publicuser='1'; }	&Apache::lonxml::whichuser();
if (!$symbparm) { $symbparm=$cursymb; }	if (!$symbparm) { $symbparm=$cursymb; }
} else {	} else {
$courseid=$ENV{'request.course.id'};	$courseid=$ENV{'request.course.id'};