projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix multi-database installs, while hopefully keeping performance improvement
[freeside.git]
/
httemplate
/
search
/
report_cc.cgi
diff --git
a/httemplate/search/report_cc.cgi
b/httemplate/search/report_cc.cgi
index
f1c3c96
..
c2ab726
100755
(executable)
--- a/
httemplate/search/report_cc.cgi
+++ b/
httemplate/search/report_cc.cgi
@@
-1,27
+1,17
@@
+<!-- mason kludge -->
<%
<%
-use strict;
-use vars qw( $cgi $user $beginning $ending );
-use CGI;
-use CGI::Carp qw( fatalsToBrowser );
-use FS::UID qw( cgisuidsetup getotaker );
-use FS::CGI qw( header );
-
-$cgi = new CGI;
-&cgisuidsetup($cgi);
-
-$user = getotaker;
+my $user = getotaker;
$cgi->param('beginning') =~ /^([ 0-9\-\/]{0,10})$/;
$cgi->param('beginning') =~ /^([ 0-9\-\/]{0,10})$/;
-$beginning = $1;
+
my
$beginning = $1;
$cgi->param('ending') =~ /^([ 0-9\-\/]{0,10})$/;
$cgi->param('ending') =~ /^([ 0-9\-\/]{0,10})$/;
-$ending = $1;
+
my
$ending = $1;
-print $cgi->header( '-expires' => '-2m' ),
- header('Credit Card Recipt Report Results');
+print header('Credit Card Recipt Report Results');
-open (REPORT, "freeside-cc-receipts-report -v -s $beginning -
d
$ending $user |");
+open (REPORT, "freeside-cc-receipts-report -v -s $beginning -
f
$ending $user |");
print '<PRE>';
while(<REPORT>) {
print '<PRE>';
while(<REPORT>) {