version 1.147, 2006/06/23 07:02:51
|
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+)$/); |