loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.219, 2009/05/26 20:06:46	version 1.222, 2009/06/08 18:04:45
Line 1830 sub course_custom_roles {	Line 1830 sub course_custom_roles {
#	#
sub topic_bar {	sub topic_bar {
my ($imgnum,$title) = @_;	my ($imgnum,$title) = @_;
return '	return '<div class="LC_topic_bar">'
<div class="LC_topic_bar">	.'<img src="/res/adm/pages/bl_step'.$imgnum.'.gif"'
<img alt="'.&mt('Step [_1]',$imgnum).	.' alt="'.&mt('Step [_1]',$imgnum).'" />'
' "src="/res/adm/pages/bl_step'.$imgnum.'.gif" />	.' '.$title
<span>'.$title.'</span>	.'</div>';
</div>
';
}	}

##############################################	##############################################
Line 2216 sub generate_menu {	Line 2214 sub generate_menu {
push @categories,	push @categories,
$div->($h3->(mt($$category{categorytitle}), {class=>"LC_hcell"}).	$div->($h3->(mt($$category{categorytitle}), {class=>"LC_hcell"}).
$ul->(join('' ,@links), {class =>"LC_ListStyleNormal" }),	$ul->(join('' ,@links), {class =>"LC_ListStyleNormal" }),
{class=>"LC_ContentBoxSpecial LC_400Box"}) if scalar(@links);	{class=>"LC_Box LC_400Box"}) if scalar(@links);
}	}

# wrap the joined @categories in another <div> (column layout)	# wrap the joined @categories in another <div> (column layout)