version 1.145, 2006/06/08 13:56:31
|
version 1.147, 2006/06/23 07:02:51
|
Line 1162 sub showpreview {
|
Line 1162 sub showpreview {
|
$output=join("\n",<FH>); |
$output=join("\n",<FH>); |
close(FH); |
close(FH); |
} else { |
} else { |
|
# In update display mode, remove old cache. This is done to retroactively |
|
# clean up course context renderings. |
|
if (-e $cache) { |
|
unlink($cache); |
|
} |
$output=&Apache::lonnet::ssi_body($filelink); |
$output=&Apache::lonnet::ssi_body($filelink); |
|
# Is access denied? Don't render, don't store |
if ($output=~/LONCAPAACCESSCONTROLERRORSCREEN/s) { |
if ($output=~/LONCAPAACCESSCONTROLERRORSCREEN/s) { |
$output=''; |
$output=''; |
} else { |
# Was this rendered in course content? Don't store |
|
} elsif (!&Apache::lonnet::symbread($filelink)) { |
open(FH,">$cache"); |
open(FH,">$cache"); |
print FH $output; |
print FH $output; |
close(FH); |
close(FH); |