--- loncom/interface/lonhtmlcommon.pm 2009/02/19 18:01:37 1.202 +++ loncom/interface/lonhtmlcommon.pm 2009/04/25 16:53:13 1.208 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common html routines # -# $Id: lonhtmlcommon.pm,v 1.202 2009/02/19 18:01:37 droeschl Exp $ +# $Id: lonhtmlcommon.pm,v 1.208 2009/04/25 16:53:13 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -62,6 +62,23 @@ use Apache::lonlocal; use Apache::lonnet; use LONCAPA; +############################################## +############################################## + +=pod + +=item confirm_success + +Successful completion of an operation message + +=cut + +sub confirm_success { + my ($message)=@_; + return ''. + $message. + ' '; +} ############################################## ############################################## @@ -285,7 +302,7 @@ sub checkbox { $Str .= 'value="'.$value.'"'; } if ($checked) { - $Str .= ' checked="1"'; + $Str .= ' checked="checked"'; } $Str .= ' />'; return $Str; @@ -307,7 +324,7 @@ sub radio { $Str .= 'value="'.$value.'"'; } if ($checked eq $value) { - $Str .= ' checked="1"'; + $Str .= ' checked="checked"'; } $Str .= ' />'; return $Str; @@ -1305,10 +1322,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 = '
'; + + + if($no_realBreadcrumb){ + $Str1 .= $links.''; + } else { + $Str1 .= $links.''; + } # if (defined($component)) { $Str .= "\n".'' @@ -1402,7 +1437,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"; } @@ -2117,7 +2152,7 @@ sub generate_menu { push @categories, $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)