--- loncom/interface/lonhtmlcommon.pm 2006/07/31 18:43:12 1.148 +++ loncom/interface/lonhtmlcommon.pm 2006/08/04 21:33:53 1.150 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common html routines # -# $Id: lonhtmlcommon.pm,v 1.148 2006/07/31 18:43:12 albertel Exp $ +# $Id: lonhtmlcommon.pm,v 1.150 2006/08/04 21:33:53 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1014,9 +1014,12 @@ sub crumbs { $output.=qq{$dir/}; } } else { - $output.=$uri; + foreach my $dir (split('/',$uri)) { + if (! $dir) { next; } + $output.=$dir.'/'; + } } - unless ($uri=~/\/$/) { $output=~s/\/$//; } + if ($uri !~ m|/$|) { $output=~s|/$||; } return $output.''.($noformat?'':'
'); }