--- loncom/lonnet/perl/lonnet.pm 2004/10/26 17:20:09 1.554 +++ loncom/lonnet/perl/lonnet.pm 2004/10/27 18:23:08 1.555 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.554 2004/10/26 17:20:09 www Exp $ +# $Id: lonnet.pm,v 1.555 2004/10/27 18:23:08 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -3058,9 +3058,6 @@ sub allowed { return ''; } } - if (!defined($ENV{'user.state.'.$ENV{'request.course.id'}})) { - &Apache::lonuserstate::evalstate(); - } if (&condval($statecond)) { return '2'; } else { @@ -3876,6 +3873,9 @@ sub GetFileTimestamp { sub directcondval { my $number=shift; + if (!defined($ENV{'user.state.'.$ENV{'request.course.id'}})) { + &Apache::lonuserstate::evalstate(); + } if ($ENV{'user.state.'.$ENV{'request.course.id'}}) { return substr($ENV{'user.state.'.$ENV{'request.course.id'}},$number,1); } else {