X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=bin%2Fsqlt.cgi;h=4ce64433c32a8bc5a9318d0cef4e883f66d58d14;hb=e78d62f2c0bced9d9f6b14dfef81e5b0d545a3d0;hp=51ba210228e7cc6261b4c6c11cfe7ab855d06ffe;hpb=42b19e6f4403a7fbfce0f4e33b936e476407f98d;p=dbsrgits%2FSQL-Translator.git

diff --git a/bin/sqlt.cgi b/bin/sqlt.cgi
index 51ba210..4ce6443 100755
--- a/bin/sqlt.cgi
+++ b/bin/sqlt.cgi
@@ -1,9 +1,9 @@
 #!/usr/bin/perl
 
 # -------------------------------------------------------------------
-# $Id: sqlt.cgi,v 1.2 2003-08-27 04:01:14 kycl4rk Exp $
+# $Id: sqlt.cgi,v 1.4 2004-02-06 17:48:16 kycl4rk Exp $
 # -------------------------------------------------------------------
-# Copyright (C) 2003 Ken Y. Clark <kclark@cpan.org>
+# 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
@@ -39,7 +39,7 @@ use CGI;
 use SQL::Translator;
 
 use vars '$VERSION';
-$VERSION = sprintf "%d.%02d", q$Revision: 1.2 $ =~ /(\d+)\.(\d+)/;
+$VERSION = sprintf "%d.%02d", q$Revision: 1.4 $ =~ /(\d+)\.(\d+)/;
 
 my $q = CGI->new;
 
@@ -60,7 +60,7 @@ eval {
             ? $q->param('diagram_output_type')
             : $producer eq 'GraphViz'
             ? $q->param('graphviz_output_type') 
-            : 'png'
+            : ''
         ;
 
         my $t                    =  SQL::Translator->new( 
@@ -110,6 +110,9 @@ eval {
         elsif ( $output_type eq 'ps' ) {
             $text_type = 'postscript';
         }
+        elsif ( $producer eq 'HTML' ) {
+            $text_type = 'html';
+        }
 
         my $header_type = $image_type ? "image/$image_type" : "text/$text_type";
 
@@ -544,7 +547,7 @@ sub show_form {
 
 =head1 AUTHOR
 
-Ken Y. Clark E<lt>kclark@cpan.orgE<gt>
+Ken Y. Clark E<lt>kclark@cpan.orgE<gt>.
 
 =head1 SEE ALSO