--- loncom/interface/lonhtmlcommon.pm 2004/06/12 01:09:31 1.77 +++ loncom/interface/lonhtmlcommon.pm 2004/06/17 18:22:13 1.78 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common html routines # -# $Id: lonhtmlcommon.pm,v 1.77 2004/06/12 01:09:31 www Exp $ +# $Id: lonhtmlcommon.pm,v 1.78 2004/06/17 18:22:13 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -841,11 +841,13 @@ sub r_print { # ------------------------------------------------------- Puts directory header sub crumbs { - my ($uri,$target,$prefix,$form,$size)=@_; + my ($uri,$target,$prefix,$form,$size,$noformat)=@_; if (! defined($size)) { $size = '+2'; } - my $output='
'.$prefix.'/'; + my $output=''; + unless ($noformat) { $output.='
'; } + $output.=''.$prefix.'/'; if ($ENV{'user.adv'}) { my $path=$prefix.'/'; foreach (split('/',$uri)) { @@ -862,7 +864,7 @@ sub crumbs { $output.=$uri; } unless ($uri=~/\/$/) { $output=~s/\/$//; } - return $output.'
'; + return $output.'
'.($noformat?'':'

'); } # ------------------------------------------------- Output headers for HTMLArea