From f930d827bb2b7bd9322d93a2791b613d45f1d6e5 Mon Sep 17 00:00:00 2001
From: Fred Drake <fdrake@acm.org>
Date: Mon, 12 Jul 1999 16:28:50 +0000
Subject: Use the same names for CLASS attributes as elsewhere.

---
 Doc/perl/SynopsisTable.pm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/Doc/perl/SynopsisTable.pm b/Doc/perl/SynopsisTable.pm
index c4dc0dd..e12f2e7 100644
--- a/Doc/perl/SynopsisTable.pm
+++ b/Doc/perl/SynopsisTable.pm
@@ -38,13 +38,14 @@ sub show{
 
 sub tohtml{
     my $self = shift;
-    my $data = "<table>\n";
+    my $data = "<table class=\"synopsistable\">\n";
     my $name;
     foreach $name (split /,/, $self->{names}) {
 	my($key,$type,$synopsis) = $self->get($name);
 	my $link = "<a href=\"module-$key.html\">";
-	$data .= ("  <tr><td><b><tt>$link$name</a></tt></b></td>\n"
-		  . "      <td>$synopsis</td></tr>\n");
+	$data .= ("  <tr>"
+		  . "<td><b><tt class=module>$link$name</a></tt></b></td>\n"
+		  . "      <td class=synopsis>$synopsis</td></tr>\n");
     }
     $data .= "</table>\n";
     $data;
-- 
cgit v0.12

