version 1.145, 2006/06/08 13:56:31
|
version 1.148, 2006/06/23 07:32:02
|
Line 1046 sub display_line {
|
Line 1046 sub display_line {
|
# links |
# links |
&dynmetaread($filelink); |
&dynmetaread($filelink); |
$r->print('<td>'); |
$r->print('<td>'); |
|
&coursecontext($r,$filelink); |
&dynmetaprint($r,$filelink,'goto_list'); |
&dynmetaprint($r,$filelink,'goto_list'); |
&dynmetaprint($r,$filelink,'comefrom_list'); |
&dynmetaprint($r,$filelink,'comefrom_list'); |
&dynmetaprint($r,$filelink,'sequsage_list'); |
&dynmetaprint($r,$filelink,'sequsage_list'); |
Line 1148 sub display_line {
|
Line 1149 sub display_line {
|
|
|
} |
} |
|
|
|
sub coursecontext { |
|
my ($r,$filelink)=@_; |
|
my $filesymb=&Apache::lonnet::symbread($filelink); |
|
if ($filesymb) { |
|
my ($map,$index,$resource)=&Apache::lonnet::decode_symb($filesymb); |
|
$r->print(&mt('Already in this course:<br />[_1] in folder/map [_2].<br />', |
|
&Apache::lonnet::gettitle($resource), |
|
&Apache::lonnet::gettitle($map))); |
|
} |
|
} |
|
|
sub showpreview { |
sub showpreview { |
my ($filelink)=@_; |
my ($filelink)=@_; |
my ($curfext)=($filelink=~/\.(\w+)$/); |
my ($curfext)=($filelink=~/\.(\w+)$/); |
Line 1162 sub showpreview {
|
Line 1174 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); |