--- loncom/interface/lonhtmlcommon.pm 2006/07/31 18:43:12 1.148 +++ loncom/interface/lonhtmlcommon.pm 2006/08/04 21:01:52 1.149 @@ -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.149 2006/08/04 21:01:52 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -998,7 +998,7 @@ sub crumbs { foreach my $dir (split('/',$uri)) { if (! $dir) { next; } $path .= $dir; - if ($path eq $uri) { + if ($skiplast) { $output.=$dir; last; @@ -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?'':'
'); }