X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=htetc%2Fglobal.asa;h=dc75822ff714267bba60f892aa87544be6b3dea8;hb=371e7a9c14b0feb83a802f624a8dceda5fecbcbf;hp=c3393ad674f5a6516f02ad01a77f398725ae3014;hpb=9410e9f656b950a9d4b383a3992fa50bb7a270db;p=freeside.git diff --git a/htetc/global.asa b/htetc/global.asa index c3393ad67..dc75822ff 100644 --- a/htetc/global.asa +++ b/htetc/global.asa @@ -12,7 +12,7 @@ use FS::part_pkg; use FS::pkg_svc; use FS::cust_pkg; use FS::cust_svc; -use FS::CGI qw(header menubar popurl table ntable); +use FS::CGI qw(header menubar popurl table itable ntable); sub Script_OnStart { $cgi = new CGI; @@ -23,7 +23,7 @@ sub Script_OnStart { sub Script_OnFlush { my $ref = $Response->{BinaryRef}; - $$ref = $cgi->header( '-expires' => 'now' ) . $$ref; + $$ref = $cgi->header( @FS::CGI::header ) . $$ref; if ( dbh->can('sprintProfile') ) { $$ref =~ s/<\/BODY>[\s\n]*<\/HTML>[\s\n]*$//i