loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.35, 2003/12/29 17:11:53	version 1.36, 2003/12/29 19:01:27
Line 842 sub crumbs {	Line 842 sub crumbs {
my ($uri,$target,$prefix)=@_;	my ($uri,$target,$prefix)=@_;
my $output='<br /><tt><b><font size="+2">'.$prefix.'/';	my $output='<br /><tt><b><font size="+2">'.$prefix.'/';
if ($ENV{'user.adv'}) {	if ($ENV{'user.adv'}) {
my $path=$prefix.'/';	my $path=$prefix;
foreach (split('/',$uri)) {	foreach (split('/',$uri)) {
unless ($_) { next; }	unless ($_) { next; }
$path.=$_.'/';	$path.='/'.$_;
$output.='<a href="'.$path.'"'.($target?' target="'.$target.'"':'').'>'.$_.'</a>/';	$output.='<a href="'.$path.'"'.($target?' target="'.$target.'"':'').'>'.$_.'</a>/';
}	}
} else {	} else {
$output.=$uri;	$output.=$uri;
}	}
	unless ($uri=~/\/$/) { $output=~s/\/$//; }
return $output.'</font></b></tt><br />';	return $output.'</font></b></tt><br />';
}	}