--- loncom/interface/lonindexer.pm	2004/03/30 02:50:27	1.97
+++ loncom/interface/lonindexer.pm	2004/05/07 15:43:45	1.101
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Directory Indexer
 #
-# $Id: lonindexer.pm,v 1.97 2004/03/30 02:50:27 www Exp $
+# $Id: lonindexer.pm,v 1.101 2004/05/07 15:43:45 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -452,8 +452,19 @@ END
 				(($ENV{'form.catalogmode'} eq 'groupimport')?
 				 'document.forms.fileattr':'')).
 		  &Apache::lonhtmlcommon::select_recent('residx','resrecent',
-'this.form.action=this.form.resrecent.options[this.form.resrecent.selectedIndex].value;this.form.submit();').
-		  '</form>');
+'this.form.action=this.form.resrecent.options[this.form.resrecent.selectedIndex].value;this.form.submit();'));
+# -------------------------------------------------------- Resource Home Button
+	my $reshome=$ENV{'course.'.$ENV{'request.course.id'}.'.reshome'};
+	if ($reshome) {
+	    $r->print("<font size='+2'><a href='");
+	    if ($ENV{'form.catalogmode'} eq 'groupimport') {
+		$r->print('javascript:document.forms.fileattr.action="'.$reshome.'";document.forms.fileattr.submit();');
+	    } else {
+		$r->print($reshome);
+	    }
+	    $r->print("'>".&mt('Home').'</a></font>');
+	}
+	$r->print('</form>');
 # ------------------------------------------------------ Remember where we were
 	&Apache::loncommon::storeresurl($storeuri);
 	&Apache::lonhtmlcommon::store_recent('residx',$storeuri,$storeuri);
@@ -732,9 +743,14 @@ sub display_line {
 
 # display uplink arrow
     if ($filecom[1] eq 'viewOneUp') {
+	my $updir=$startdir;
+# -------------- Filter out sequence containment in crumbs and "recent folders"
+	$updir='/'.(split(/\.(page|sequence)\/\//,$startdir))[-1];
+	$updir=~s/\/+/\//g;
+
 	$r->print("<tr valign='$valign' bgcolor=$fileclr>$extrafield");
 	$r->print("<td>\n");
-	$r->print ('<form method="post" name="dirpathUP" action="'.$startdir.
+	$r->print ('<form method="post" name="dirpathUP" action="'.$updir.
 		   '/" '.
 		   'onSubmit="return rep_dirpath(\'UP\','.
 		   'document.forms.fileattr.acts.value)" '.
@@ -832,7 +848,7 @@ sub display_line {
 	    $title = &Apache::lonnet::metadata($filelink,'title')
 		if ($metafile == 1);
 	    $title=$listname unless $title;
-	    my $titleesc=HTML::Entities::encode($title);
+	    my $titleesc=HTML::Entities::encode($title,'<>&"');
 	    $titleesc=~s/\'/\\'/; #' (clean up this spare quote)
             $r->print("<a href=\"javascript:select_data(\'",
                       $titleesc,"','",$filelink,"')\">");
@@ -841,10 +857,10 @@ sub display_line {
 	    $r->print("</td><td nowrap>");
 	} elsif ($ENV{'form.catalogmode'} eq 'groupimport') {
 	    $title=$listname;
-	    #$title = &Apache::lonnet::metadata($filelink,'title')
-		#if ($metafile == 1);
+	    $title = &Apache::lonnet::metadata($filelink,'title')
+		if ($metafile == 1);
 	    $title=$listname unless $title;
-	    my $titleesc=&HTML::Entities::encode($title);
+	    my $titleesc=&HTML::Entities::encode($title,'<>&"');
 	    $r->print("<form name='form$fnum'>\n");
 	    $r->print("<input type='checkbox' name='filelink"."' ".
 		      "value='$filelink' onClick='".