loncom/interface/lonindexer.pm - diff

Return to lonindexer.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.59, 2003/02/03 18:03:52	version 1.60, 2003/02/13 23:06:10
Line 682 sub display_line {	Line 682 sub display_line {
$r->print ('<a href="javascript:gothere(\''.$filecom[0].	$r->print ('<a href="javascript:gothere(\''.$filecom[0].
'/\')"><img src="'.$iconpath.'server.gif"');	'/\')"><img src="'.$iconpath.'server.gif"');
$r->print (' border="0" /></a>'."\n");	$r->print (' border="0" /></a>'."\n");
$r->print("Domain - $listname (".	$r->print ("Domain - $listname ");
$Apache::lonnet::domaindescription{$listname}.") $tabtag</tr></form>\n");	if ($Apache::lonnet::domaindescription{$listname}) {
	$r->print("(".$Apache::lonnet::domaindescription{$listname}.
	")");
	}
	$r->print (" $tabtag</tr></form>\n");
return OK;	return OK;

# display user directory	# display user directory
Line 705 sub display_line {	Line 709 sub display_line {
$r->print ('<a href="javascript:gothere(\''.$curdir.'\')"><img src='.	$r->print ('<a href="javascript:gothere(\''.$curdir.'\')"><img src='.
$iconpath.'quill.gif border="0" name="'.$msg.	$iconpath.'quill.gif border="0" name="'.$msg.
'" height="22" /></a>');	'" 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;	return OK;
}	}