reports/stats.screen.pl

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