loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.98, 2004/11/23 14:53:05	version 1.102, 2004/12/02 00:01:34
Line 899 sub crumbs {	Line 899 sub crumbs {
if (! defined($size)) {	if (! defined($size)) {
$size = '+2';	$size = '+2';
}	}
	if ($target) {
	$target = ' target="'.
	&Apache::loncommon::escape_single($target).'"';
	}
my $output='';	my $output='';
unless ($noformat) { $output.='<br /><tt><b>'; }	unless ($noformat) { $output.='<br /><tt><b>'; }
$output.='<font size="'.$size.'">'.$prefix.'/';	$output.='<font size="'.$size.'">'.$prefix.'/';
if ($ENV{'user.adv'}) {	if ($ENV{'user.adv'}) {
my $path=$prefix.'/';	my $path=$prefix.'/';
foreach (split('/',$uri)) {	foreach my $dir (split('/',$uri)) {
unless ($_) { next; }	if (! $dir) { next; }
$path.=$_;	$path .= $dir;
unless ($path eq $uri) { $path.='/'; }	unless ($path eq $uri) { $path.='/'; }
my $escaped_linkpath = &Apache::loncommon::escape_single($path);	my $linkpath = &Apache::loncommon::escape_single($path);
if ($form) {	if ($form) {
$escaped_linkpath="javascript:$form.action='".	$linkpath=
&Apache::loncommon::escape_single($path).	qq{javascript:$form.action='$linkpath';$form.submit();};
"';$form.submit();";
}	}
my $escaped_target = &Apache::loncommon::escape_single($target);	$output.=qq{<a href="$linkpath" $target>$dir</a>/};
$output.='<a href="'.$escaped_linkpath.'"'.($target?' target="'.$escaped_target.'"':'').'>'.$_.'</a>/';
}	}
} else {	} else {
$output.=$uri;	$output.=$uri;