Commits

Anonymous committed 0f2c373

[PATCH] xemacsweb: (X)HTML fixes <1016404543.14221.71.camel@bobcat.ods.org>

Comments (0)

Files changed (2)

+2002-03-18  Ville Skyttä  <ville.skytta@xemacs.org>
+
+	* toc.gp (toc): XHTML fixes: lowercase elements
+
 2002-03-13  Adrian Aichner  <adrian@xemacs.org>
 
 	* index.content: Add news item for search engine.
   }
   my $anchornum = 0;
   my $tempbit = $left . "###TOC-SPLIT-HERE###" .$right;
-  my $pattern = qr{^(.*?)<h([0-9])>(?!<A NAME)\s*(.*?)</h.>(.*)\$};
+  my $pattern = qr{^(.*?)<h([0-9])>(?!<a name)\s*(.*?)</h.>(.*)\$};
   my $toc = "<ul>\n";
   my $tablevel = $startlevel;
   my ($leftbit, $level,$middlebit, $rightbit );
       }
 
       $tablevel = $level;
-      $toc= $toc . "<li><A HREF=\"#$anchornum\">$middlebit</A></li>\n";
-      $middlebit = "<H$level><A NAME= \"$anchornum\">" . $middlebit . "</A></H$level>";
+      $toc= $toc . "<li><a href=\"#$anchornum\">$middlebit</a></li>\n";
+      $middlebit = "<h$level><a name=\"$anchornum\">" . $middlebit . "</a></h$level>";
       $anchornum++;
     }
     else {
-      $middlebit = "<H$level><A NAME=\"\">" . $middlebit . "</A></H$level>";
+      $middlebit = "<h$level><a name=\"\">" . $middlebit . "</a></h$level>";
     }
     $tempbit = $leftbit . $middlebit . $rightbit; 
   }