--- loncom/interface/lonindexer.pm 2006/06/23 07:02:51 1.147 +++ loncom/interface/lonindexer.pm 2006/06/23 07:32:02 1.148 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Directory Indexer # -# $Id: lonindexer.pm,v 1.147 2006/06/23 07:02:51 www Exp $ +# $Id: lonindexer.pm,v 1.148 2006/06/23 07:32:02 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1046,6 +1046,7 @@ sub display_line { # links &dynmetaread($filelink); $r->print(''); + &coursecontext($r,$filelink); &dynmetaprint($r,$filelink,'goto_list'); &dynmetaprint($r,$filelink,'comefrom_list'); &dynmetaprint($r,$filelink,'sequsage_list'); @@ -1148,6 +1149,17 @@ 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:
[_1] in folder/map [_2].
', + &Apache::lonnet::gettitle($resource), + &Apache::lonnet::gettitle($map))); + } +} + sub showpreview { my ($filelink)=@_; my ($curfext)=($filelink=~/\.(\w+)$/);