loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.42, 2004/01/27 16:35:37	version 1.43, 2004/01/29 00:51:06
Line 924 sub crumbs {	Line 924 sub crumbs {
my ($uri,$target,$prefix,$form)=@_;	my ($uri,$target,$prefix,$form)=@_;
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.=$_;
	unless ($path eq $uri) { $path.='/'; }
my $linkpath=$path;	my $linkpath=$path;
if ($form) {	if ($form) {
$linkpath="javascript:$form.action='$path/';$form.submit();";	$linkpath="javascript:$form.action='$path';$form.submit();";
}	}
$output.='<a href="'.$linkpath.'"'.($target?' target="'.$target.'"':'').'>'.$_.'</a>/';	$output.='<a href="'.$linkpath.'"'.($target?' target="'.$target.'"':'').'>'.$_.'</a>/';
}	}