--- /home/gperciva/svn/web-gop/texinfo/web-texi2html.init 2009-06-20 13:20:49.000000000 -0700 +++ web-texi2html.init 2009-06-20 13:16:57.000000000 -0700 @@ -619,11 +619,11 @@ } # if no child nodes were generated, e.g. for the index, where expanded pages # are ignored, don't generate a list at all... -# if (@child_result) { -# push (@result, "\n$ind\n"); -# push (@result, @child_result); -# push (@result, "$ind\n"); -# } + if (@child_result) { + push (@result, "\n$ind\n"); + push (@result, @child_result); + push (@result, "$ind\n"); + } } push (@result, "$ind\n"); return @result; @@ -649,8 +649,8 @@ return () if not defined($current_element); # Create the toc entries recursively #FIXME - my @toc_entries = ("\n"); -# my @toc_entries = ("
\n", "\n"); +# my @toc_entries = ("\n"); + my @toc_entries = ("
\n", "\n"); my $children = $current_element->{'section_childs'}; # FIXME: generate toc foreach ( @$children ) { @@ -658,8 +658,8 @@ } push (@toc_entries, "\n"); #FIXME -# push (@toc_entries, "
\n"); - push (@toc_entries, "\n"); + push (@toc_entries, "
\n"); +# push (@toc_entries, "\n"); return @toc_entries; } @@ -702,34 +702,16 @@ # ) . "\n"; - ## FIXME: make this generate from the file properly -# my $foo = " -# -# -# -# -## -# -#
Home[Introduction]DownloadDocumentationDevelopmentAbout
-# -# -# -# -# -#
FeaturesExamples[Crash Course]
-#"; -# print $fh $foo; - foreach my $line (@lines) { print $fh $line; } # FIXME: do second layer - print $fh "
\n"; - print $fh "
    \n"; - print $fh "
  • FIXME Insert second-layer TOC frame here
  • \n"; - print $fh "
\n"; - print $fh ""; +# print $fh "
\n"; +# print $fh "
    \n"; +# print $fh "
  • FIXME Insert second-layer TOC frame here
  • \n"; +# print $fh "
\n"; +# print $fh ""; print $fh "\n\n"; }