From: Ken Youens-Clark <kclark@cpan.org>
Date: Thu, 5 Jun 2003 01:43:35 +0000 (+0000)
Subject: Added ability to manipulate height, width, and whether to show the field
X-Git-Tag: v0.02~99
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=be35c82f603cfd49a795deb55694b451f9076916;p=dbsrgits%2FSQL-Translator.git

Added ability to manipulate height, width, and whether to show the field
names for GraphViz output.
---

diff --git a/bin/auto-viv.cgi b/bin/auto-viv.cgi
index 50f6859..c3b80c8 100755
--- a/bin/auto-viv.cgi
+++ b/bin/auto-viv.cgi
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 
 # -------------------------------------------------------------------
-# $Id: auto-viv.cgi,v 1.1 2003-04-24 19:58:39 kycl4rk Exp $
+# $Id: auto-viv.cgi,v 1.2 2003-06-05 01:43:35 kycl4rk Exp $
 # -------------------------------------------------------------------
 # Copyright (C) 2003 Ken Y. Clark <kclark@cpan.org>
 #
@@ -53,6 +53,9 @@ eval {
                 font_size    => $q->param('font_size'),
                 no_columns   => $q->param('no_columns'),
                 node_shape   => $q->param('node_shape'),
+                height       => $q->param('height')      || 0,
+                width        => $q->param('width')       || 0,
+                show_fields  => $q->param('show_fields') || 0,
             },
         ) or die SQL::Translator->error;
 
@@ -230,12 +233,39 @@ sub show_form {
                             circle egg triangle box diamond trapezium 
                             parallelogram house hexagon octagon 
                         ) ],
-                        -default => 'ellipse',
+                        -default => 'record',
                         -rows    => 13,
                     ),
                 ] ),
             ),
             $q->Tr( 
+                $q->td( [
+                    'Show Field Names **:',
+                    $q->radio_group(
+                        -name    => 'show_fields',
+                        -values  => [ 1, 0 ],
+                        -default => 1,
+                        -labels  => {
+                            1    => 'Yes',
+                            0    => 'No',
+                        },
+                        -rows    => 2,
+                    ),
+                ] ),
+            ),
+            $q->Tr( 
+                $q->td( [
+                    'Height **:',
+                    $q->textfield( -name => 'height', -default => 11 ),
+                ] ),
+            ),
+            $q->Tr( 
+                $q->td( [
+                    'Width **:',
+                    $q->textfield( -name => 'width', -default => 8.5 ),
+                ] ),
+            ),
+            $q->Tr( 
                 $q->td(
                     { -colspan => 2, -align => 'center' },
                     $q->submit(