loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.131, 2006/06/01 19:30:49	version 1.132, 2006/06/13 14:42:24
Line 948 sub r_print {	Line 948 sub r_print {
# ------------------------------------------------------- Puts directory header	# ------------------------------------------------------- Puts directory header

sub crumbs {	sub crumbs {
my ($uri,$target,$prefix,$form,$size,$noformat)=@_;	my ($uri,$target,$prefix,$form,$size,$noformat,$skiplast)=@_;
if (! defined($size)) {	if (! defined($size)) {
$size = '+2';	$size = '+2';
}	}
Line 964 sub crumbs {	Line 964 sub crumbs {
foreach my $dir (split('/',$uri)) {	foreach my $dir (split('/',$uri)) {
if (! $dir) { next; }	if (! $dir) { next; }
$path .= $dir;	$path .= $dir;
unless ($path eq $uri) { $path.='/'; }	if ($path eq $uri) {
	if ($skiplast) {
	$output.=$dir;
	last;
	}
	} else {
	$path.='/';
	}
my $linkpath = &Apache::loncommon::escape_single($path);	my $linkpath = &Apache::loncommon::escape_single($path);
if ($form) {	if ($form) {
$linkpath=	$linkpath=