--- loncom/interface/lonindexer.pm 2004/03/30 17:55:26 1.98
+++ loncom/interface/lonindexer.pm 2004/05/04 20:43:21 1.100
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Directory Indexer
#
-# $Id: lonindexer.pm,v 1.98 2004/03/30 17:55:26 www Exp $
+# $Id: lonindexer.pm,v 1.100 2004/05/04 20:43:21 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();').
- '');
+'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("print('javascript:document.forms.fileattr.action="'.$reshome.'";document.forms.fileattr.submit();');
+ } else {
+ $r->print($reshome);
+ }
+ $r->print("'>".&mt('Home').'');
+ }
+ $r->print('');
# ------------------------------------------------------ Remember where we were
&Apache::loncommon::storeresurl($storeuri);
&Apache::lonhtmlcommon::store_recent('residx',$storeuri,$storeuri);
@@ -837,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("");
@@ -849,7 +860,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,'<>&"');
$r->print("