From: Ken Youens-Clark <kclark@cpan.org>
Date: Thu, 18 Sep 2003 19:11:45 +0000 (+0000)
Subject: Trying to correct header for HTML.
X-Git-Tag: v0.04~176
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=db443c26deba0604943a74e1c5acf6e283dd5709;p=dbsrgits%2FSQL-Translator.git

Trying to correct header for HTML.
---

diff --git a/bin/sqlt.cgi b/bin/sqlt.cgi
index 51ba210..53495cf 100755
--- a/bin/sqlt.cgi
+++ b/bin/sqlt.cgi
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 
 # -------------------------------------------------------------------
-# $Id: sqlt.cgi,v 1.2 2003-08-27 04:01:14 kycl4rk Exp $
+# $Id: sqlt.cgi,v 1.3 2003-09-18 19:11:45 kycl4rk Exp $
 # -------------------------------------------------------------------
 # Copyright (C) 2003 Ken Y. Clark <kclark@cpan.org>
 #
@@ -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.3 $ =~ /(\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";