This commit was manufactured by cvs2svn to create branch

[freeside.git] / htetc / global.asa

diff --git a/htetc/global.asa b/htetc/global.asa
index d04a5ed..861a27c 100644 (file)
--- a/htetc/global.asa
+++ b/htetc/global.asa
@@ -1,9 +1,10 @@
 use strict;
 use vars qw( $cgi $p );
-use CGI;
+use CGI 2.47;
 #use CGI::Carp qw(fatalsToBrowser);
 use Date::Format;
 use Date::Parse;
+use Time::Local;
 use Tie::IxHash;
 use HTML::Entities;
 use IO::Handle;
@@ -14,7 +15,7 @@ use FS::UID qw(cgisuidsetup dbh getotaker datasrc driver_name);
 use FS::Record qw(qsearch qsearchs fields dbdef);
 use FS::Conf;
 use FS::CGI qw(header menubar popurl table itable ntable idiot eidiot
-               small_custview myexit);
+               small_custview myexit http_header);
 use FS::Msgcat qw(gettext geterror);
 
 use FS::agent;
@@ -66,7 +67,7 @@ sub Script_OnStart {
 
 sub Script_OnFlush {
   my $ref = $Response->{BinaryRef};
-  $$ref = $cgi->header( @FS::CGI::header ) . $$ref;
+  #$$ref = $cgi->header( @FS::CGI::header ) . $$ref;
   if ( dbh->can('sprintProfile') ) {
 
     $$ref =~ s/<\/BODY>[\s\n]*<\/HTML>[\s\n]*$//i