--- rat/lonuserstate.pm 2006/05/11 23:54:06 1.110 +++ rat/lonuserstate.pm 2006/05/25 21:09:45 1.113 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Construct and maintain state and binary representation of course for user # -# $Id: lonuserstate.pm,v 1.110 2006/05/11 23:54:06 albertel Exp $ +# $Id: lonuserstate.pm,v 1.113 2006/05/25 21:09:45 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -595,10 +595,8 @@ sub readmap { if ($key=~/^src_/) { $hash{$key}=&putinversion($hash{$key}); } elsif ($key =~ /^(map_(?:start|finish|pc)_)(.*)/) { - &Apache::lonnet::logthis($key); my ($type, $url) = ($1,$2); my $value = $hash{$key}; - delete($hash{$key}); $hash{$type.&putinversion($url)}=$value; } } @@ -683,7 +681,7 @@ sub evalstate { if (-e $fn) { my @conditions=(); { - my $fh=Apache::File->new($fn); + open(my $fh,$fn); @conditions=<$fh>; } my $safeeval = new Safe;