--- loncom/interface/lonhtmlcommon.pm 2008/12/10 10:29:43 1.194 +++ loncom/interface/lonhtmlcommon.pm 2009/01/22 14:26:04 1.199 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common html routines # -# $Id: lonhtmlcommon.pm,v 1.194 2008/12/10 10:29:43 amueller Exp $ +# $Id: lonhtmlcommon.pm,v 1.199 2009/01/22 14:26:04 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1278,6 +1278,8 @@ Inputs: $component (the large text on th $menulink (boolean, controls whether to include a link to /adm/menu) $helplink (if 'nohelp' don't include the orange help link) $css_class (optional name for the class to apply to the table for CSS) + $no_mt (optional flag, 1 if &mt() is _not_ to be applied to $component + when including the text on the right. Returns a string containing breadcrumbs for the current page. =item clear_breadcrumbs @@ -1303,10 +1305,11 @@ returns: nothing my @Crumbs; sub breadcrumbs { - my ($component,$component_help,$menulink,$helplink,$css_class) = @_; + my ($component,$component_help,$menulink,$helplink,$css_class,$no_mt) = @_; # $css_class ||= 'LC_breadcrumbs'; - my $Str = "\n".''; + $Str1 .= $links.''; # if (defined($component)) { - $Str .= '
'. - &mt($component); + $Str .= "\n".'' + .''; + $Str .= '
'; + if ($no_mt) { + $Str .= $component; + } else { + $Str .= &mt($component); + } if ($icons ne '') { $Str .= ' '.$icons; } - $Str .= '
'."\n"; } - $Str .= '
'."\n"; # # Return the @Crumbs stack to what we started with push(@Crumbs,$last); shift(@Crumbs); # - return $Str; + return "$Str\n$Str1"; } sub clear_breadcrumbs { @@ -1546,7 +1553,7 @@ sub role_select_row { $output = &row_title($title,$css_class); } $output .= qq| - \n|; foreach my $role (@$roles) { my $plrole; if ($role eq 'ow') { @@ -1673,7 +1680,7 @@ sub status_select_row { $output = &row_title($title,$css_class,'LC_pick_box_select'); } $output .= qq| - \n|; foreach my $status_type (sort(keys(%{$types}))) { $output .= ' '; } @@ -2053,17 +2060,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|
    • '; if($item->{'icon'}){ - $menu_html .= qq||;
+                $menu_html .= qq|<img class ='; } else { #use linktext as alt text for the icon @@ -2077,7 +2084,7 @@ sub generate_menu { } $menu_html .= '
    • '; } - $menu_html .= '
    '; + $menu_html .= '
'; } $menu_html .= qq|
|; return $menu_html;