--- 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+)$/);
|