Lines 1-267
Link Here
|
1 |
#!/usr/bin/perl |
|
|
2 |
|
3 |
# Copyright Katipo Communications 2006 |
4 |
# |
5 |
# This file is part of Koha. |
6 |
# |
7 |
# Koha is free software; you can redistribute it and/or modify it under the |
8 |
# terms of the GNU General Public License as published by the Free Software |
9 |
# Foundation; either version 2 of the License, or (at your option) any later |
10 |
# version. |
11 |
# |
12 |
# Koha is distributed in the hope that it will be useful, but WITHOUT ANY |
13 |
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR |
14 |
# A PARTICULAR PURPOSE. See the GNU General Public License for more details. |
15 |
# |
16 |
# You should have received a copy of the GNU General Public License along |
17 |
# with Koha; if not, write to the Free Software Foundation, Inc., |
18 |
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. |
19 |
|
20 |
|
21 |
use strict; |
22 |
#use warnings; FIXME - Bug 2505 |
23 |
use CGI; |
24 |
use C4::Output; |
25 |
use C4::Auth; |
26 |
use C4::Context; |
27 |
use C4::Stats; |
28 |
use C4::Accounts; |
29 |
use C4::Debug; |
30 |
use Date::Manip; |
31 |
|
32 |
my $input = new CGI; |
33 |
my $time = $input->param('time'); |
34 |
my $time2 = $input->param('time2'); |
35 |
my $op = $input->param('submit'); |
36 |
|
37 |
my ( $template, $loggedinuser, $cookie ) = get_template_and_user( |
38 |
{ |
39 |
template_name => "reports/stats_screen.tmpl", |
40 |
query => $input, |
41 |
type => "intranet", |
42 |
authnotrequired => 1, |
43 |
flagsrequired => { reports => '*' }, |
44 |
debug => 1, |
45 |
} |
46 |
); |
47 |
|
48 |
( $time = "today" ) if !$time; |
49 |
( $time2 = "tomorrow" ) if !$time2; |
50 |
|
51 |
my $date = ParseDate($time); |
52 |
my $date2 = ParseDate($time2); |
53 |
$date = UnixDate( $date, '%Y-%m-%d' ); |
54 |
$date2 = UnixDate( $date2, '%Y-%m-%d' ); |
55 |
$debug and warn "MASON: TIME: $time, $time2"; |
56 |
$debug and warn "MASON: DATE: $date, $date2"; |
57 |
|
58 |
# get a list of every payment |
59 |
my @payments = TotalPaid( $date, $date2 ); |
60 |
|
61 |
my $count = @payments; |
62 |
|
63 |
$debug and warn "MASON: number of payments=$count\n"; |
64 |
|
65 |
my $i = 0; |
66 |
my $totalcharges = 0; |
67 |
my $totalcredits = 0; |
68 |
my $totalpaid = 0; |
69 |
my $totalwritten = 0; |
70 |
my @loop1; |
71 |
my @loop2; |
72 |
|
73 |
# lets get a a list of all individual item charges paid for by that payment |
74 |
|
75 |
foreach my $payment (@payments) { |
76 |
|
77 |
my @charges; |
78 |
if ( $payment->{'type'} ne 'writeoff' ) { |
79 |
|
80 |
@charges = getcharges( |
81 |
$payment->{'borrowernumber'}, |
82 |
$payment->{'timestamp'}, |
83 |
$payment->{'proccode'} |
84 |
); |
85 |
$totalcharges++; |
86 |
my $count = @charges; |
87 |
|
88 |
# getting each of the charges and putting them into a array to be printed out |
89 |
#this loops per charge per person |
90 |
for ( my $i2 = 0 ; $i2 < $count ; $i2++ ) { |
91 |
my $hour = substr( $payment->{'timestamp'}, 8, 2 ); |
92 |
my $min = substr( $payment->{'timestamp'}, 10, 2 ); |
93 |
my $sec = substr( $payment->{'timestamp'}, 12, 2 ); |
94 |
my $time = "$hour:$min:$sec"; |
95 |
my $time2 = "$payment->{'date'}"; |
96 |
|
97 |
# my $branch=Getpaidbranch($time2,$payment->{'borrowernumber'}); |
98 |
my $branch = $payment->{'branch'}; |
99 |
|
100 |
# lets build up a row |
101 |
my %rows1 = ( |
102 |
branch => $branch, |
103 |
datetime => $payment->{'datetime'}, |
104 |
surname => $payment->{'surname'}, |
105 |
firstname => $payment->{'firstname'}, |
106 |
description => $charges[$i2]->{'description'}, |
107 |
accounttype => $charges[$i2]->{'accounttype'}, |
108 |
amount => sprintf( "%.2f", $charges[$i2]->{'amount'} ) |
109 |
, # rounding amounts to 2dp |
110 |
type => $payment->{'type'}, |
111 |
value => sprintf( "%.2f", $payment->{'value'} ) |
112 |
); # rounding amounts to 2dp |
113 |
|
114 |
push( @loop1, \%rows1 ); |
115 |
|
116 |
} |
117 |
$totalpaid = $totalpaid + $payment->{'value'}; |
118 |
$debug and warn "totalpaid = $totalpaid"; |
119 |
} |
120 |
else { |
121 |
++$totalwritten; |
122 |
} |
123 |
|
124 |
} |
125 |
|
126 |
#get credits and append to the bottom of payments |
127 |
my @credits = getcredits( $date, $date2 ); |
128 |
|
129 |
my $count = @credits; |
130 |
my $i = 0; |
131 |
|
132 |
while ( $i < $count ) { |
133 |
|
134 |
my %rows2 = ( |
135 |
creditbranch => $credits[$i]->{'branchcode'}, |
136 |
creditdate => $credits[$i]->{'date'}, |
137 |
creditsurname => $credits[$i]->{'surname'}, |
138 |
creditfirstname => $credits[$i]->{'firstname'}, |
139 |
creditdescription => $credits[$i]->{'description'}, |
140 |
creditaccounttype => $credits[$i]->{'accounttype'}, |
141 |
creditamount => sprintf( "%.2f", $credits[$i]->{'amount'} ) |
142 |
); |
143 |
|
144 |
push( @loop2, \%rows2 ); |
145 |
$totalcredits = $totalcredits + $credits[$i]->{'amount'}; |
146 |
$i++; #increment the while loop |
147 |
} |
148 |
|
149 |
#takes off first char minus sign "-100.00" |
150 |
$totalcredits = substr( $totalcredits, 1 ); |
151 |
|
152 |
my $totalrefunds = 0; |
153 |
my @loop3; |
154 |
my @refunds = getrefunds( $date, $date2 ); |
155 |
$count = @refunds; |
156 |
$i = 0; |
157 |
|
158 |
while ( $i < $count ) { |
159 |
|
160 |
my %rows3 = ( |
161 |
refundbranch => $refunds[$i]->{'branchcode'}, |
162 |
refunddate => $refunds[$i]->{'datetime'}, |
163 |
refundsurname => $refunds[$i]->{'surname'}, |
164 |
refundfirstname => $refunds[$i]->{'firstname'}, |
165 |
refunddescription => $refunds[$i]->{'description'}, |
166 |
refundaccounttype => $refunds[$i]->{'accounttype'}, |
167 |
refundamount => sprintf( "%.2f", $refunds[$i]->{'amount'} ) |
168 |
); |
169 |
|
170 |
push( @loop3, \%rows3 ); |
171 |
$totalrefunds = $totalrefunds + $refunds[$i]->{'amount'}; |
172 |
$i++; #increment the while loop |
173 |
} |
174 |
|
175 |
my $totalcash = $totalpaid - $totalrefunds; |
176 |
|
177 |
if ( $op eq 'To Excel' ) { |
178 |
|
179 |
my $csv = Text::CSV_XS->new( |
180 |
{ |
181 |
'quote_char' => '"', |
182 |
'escape_char' => '"', |
183 |
'sep_char' => ',', |
184 |
'binary' => 1 |
185 |
} |
186 |
); |
187 |
|
188 |
print $input->header( |
189 |
-type => 'application/vnd.ms-excel', |
190 |
-attachment => "stats.csv", |
191 |
); |
192 |
print |
193 |
"Branch, Datetime, Surname, Firstnames, Description, Type, Invoice amount, Payment type, Payment Amount\n"; |
194 |
|
195 |
$DB::single = 1; |
196 |
|
197 |
for my $row (@loop1) { |
198 |
my @array = ( |
199 |
$row->{'branch'}, $row->{'datetime'}, |
200 |
$row->{'surname'}, $row->{'firstname'}, |
201 |
$row->{'description'}, $row->{'accounttype'}, |
202 |
$row->{'amount'}, $row->{'type'}, |
203 |
$row->{'value'} |
204 |
); |
205 |
|
206 |
$csv->combine(@array); |
207 |
my $string = $csv->string(@array); |
208 |
print $string, "\n"; |
209 |
} |
210 |
print ",,,,,,,\n"; |
211 |
print |
212 |
"Branch, Date/time, Surname, Firstname, Description, Charge Type, Invoice Amount\n"; |
213 |
|
214 |
for my $row (@loop2) { |
215 |
|
216 |
my @array = ( |
217 |
$row->{'creditbranch'}, $row->{'creditdate'}, |
218 |
$row->{'creditsurname'}, $row->{'creditfirstname'}, |
219 |
$row->{'creditdescription'}, $row->{'creditaccounttype'}, |
220 |
$row->{'creditamount'} |
221 |
); |
222 |
|
223 |
$csv->combine(@array); |
224 |
my $string = $csv->string(@array); |
225 |
print $string, "\n"; |
226 |
} |
227 |
print ",,,,,,,\n"; |
228 |
print |
229 |
"Branch, Date/time, Surname, Firstname, Description, Charge Type, Invoice Amount\n"; |
230 |
|
231 |
for my $row (@loop3) { |
232 |
my @array = ( |
233 |
$row->{'refundbranch'}, $row->{'refunddate'}, |
234 |
$row->{'refundsurname'}, $row->{'refundfirstname'}, |
235 |
$row->{'refunddescription'}, $row->{'refundaccounttype'}, |
236 |
$row->{'refundamount'} |
237 |
); |
238 |
|
239 |
$csv->combine(@array); |
240 |
my $string = $csv->string(@array); |
241 |
print $string, "\n"; |
242 |
|
243 |
} |
244 |
|
245 |
print ",,,,,,,\n"; |
246 |
print ",,,,,,,\n"; |
247 |
print ",,Total Amount Paid, $totalpaid\n"; |
248 |
print ",,Total Number Written, $totalwritten\n"; |
249 |
print ",,Total Amount Credits, $totalcredits\n"; |
250 |
print ",,Total Amount Refunds, $totalrefunds\n"; |
251 |
} |
252 |
else { |
253 |
$template->param( |
254 |
date => $time, |
255 |
date2 => $time2, |
256 |
loop1 => \@loop1, |
257 |
loop2 => \@loop2, |
258 |
loop3 => \@loop3, |
259 |
totalpaid => $totalpaid, |
260 |
totalcredits => $totalcredits, |
261 |
totalwritten => $totalwritten, |
262 |
totalrefund => $totalrefunds, |
263 |
totalcash => $totalcash, |
264 |
); |
265 |
output_html_with_http_headers $input, $cookie, $template->output; |
266 |
} |
267 |
|
268 |
- |