Return to lonuserstate.pm CVS log | Up to [LON-CAPA] / rat |
version 1.107.2.3, 2006/05/12 15:28:50 | version 1.113, 2006/05/25 21:09:45 |
---|---|
Line 545 sub hiddenurls { | Line 545 sub hiddenurls { |
sub readmap { | sub readmap { |
my $short=shift; | my $short=shift; |
$short=~s/^\///; | $short=~s/^\///; |
my %cenv=&Apache::lonnet::coursedescription($short); | my %cenv=&Apache::lonnet::coursedescription($short,{'freshen_cache'=>1}); |
my $fn=$cenv{'fn'}; | my $fn=$cenv{'fn'}; |
my $uri; | my $uri; |
$short=~s/\//\_/g; | $short=~s/\//\_/g; |
Line 681 sub evalstate { | Line 681 sub evalstate { |
if (-e $fn) { | if (-e $fn) { |
my @conditions=(); | my @conditions=(); |
{ | { |
my $fh=Apache::File->new($fn); | open(my $fh,$fn); |
@conditions=<$fh>; | @conditions=<$fh>; |
} | } |
my $safeeval = new Safe; | my $safeeval = new Safe; |