--- loncom/interface/lonindexer.pm 2003/02/03 18:03:52 1.59 +++ 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.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 @@ sub display_line { $r->print ('print (' border="0" />'."\n"); - $r->print("Domain - $listname (". - $Apache::lonnet::domaindescription{$listname}.") $tabtag\n"); + $r->print ("Domain - $listname "); + if ($Apache::lonnet::domaindescription{$listname}) { + $r->print("(".$Apache::lonnet::domaindescription{$listname}. + ")"); + } + $r->print (" $tabtag\n"); return OK; # display user directory @@ -705,7 +709,11 @@ sub display_line { $r->print (''); - $r->print ($listname.$tabtag.''."\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.''."\n"); return OK; }