texinfo/tp/Texinfo/Convert HTML.pm

[Patrice Dumas]

CVSROOT:        /sources/texinfo
Module name:    texinfo
Changes by:     Patrice Dumas <pertusus>        11/06/06 21:44:04

Modified files:
        tp/Texinfo/Convert: HTML.pm 

Log message:
        Output footnotes when footnotestyle is separate.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/Texinfo/Convert/HTML.pm?cvsroot=texinfo&r1=1.88&r2=1.89

Patches:
Index: HTML.pm
===================================================================
RCS file: /sources/texinfo/texinfo/tp/Texinfo/Convert/HTML.pm,v
retrieving revision 1.88
retrieving revision 1.89
diff -u -b -r1.88 -r1.89
--- HTML.pm     5 Jun 2011 23:59:45 -0000       1.88
+++ HTML.pm     6 Jun 2011 21:44:04 -0000       1.89
@@ -3592,6 +3592,9 @@
                                                  and !$is_special))) {
     $rule = $self->get_conf('BIG_RULE');
   }
+  if ($end_page and $self->get_conf('footnotestyle') eq 'end') {
+    $result .= &{$self->{'footnotes_text'}}($self);
+  }
   if (!$self->get_conf('PROGRAM_NAME_IN_FOOTER') 
       and !$buttons and !$maybe_in_page) {
     # no rule in that case
@@ -5544,6 +5547,7 @@
     $special_pages = [] if (!defined($special_pages));
     foreach my $page (@$pages, @$special_pages) {
       my $file_fh;
+      $self->{'current_filename'} = $page->{'filename'};
       if (!$files{$page->{'filename'}}->{'fh'}) {
         $file_fh = $self->Texinfo::Common::open_out ($page->{'out_filename'},
                                                       
$self->{'perl_encoding'});
@@ -5553,7 +5557,6 @@
           # FIXME close/remove files already created
           return undef;
         }
-        $self->{'current_filename'} = $page->{'filename'};
         print $file_fh "".&{$self->{'begin_file'}}($self, 
                                            $page->{'filename'}, 
                                            $page->{'extra'}->{'element'});