diff --git a/my_pod2html b/my_pod2html index cfdd3e0..246e9a5 100755 --- a/my_pod2html +++ b/my_pod2html @@ -92,23 +92,22 @@ BEGIN{ my $toc; $a->set_text( $name); if( $level < $current_level) { while( $level < $current_level) - { $current_level--; $current_ul= $current_ul->parent( 'ul') || $current_ul; - } + { $current_level--; $current_ul= $current_ul->parent( 'ul') || $current_ul; } } elsif( $level > $current_level) { my $new_ul= XML::Twig::Elt->new( ul => { style => 'display:block;' }); my $current_li= $current_ul->last_child( 'li'); $new_ul->paste( last_child => $current_li); - my $button= XML::Twig::Elt->new( img => { class => "collapsed", src => "/img/plus.png", - height => 20, width => 20, - alt => "Show Next ToC level", onclick => "expand(this)", - style => "display:none", - } - ); - $button->paste( after => $current_li->first_child( 'a')); + my $button= XML::Twig::Elt->new( img => { class => "collapsed", src => "/img/plus.png", + height => 20, width => 20, + alt => "Show Next ToC level", onclick => "expand(this)", + style => "display:none", + } + ); + $button->paste( after => $current_li->first_child( 'a')); $current_ul= $new_ul; } - #warn" level: /$level/ - current_level: /$current_level/\n"; + #warn" level: /$level/ - current_level: /$current_level/\n"; $li->paste( last_child => $current_ul); $current_level= $level; } @@ -167,51 +166,51 @@ sub name_ify __DATA__ XML::Twig - Development version - + -