version 1.271, 2010/04/13 10:21:29
|
version 1.273, 2010/05/30 18:30:52
|
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('b', $lasttext), {title => $lasttext}); |
$links .= htmltag( 'li', htmltag('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 2392 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} ); |