6 #script to display reports
9 # Copyright 2000-2002 Katipo Communications
11 # This file is part of Koha.
13 # Koha is free software; you can redistribute it and/or modify it under the
14 # terms of the GNU General Public License as published by the Free Software
15 # Foundation; either version 2 of the License, or (at your option) any later
18 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
19 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
20 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
22 # You should have received a copy of the GNU General Public License along with
23 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
24 # Suite 330, Boston, MA 02111-1307 USA
31 use C4::Interface::CGI::Output;
37 my $time=$input->param('time');
39 my ($template, $loggedinuser, $cookie)
40 = get_template_and_user({template_name => "stats.tmpl",
44 flagsrequired => {borrowers => 1},
50 if ($time eq 'yesterday'){
51 $date=ParseDate('yesterday');
52 $date2=ParseDate('today');
54 if ($time eq 'today'){
55 $date=ParseDate('today');
56 $date2=ParseDate('tomorrow');
58 if ($time eq 'daybefore'){
59 $date=ParseDate('2 days ago');
60 $date2=ParseDate('yesterday');
63 $date=ParseDate($time);
64 $date2=ParseDateDelta('+ 1 day');
65 $date2=DateCalc($date,$date2);
67 $date=UnixDate($date,'%Y-%m-%d');
68 $date2=UnixDate($date2,'%Y-%m-%d');
69 my @payments=TotalPaid($date);
81 my $time=$payments[$i]{'datetime'};
82 my $payments=$payments[$i]{'value'};
84 my @temp=split(/ /,$payments[$i]{'datetime'});
86 my @charges=getcharges($payments[$i]{'borrowernumber'},$payments[$i]{'timestamp'});
93 for (my $i2=0;$i2<$count;$i2++){
94 $charge+=$charges[$i2]->{'amount'};
95 %row = ( name => $charges[$i2]->{'description'},
96 type => $charges[$i2]->{'accounttype'},
97 time => $charges[$i2]->{'timestamp'},
98 amount => $charges[$i2]->{'amount'},
99 branch => $charges[$i2]->{'amountoutstanding'} );
101 if ($payments[$i]{'accountytpe'} ne 'W'){
102 if ($charges[$i2]->{'accounttype'} eq 'Rent'){
103 $temptotalr+=$charges[$i2]->{'amount'}-$charges[$i2]->{'amountoutstanding'};
105 if ($charges[$i2]->{'accounttype'} eq 'F' || $charges[$i2]->{'accounttype'} eq 'FU' || $charges[$i2]->{'accounttype'} eq 'FN' ){
106 $temptotalf+=$charges[$i2]->{'amount'}-$charges[$i2]->{'amountoutstanding'};
108 if ($charges[$i2]->{'accounttype'} eq 'Res'){
109 $temptotalres+=$charges[$i2]->{'amount'}-$charges[$i2]->{'amountoutstanding'};
111 if ($charges[$i2]->{'accounttype'} eq 'R'){
112 $temptotalren+=$charges[$i2]->{'amount'}-$charges[$i2]->{'amountoutstanding'};
117 my $hour=substr($payments[$i]{'timestamp'},8,2);
118 my $min=substr($payments[$i]{'timestamp'},10,2);
119 my $sec=substr($payments[$i]{'timestamp'},12,2);
120 my $time="$hour:$min:$sec";
121 my $time2="$payments[$i]{'date'}";
122 my $branch=Getpaidbranch($time2,$payments[$i]{'borrowernumber'});
124 $levin{'totalf'}+=$temptotalf;
125 $levin{'totalres'}+=$temptotalres;
126 $levin{'totalren'}+=$temptotalren;
127 $levin{'totalr'}+=$temptotalr;
128 } elsif ($branch eq 'F'){
129 $foxton{'totalf'}+=$temptotalf;
130 $foxton{'totalres'}+=$temptotalres;
131 $foxton{'totalren'}+=$temptotalren;
132 $foxton{'totalr'}+=$temptotalr;
133 } elsif ($branch eq 'S'){
134 $shannon{'totalf'}+=$temptotalf;
135 $shannon{'totalres'}+=$temptotalres;
136 $shannon{'totalren'}+=$temptotalren;
137 $shannon{'totalr'}+=$temptotalr;
139 my $bornum=$payments[$i]{'borrowernumber'};
140 my $oldtime=$payments[$i]{'timestamp'};
141 my $oldtype=$payments[$i]{'accounttype'};
142 while ($bornum eq $payments[$i]{'borrowernumber'} && $oldtype == $payments[$i]{'accounttype'} && $oldtime eq $payments[$i]{'timestamp'}){
143 my $hour=substr($payments[$i]{'timestamp'},8,2);
144 my $min=substr($payments[$i]{'timestamp'},10,2);
145 my $sec=substr($payments[$i]{'timestamp'},12,2);
146 my $time="$hour:$min:$sec";
147 my $time2="$payments[$i]{'date'}";
148 my $branch=Getpaidbranch($time2,$payments[$i]{'borrowernumber'});
150 if ($payments[$i]{'accounttype'} eq 'W'){
151 $totalw+=$payments[$i]{'amount'};
153 $payments[$i]{'amount'}=$payments[$i]{'amount'}*-1;
154 $total+=$payments[$i]{'amount'};
156 $levin{'total'}+=$payments[$i]{'amount'};
159 $foxton{'total'}+=$payments[$i]{'amount'};
162 $shannon{'total'}+=$payments[$i]{'amount'};
167 %row = ( name => $payments[$i]{'firstname'} . " <b>" . $payments[$i]{'surname'} . "</b>",
168 type => $payments[$i]{'accounttype'},
169 time => $payments[$i]{'date'},
170 amount => $payments[$i]{'amount'},
175 $oldtype=$payments[$i]{'accounttype'};
176 $oldtime=$payments[$i]{'timestamp'};
177 $bornum=$payments[$i]{'borrowernumber'};
183 $template->param( loop => \@loop,
187 output_html_with_http_headers $input, $cookie, $template->output;