--- loncom/interface/lonindexer.pm	2001/12/13 13:42:15	1.29
+++ loncom/interface/lonindexer.pm	2002/01/17 14:10:44	1.34
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Directory Indexer
 #
-# $Id: lonindexer.pm,v 1.29 2001/12/13 13:42:15 harris41 Exp $
+# $Id: lonindexer.pm,v 1.34 2002/01/17 14:10:44 harris41 Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -41,6 +41,8 @@
 # 8/28,10/15,11/28,11/29 Scott Harrison
 # 11/30 Matthew Hall
 # 12/11,12/13 Scott Harrison
+# YEAR=2002
+# 1/17 Scott Harrison
 #
 ###
 
@@ -62,6 +64,7 @@ package Apache::lonindexer;
 # ------------------------------------------------- modules used by this module
 use strict;
 use Apache::lonnet();
+use Apache::loncommon();
 use Apache::Constants qw(:common);
 use Apache::File;
 use GDBM_File;
@@ -77,10 +80,6 @@ my $extrafield; # default extra table ce
 my $fnum; # file counter
 my $dnum; # directory counter
 
-# ---------------------------------------------------------------------- BEGIN
-sub BEGIN {
-}
-
 # ----------------------------- Handling routine called via Apache and mod_perl
 sub handler {
     my $r = shift;
@@ -486,7 +485,7 @@ sub match_ext {
  	if ($fnptr == 0 and $unpackline[3] ne "") {
 	    my $embstyle = &Apache::loncommon::fileembstyle($fext);
             push @trimlist,$line if (defined($embstyle) && 
-				     $embstyle ne 'hdn' );
+				     ($embstyle ne 'hdn' or $fext eq 'meta'));
 	} else {
 	    push @trimlist,$line;
 	}
@@ -603,8 +602,10 @@ sub display_line {
 	    $title = &Apache::lonnet::metadata($filelink,'title')
 		if ($metafile == 1);
 	    $title=$listname unless $title;
-	    $r->print("<a href='javascript:select_data(\"",
-	              $title,'","',$filelink,"\")'>");
+	    my $titleesc=$title;
+	    $titleesc=~s/\'/\\'/;
+            $r->print("<a href=\"javascript:select_data('",
+                      $titleesc,"','",$filelink,"')\">");
 	    $r->print("<img src='",$iconpath,"select.gif' border='0' /></a>".
 		      "\n");
 	    $r->print("</td><td valign='bottom' nowrap bgcolor=$fileclr>");