projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
remove Pragma:no-cache header, and set Content-Length and Cache-Control for viewing...
[freeside.git]
/
htetc
/
handler.pl
diff --git
a/htetc/handler.pl
b/htetc/handler.pl
index
618c585
..
f970df8
100644
(file)
--- a/
htetc/handler.pl
+++ b/
htetc/handler.pl
@@
-38,7
+38,7
@@
use strict;
my $ah = new HTML::Mason::ApacheHandler (
#interp => $interp,
#auto_send_headers => 0,
my $ah = new HTML::Mason::ApacheHandler (
#interp => $interp,
#auto_send_headers => 0,
- comp_root=>'
/var/www/freeside
',
+ comp_root=>'
%%%FREESIDE_DOCUMENT_ROOT%%%
',
data_dir=>'/usr/local/etc/freeside/masondata',
#out_mode=>'stream',
);
data_dir=>'/usr/local/etc/freeside/masondata',
#out_mode=>'stream',
);
@@
-71,6
+71,7
@@
sub handler
use HTML::Entities;
use IO::Handle;
use IO::File;
use HTML::Entities;
use IO::Handle;
use IO::File;
+ use Business::CreditCard;
use String::Approx qw(amatch);
use Chart::LinesPoints;
use HTML::Widgets::SelectLayers 0.03;
use String::Approx qw(amatch);
use Chart::LinesPoints;
use HTML::Widgets::SelectLayers 0.03;
@@
-81,6
+82,7
@@
sub handler
small_custview myexit http_header);
use FS::Msgcat qw(gettext geterror);
use FS::Misc qw( send_email );
small_custview myexit http_header);
use FS::Msgcat qw(gettext geterror);
use FS::Misc qw( send_email );
+ use FS::Report::Table::Monthly;
use FS::agent;
use FS::agent_type;
use FS::agent;
use FS::agent_type;
@@
-196,7
+198,7
@@
sub handler
#eorar
my $headers = $r->headers_out;
#eorar
my $headers = $r->headers_out;
- $headers->{'
Pragma'} = $headers->{'
Cache-control'} = 'no-cache';
+ $headers->{'Cache-control'} = 'no-cache';
#$r->no_cache(1);
$headers->{'Expires'} = '0';
#$r->no_cache(1);
$headers->{'Expires'} = '0';