--- loncom/interface/lonindexer.pm	2003/01/15 23:58:58	1.56
+++ loncom/interface/lonindexer.pm	2003/02/13 23:06:10	1.60
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Directory Indexer
 #
-# $Id: lonindexer.pm,v 1.56 2003/01/15 23:58:58 www Exp $
+# $Id: lonindexer.pm,v 1.60 2003/02/13 23:06:10 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -34,15 +34,10 @@
 # 05/9-05/19/2001 H. K. Ng
 # 05/21/2001 H. K. Ng
 # 05/23/2001 H. K. Ng
-# 5/31,6/1,6/2,6/15 Scott Harrison
 # 6/26,7/8 H. K. Ng
-# 8/6,8/7,8/10 Scott Harrison
 # 8/14 H. K. Ng
-# 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
 # 6/29/2002 H. K. Ng
 #
 ###
@@ -687,8 +682,12 @@ sub display_line {
 	$r->print ('<a href="javascript:gothere(\''.$filecom[0].
 		   '/\')"><img src="'.$iconpath.'server.gif"');
 	$r->print (' border="0" /></a>'."\n");
-	$r->print("Domain - $listname (".
-      $Apache::lonnet::domaindescription{$listname}.") $tabtag</tr></form>\n");
+	$r->print ("Domain - $listname ");
+	if ($Apache::lonnet::domaindescription{$listname}) {
+	    $r->print("(".$Apache::lonnet::domaindescription{$listname}.
+		      ")");
+	}
+	$r->print (" $tabtag</tr></form>\n");
 	return OK;
 
 # display user directory
@@ -710,7 +709,11 @@ sub display_line {
 	$r->print ('<a href="javascript:gothere(\''.$curdir.'\')"><img src='.
 		   $iconpath.'quill.gif border="0" name="'.$msg.
 		   '" height="22" /></a>');
-	$r->print ($listname.$tabtag.'</tr></form>'."\n");
+	my $domain=(split(m|/|,$startdir))[2];
+	my $plainname=&Apache::loncommon::plainname($listname,$domain);
+	$r->print ($listname);
+	if (defined($plainname) && $plainname) { $r->print(" ($plainname) "); }
+	$r->print ($tabtag.'</tr></form>'."\n");
 	return OK;
     }
 
@@ -838,12 +841,19 @@ sub display_line {
 	}
         if ($hash{'display_attrs_8'} == 1) {
             my $output='';
-	    if (&Apache::loncommon::fileembstyle($curfext) eq 'ssi') {
+            my $embstyle=&Apache::loncommon::fileembstyle($curfext);
+	    if ($embstyle eq 'ssi') {
 	       $output=&Apache::lonnet::ssi($filelink);
                $output=~s/^.*\<body[^\>]*\>//si;
                $output=~s/\<\/body\s*\>.*$//si;
                $output='<font size="-2">'.$output.'</font>';
-	   }
+	   } elsif ($embstyle eq 'img') {
+               $output='<img src="'.$filelink.'" />';
+           } elsif ($filelink=~/^\/res\/(\w+)\/(\w+)\//) {
+               $output='<img src="http://'.
+		 $Apache::lonnet::hostname{&Apache::lonnet::homeserver($2,$1)}.
+                 '/cgi-bin/thumbnail.gif?url='.$filelink.'" />';
+           }
 	   $r->print('<td valign=bottom> '.($output eq '' ? '&nbsp;':$output).
 		      " </td>\n");
         }