loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.215, 2009/05/16 21:50:52	version 1.217, 2009/05/20 20:27:37
Line 1330 returns: nothing	Line 1330 returns: nothing
my @Crumbs;	my @Crumbs;

sub breadcrumbs {	sub breadcrumbs {
my ($component,$component_help,$menulink,$helplink,$css_class,$no_mt, $no_realBreadcrumb) = @_;	my ($component,$component_help,$menulink,$helplink,$css_class,$no_mt, $CourseBreadcrumbs) = @_;
#	#
$css_class \|\|= 'LC_breadcrumbs';	$css_class \|\|= 'LC_breadcrumbs';
my $Str1 = '<div id="LC_head_subbox"><ol id="LC_MenuBreadcrumbs">';	my $Str1 = '<div id="LC_head_subbox"><ol id="LC_MenuBreadcrumbs">';

if($no_realBreadcrumb){	if($CourseBreadcrumbs){
$Str1 = '<ul class="LC_CourseBreadcrumbs">';	$Str1 = '<ul id="LC_CourseBreadcrumbs">';
}	}

my $Str = '';	my $Str = '';
Line 1427 returns: nothing	Line 1427 returns: nothing
#	#


if($no_realBreadcrumb){	if($CourseBreadcrumbs){
$Str1 .= $links.'</ul>';	$Str1 .= $links.'</ul>';
} else {	} else {
$Str1 .= $links.'</ol></div>';	$Str1 .= $links.'</ol></div>';
Line 1772 sub email_default_row {	Line 1772 sub email_default_row {

sub submit_row {	sub submit_row {
my ($title,$cmd,$submit_text,$css_class) = @_;	my ($title,$cmd,$submit_text,$css_class) = @_;
$submit_text = &mt($submit_text);
my $output = &row_title($title,$css_class,'LC_pick_box_submit');	my $output = &row_title($title,$css_class,'LC_pick_box_submit');
$output .= qq\|	$output .= qq\|
<br />	<br />