loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.198, 2009/01/20 16:38:39	version 1.199, 2009/01/22 14:26:04
Line 1308 returns: nothing	Line 1308 returns: nothing
my ($component,$component_help,$menulink,$helplink,$css_class,$no_mt) = @_;	my ($component,$component_help,$menulink,$helplink,$css_class,$no_mt) = @_;
#	#
$css_class \|\|= 'LC_breadcrumbs';	$css_class \|\|= 'LC_breadcrumbs';
my $Str = "\n".'<table class="'.$css_class.'"><tr><td><ol id="LC_MenuBreadcrumbs">';	my $Str1 = '<ol id="LC_MenuBreadcrumbs">';
	my $Str = '';
#	#
# Make the faq and bug data cascade	# Make the faq and bug data cascade
my $faq = '';	my $faq = '';
Line 1382 returns: nothing	Line 1383 returns: nothing
$faq,$bug);	$faq,$bug);
}	}
#	#
$Str .= $links.'</ol></td>';	$Str1 .= $links.'</ol>';
#	#
if (defined($component)) {	if (defined($component)) {
$Str .= '<td class="'.$css_class.'_component">';	$Str .= "\n".'<table class="'.$css_class.'">'
	.'<tr><td class="'.$css_class.'_component">';
if ($no_mt) {	if ($no_mt) {
$Str .= $component;	$Str .= $component;
} else {	} else {
Line 1394 returns: nothing	Line 1396 returns: nothing
if ($icons ne '') {	if ($icons ne '') {
$Str .= ' '.$icons;	$Str .= ' '.$icons;
}	}
$Str .= '</td>';	$Str .= '</td></tr></table>'."\n";
}	}
$Str .= '</tr></table>'."\n";
#	#
# Return the @Crumbs stack to what we started with	# Return the @Crumbs stack to what we started with
push(@Crumbs,$last);	push(@Crumbs,$last);
shift(@Crumbs);	shift(@Crumbs);
#	#
return $Str;	return "$Str\n$Str1";
}	}

sub clear_breadcrumbs {	sub clear_breadcrumbs {