sub _default_section_direction($$) { my $self = shift; my $direction = shift; my $result = undef; my $href = $self->_element_direction($self->{'current_element'}, $direction, 'href'); my $node = $self->_element_direction($self->{'current_element'}, $direction, 'text'); my $anchor; if (defined($href) and defined($node) and $node =~ /\S/) { my $anchor_attributes = $self->_direction_href_attributes($direction); $anchor = "$node"; #} elsif (defined($node) and $node =~ /\S/) { # $anchor = $node; #} else { } if (defined($anchor)) { # i18n $result = $self->get_conf('BUTTONS_TEXT')->{$direction}.": $anchor"; } return $result; } my @buttons = ([ 'NodeNext', \&_default_section_direction ], [ 'NodePrev', \&_default_section_direction ], [ 'NodeUp', \&_default_section_direction ], ' ', 'Contents', 'Index'); foreach my $buttons ('SECTION_BUTTONS', 'CHAPTER_BUTTONS', 'TOP_BUTTONS', 'MISC_BUTTONS', 'SECTION_FOOTER_BUTTONS') { set_from_init_file($buttons, address@hidden); } set_from_init_file('LINKS_BUTTONS', ['Top', 'Index', 'Contents', 'About', 'Up', 'NextFile', 'PrevFile']);