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.99, 2004/11/23 16:04:33
Line 904 sub crumbs {	Line 904 sub crumbs {
$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);	if ($target) {
$output.='<a href="'.$escaped_linkpath.'"'.($target?' target="'.$escaped_target.'"':'').'>'.$_.'</a>/';	$target = ' target="'.
	&Apache::loncommon::escape_single($target).'"';
	}
	$output.=qq{<a href="$linkpath" $target>$dir</a>/};
}	}
} else {	} else {
$output.=$uri;	$output.=$uri;