--- texi2html.pl.org	Tue Apr 26 16:02:52 2005
+++ texi2html.pl	Tue Apr 26 16:00:12 2005
@@ -1,4 +1,4 @@
-#! @PERL@
+#! /usr/bin/perl
 'di ';
 'ig 00 ';
 #+##############################################################################
@@ -55,7 +55,7 @@
 #--##############################################################################
 
 # CVS version:
-# $Id: texi2html.patch,v 1.1 2005/05/12 00:04:08 res2002 Exp $
+# $Id: texi2html.patch,v 1.1 2005/05/12 00:04:08 res2002 Exp $
 
 # Homepage:
 my $T2H_HOMEPAGE = "http://texi2html.cvshome.org/";
@@ -71,7 +71,7 @@
 EOT
 
 # Version: set in configure.in
-my $THISVERSION = '@PACKAGE_VERSION@';
+my $THISVERSION = '1.76';
 my $THISPROG = "texi2html $THISVERSION"; # program name and version
 
 # set by configure, prefix for the sysconfdir and so on
@@ -4415,12 +4415,18 @@
                 {
                     $section->{'number'} = $number;
                 }    
+		$section->{'id'} = $section->{'number'};
                 $level--;
             }
             my $toplevel_number = $previous_numbers[$toplevel];
             $toplevel_number = 0 if (!defined($toplevel_number));
             $section->{'number'} = "$toplevel_number.$section->{'number'}";
+	    $section->{'id'} = $section->{'number'};
         }
+	else
+	{
+	    $section->{'id'} = $section->{'texi'};
+	}
         # find the previous section
         if (defined($previous_sections[$section->{'level'}]))
         {
