--- loncom/interface/lonindexer.pm	2006/06/23 06:39:09	1.146
+++ 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.146 2006/06/23 06:39:09 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('<td>');
+	   &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:<br />[_1] in folder/map [_2].<br />',
+	      &Apache::lonnet::gettitle($resource),
+	      &Apache::lonnet::gettitle($map)));
+    }
+}
+
 sub showpreview {
     my ($filelink)=@_;
     my ($curfext)=($filelink=~/\.(\w+)$/);
@@ -1162,6 +1174,11 @@ sub showpreview {
           $output=join("\n",<FH>);
           close(FH);
        } 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);
 # Is access denied? Don't render, don't store
           if ($output=~/LONCAPAACCESSCONTROLERRORSCREEN/s) {