loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.246, 2002/06/27 14:08:06	version 1.247, 2002/06/27 16:03:55
Line 1740 sub allowed {	Line 1740 sub allowed {
# Restricted by state or randomout?	# Restricted by state or randomout?

if ($thisallowed=~/X/) {	if ($thisallowed=~/X/) {
if ((&condval($statecond)) &&	if ($ENV{'acc.randomout'}) {
(!$ENV{'acc.randomout'}=~/\&$ENV{'request.symb'}\&/)) {	my $symb=&symbread();
	if ($ENV{'acc.randomout'}=~/\&$symb\&/) { return ''; }
	}
	if (&condval($statecond)) {
return '2';	return '2';
} else {	} else {
return '';	return '';