[LON-CAPA-cvs] cvs: loncom /interface lonindexer.pm

[albertel]

albertel		Thu Feb 13 18:06:10 2003 EDT

  Modified files:              
    /loncom/interface	lonindexer.pm 
  Log:
  - added authors name to the lonindexer listing
  
  
Index: loncom/interface/lonindexer.pm
diff -u loncom/interface/lonindexer.pm:1.59 loncom/interface/lonindexer.pm:1.60
--- loncom/interface/lonindexer.pm:1.59	Mon Feb  3 13:03:52 2003
+++ loncom/interface/lonindexer.pm	Thu Feb 13 18:06:10 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Directory Indexer
 #
-# $Id: lonindexer.pm,v 1.59 2003/02/03 18:03:52 harris41 Exp $
+# $Id: lonindexer.pm,v 1.60 2003/02/13 23:06:10 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -682,8 +682,12 @@
 	$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
@@ -705,7 +709,11 @@
 	$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;
     }