--- loncom/interface/lonhtmlcommon.pm 2003/12/29 17:11:53 1.35 +++ loncom/interface/lonhtmlcommon.pm 2003/12/29 19:01:27 1.36 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common html routines # -# $Id: lonhtmlcommon.pm,v 1.35 2003/12/29 17:11:53 www Exp $ +# $Id: lonhtmlcommon.pm,v 1.36 2003/12/29 19:01:27 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -842,15 +842,16 @@ sub crumbs { my ($uri,$target,$prefix)=@_; my $output='
'.$prefix.'/'; if ($ENV{'user.adv'}) { - my $path=$prefix.'/'; + my $path=$prefix; foreach (split('/',$uri)) { unless ($_) { next; } - $path.=$_.'/'; + $path.='/'.$_; $output.=''.$_.'/'; } } else { $output.=$uri; } + unless ($uri=~/\/$/) { $output=~s/\/$//; } return $output.'
'; }