--- loncom/interface/lonhtmlcommon.pm 2009/02/18 19:28:45 1.201
+++ loncom/interface/lonhtmlcommon.pm 2009/04/07 15:40:38 1.207
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# a pile of common html routines
#
-# $Id: lonhtmlcommon.pm,v 1.201 2009/02/18 19:28:45 droeschl Exp $
+# $Id: lonhtmlcommon.pm,v 1.207 2009/04/07 15:40:38 amueller Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -285,7 +285,7 @@ sub checkbox {
$Str .= 'value="'.$value.'"';
}
if ($checked) {
- $Str .= ' checked="1"';
+ $Str .= ' checked="checked"';
}
$Str .= ' />';
return $Str;
@@ -307,7 +307,7 @@ sub radio {
$Str .= 'value="'.$value.'"';
}
if ($checked eq $value) {
- $Str .= ' checked="1"';
+ $Str .= ' checked="checked"';
}
$Str .= ' />';
return $Str;
@@ -1305,10 +1305,15 @@ returns: nothing
my @Crumbs;
sub breadcrumbs {
- my ($component,$component_help,$menulink,$helplink,$css_class,$no_mt) = @_;
+ my ($component,$component_help,$menulink,$helplink,$css_class,$no_mt, $no_realBreadcrumb) = @_;
#
$css_class ||= 'LC_breadcrumbs';
my $Str1 = '
';
+
+
+ if($no_realBreadcrumb){
+ $Str1 .= $links.'';
+ } else {
+ $Str1 .= $links.'';
+ }
#
if (defined($component)) {
$Str .= "\n".''
@@ -1402,7 +1420,7 @@ returns: nothing
# Return the @Crumbs stack to what we started with
push(@Crumbs,$last);
shift(@Crumbs);
- #
+ # Return a table and after that the breadcrumb's line
return "$Str\n$Str1";
}
@@ -2091,15 +2109,15 @@ sub generate_menu {
$img->("", {
class => "LC_noBorder LC_middle",
src => "/res/adm/pages/$$link{icon}",
- alt => defined($$link{alttext}) ?
- $$link{alttext} : $$link{linktext}
+ alt => mt(defined($$link{alttext}) ?
+ $$link{alttext} : $$link{linktext})
}), {
href => $$link{url},
- title => $$link{linktitle}
+ title => mt($$link{linktitle})
}).
- $a->($$link{linktext}, {
+ $a->(mt($$link{linktext}), {
href => $$link{url},
- title => $$link{linktitle},
+ title => mt($$link{linktitle}),
class => "LC_menubuttons_link"
}).
(defined($$link{help}) ?
@@ -2115,9 +2133,9 @@ sub generate_menu {
#
# the category won't be added if there aren't any links
push @categories,
- $div->($h3->($$category{categorytitle}, {class=>"LC_hcell"}).
+ $div->($h3->(mt($$category{categorytitle}), {class=>"LC_hcell"}).
$ul->(join('' ,@links), {class =>"LC_ListStyleNormal" }),
- {class=>"LC_ContentBoxSpecial"}) if scalar(@links);
+ {class=>"LC_ContentBoxSpecial LC_400Box"}) if scalar(@links);
}
# wrap the joined @categories in another (column layout)