loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.272, 2010/05/30 12:47:05	version 1.274, 2010/06/02 05:34:27
Line 1481 returns: nothing	Line 1481 returns: nothing
my $lasttext = $last->{'no_mt'} ? $last->{'text'}	my $lasttext = $last->{'no_mt'} ? $last->{'text'}
: mt( $last->{'text'} );	: mt( $last->{'text'} );

$links .= htmltag( 'li', htmltag('h1', $lasttext), {title => $lasttext});	# last breadcrumb is the first order heading of a page
	# for course breadcrumbs it's just bold
	$links .= htmltag( 'li', htmltag($CourseBreadcrumbs ? 'b' : 'h1',
	$lasttext), {title => $lasttext});

my $icons = '';	my $icons = '';
$faq = $last->{'faq'} if (exists($last->{'faq'}));	$faq = $last->{'faq'} if (exists($last->{'faq'}));
Line 2392 returns: XHTML list as String.	Line 2395 returns: XHTML list as String.
# \@items, {listattr => { class => 'abc', id => 'xyx' }, itemattr => {class => 'abc', id => 'xyx'}}	# \@items, {listattr => { class => 'abc', id => 'xyx' }, itemattr => {class => 'abc', id => 'xyx'}}
sub list_from_array {	sub list_from_array {
my ($items, $args) = @_;	my ($items, $args) = @_;
	return unless scalar @$items;
my ($ul, $li) = inittags( qw(ul li) );	my ($ul, $li) = inittags( qw(ul li) );
my $listitems = join '', map { $li->($_, $args->{itemattr}) } @$items;	my $listitems = join '', map { $li->($_, $args->{itemattr}) } @$items;
return $ul->( $listitems, $args->{listattr} );	return $ul->( $listitems, $args->{listattr} );