--- loncom/interface/lonhtmlcommon.pm 2006/06/26 22:31:56 1.137
+++ loncom/interface/lonhtmlcommon.pm 2006/06/30 04:02:25 1.138
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# a pile of common html routines
#
-# $Id: lonhtmlcommon.pm,v 1.137 2006/06/26 22:31:56 albertel Exp $
+# $Id: lonhtmlcommon.pm,v 1.138 2006/06/30 04:02:25 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1178,13 +1178,11 @@ A link to help for the component will be
All inputs can be undef without problems.
-Inputs: $color (the background color of the table returned),
- $component (the large text on the right side of the table),
+Inputs: $component (the large text on the right side of the table),
$component_help
- $function (role to get colors from)
- $domain (domian of role)
$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)
Returns a string containing breadcrumbs for the current page.
=item clear_breadcrumbs
@@ -1209,9 +1207,10 @@ returns: nothing
my @Crumbs;
sub breadcrumbs {
- my ($component,$component_help,$menulink,$helplink) = @_;
+ my ($component,$component_help,$menulink,$helplink,$css_class) = @_;
#
- my $Str = "\n".'
';
+ $css_class ||= 'LC_breadcrumbs';
+ my $Str = "\n".'';
#
# Make the faq and bug data cascade
my $faq = '';
@@ -1277,7 +1276,7 @@ returns: nothing
$Str .= $links.' | ';
#
if (defined($component)) {
- $Str .= ''.
+ $Str .= ' | '.
&mt($component).' | ';
}
$Str .= ' '."\n";
|