X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSQL%2FTranslator%2FProducer%2FHTML.pm;h=f35eb3cd488387ec44e3c5650ab71602a23e9a64;hb=935800450f88b0500c4fa7c3b174cd22b5f9eb56;hp=5e61cec7b9102d636d9064f6f9c41ac1f602c944;hpb=d8b098e53a0c39a402c8f69b0a8f36c52a8f2891;p=dbsrgits%2FSQL-Translator.git
diff --git a/lib/SQL/Translator/Producer/HTML.pm b/lib/SQL/Translator/Producer/HTML.pm
index 5e61cec..f35eb3c 100644
--- a/lib/SQL/Translator/Producer/HTML.pm
+++ b/lib/SQL/Translator/Producer/HTML.pm
@@ -1,31 +1,12 @@
package SQL::Translator::Producer::HTML;
-# -------------------------------------------------------------------
-# $Id: HTML.pm,v 1.14 2004-03-10 22:52:17 kycl4rk Exp $
-# -------------------------------------------------------------------
-# Copyright (C) 2002-4 SQLFairy Authors
-#
-# This program is free software; you can redistribute it and/or
-# modify it under the terms of the GNU General Public License as
-# published by the Free Software Foundation; version 2.
-#
-# This program is distributed in the hope that it will be useful, but
-# WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-# General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
-# 02111-1307 USA
-# -------------------------------------------------------------------
-
use strict;
use Data::Dumper;
use vars qw($VERSION $NOWRAP $NOLINKTABLE $NAME);
-$VERSION = sprintf "%d.%02d", q$Revision: 1.14 $ =~ /(\d+)\.(\d+)/;
-$NAME = join ', ', __PACKAGE__, $VERSION;
+$VERSION = '1.59';
+
+$NAME = __PACKAGE__;
$NOWRAP = 0 unless defined $NOWRAP;
$NOLINKTABLE = 0 unless defined $NOLINKTABLE;
@@ -150,6 +131,7 @@ sub produce {
)
);
+ my $i = 0;
for my $field ( @fields ) {
my $name = $field->name || '';
$name = qq[$name];
@@ -173,8 +155,10 @@ sub produce {
push @other, 'UNIQUE' if $field->is_unique;
push @other, 'NOT NULL' unless $field->is_nullable;
push @other, $comment if $comment;
+ my $class = $i++ % 2 ? 'even' : 'odd';
push @html,
$q->Tr(
+ { -class => "tr-$class" },
$q->td({ -class => "FieldCellName" }, $name),
$q->td({ -class => "FieldCellType" }, $data_type),
$q->td({ -class => "FieldCellSize" }, $size),
@@ -330,7 +314,7 @@ insignificant whitespace and be generally smaller.
=head1 AUTHORS
-Ken Y. Clark Ekclark@cpan.orgE,
+Ken Youens-Clark Ekclark@cpan.orgE,
Darren Chamberlain Edarren@cpan.orgE.
=cut