--- loncom/interface/lonhtmlcommon.pm 2008/12/06 17:29:34 1.193
+++ loncom/interface/lonhtmlcommon.pm 2008/12/17 12:59:49 1.196
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# a pile of common html routines
#
-# $Id: lonhtmlcommon.pm,v 1.193 2008/12/06 17:29:34 bisitz Exp $
+# $Id: lonhtmlcommon.pm,v 1.196 2008/12/17 12:59:49 harmsja Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1306,7 +1306,7 @@ returns: nothing
my ($component,$component_help,$menulink,$helplink,$css_class) = @_;
#
$css_class ||= 'LC_breadcrumbs';
- my $Str = "\n".'
';
+ my $Str = "\n".' | ';
+ $Str .= $links.'';
#
if (defined($component)) {
$Str .= ''.
@@ -2053,17 +2053,17 @@ END
sub generate_menu {
my @menu = @_;
- my $menu_html = qq||;
+ my $menu_html = qq| |;
foreach my $category (@menu) { #FIXME: insert appropriate classnames for styles when they're finished.
- $menu_html .='
- '.mt($category->{'categorytitle'}).'
- ';
+ $menu_html .='
+ '.mt($category->{'categorytitle'}).'
+ ';
foreach my $item ( @{ $category->{items} } ) {
next unless $item->{'permission'};
$menu_html .= qq|';
}
- $menu_html .= ' ';
+ $menu_html .= ' ';
}
$menu_html .= qq| |;
return $menu_html;
|
|