loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.77, 2004/06/12 01:09:31	version 1.78, 2004/06/17 18:22:13
Line 841 sub r_print {	Line 841 sub r_print {
# ------------------------------------------------------- Puts directory header	# ------------------------------------------------------- Puts directory header

sub crumbs {	sub crumbs {
my ($uri,$target,$prefix,$form,$size)=@_;	my ($uri,$target,$prefix,$form,$size,$noformat)=@_;
if (! defined($size)) {	if (! defined($size)) {
$size = '+2';	$size = '+2';
}	}
my $output='<br /><tt><b><font size="'.$size.'">'.$prefix.'/';	my $output='';
	unless ($noformat) { $output.='<br /><tt><b>'; }
	$output.='<font size="'.$size.'">'.$prefix.'/';
if ($ENV{'user.adv'}) {	if ($ENV{'user.adv'}) {
my $path=$prefix.'/';	my $path=$prefix.'/';
foreach (split('/',$uri)) {	foreach (split('/',$uri)) {
Line 862 sub crumbs {	Line 864 sub crumbs {
$output.=$uri;	$output.=$uri;
}	}
unless ($uri=~/\/$/) { $output=~s/\/$//; }	unless ($uri=~/\/$/) { $output=~s/\/$//; }
return $output.'</font></b></tt><br />';	return $output.'</font>'.($noformat?'':'</b></tt><br />');
}	}

# ------------------------------------------------- Output headers for HTMLArea	# ------------------------------------------------- Output headers for HTMLArea