loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.148, 2006/07/31 18:43:12	version 1.149, 2006/08/04 21:01:52
Line 998 sub crumbs {	Line 998 sub crumbs {
foreach my $dir (split('/',$uri)) {	foreach my $dir (split('/',$uri)) {
if (! $dir) { next; }	if (! $dir) { next; }
$path .= $dir;	$path .= $dir;
if ($path eq $uri) {
if ($skiplast) {	if ($skiplast) {
$output.=$dir;	$output.=$dir;
last;	last;
Line 1014 sub crumbs {	Line 1014 sub crumbs {
$output.=qq{<a href="$linkpath" $target>$dir</a>/};	$output.=qq{<a href="$linkpath" $target>$dir</a>/};
}	}
} else {	} else {
$output.=$uri;	foreach my $dir (split('/',$uri)) {
	if (! $dir) { next; }
	$output.=$dir.'/';
	}
}	}
unless ($uri=~/\/$/) { $output=~s/\/$//; }	if ($uri !~ m\|/$\|) { $output=~s\|/$\|\|; }
return $output.'</font>'.($noformat?'':'</b></tt><br />');	return $output.'</font>'.($noformat?'':'</b></tt><br />');
}	}