loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.1535, 2025/02/07 02:06:07	version 1.1536, 2025/02/18 19:30:43
Line 15116 sub whichuser {	Line 15116 sub whichuser {
$courseid=$tmp_courseid;	$courseid=$tmp_courseid;
($domain)=&get_env_multiple('form.grade_domain');	($domain)=&get_env_multiple('form.grade_domain');
($name)=&get_env_multiple('form.grade_username');	($name)=&get_env_multiple('form.grade_username');
	if ($name eq 'public' && $domain eq 'public') {
	$publicuser = 1;
	}
return ($symb,$courseid,$domain,$name,$publicuser);	return ($symb,$courseid,$domain,$name,$publicuser);
}	}
}	}
Line 15132 sub whichuser {	Line 15135 sub whichuser {
$env{'form.username'}.=time.rand(10000000);	$env{'form.username'}.=time.rand(10000000);
}	}
$name.=$env{'form.username'};	$name.=$env{'form.username'};
	$publicuser = 1;
}	}
return ($symb,$courseid,$domain,$name,$publicuser);	return ($symb,$courseid,$domain,$name,$publicuser);