Bug 15230: Remove unused file circ/stats.pl and stats.tt from system
This patch removes stats.pl and stats.tt from system. To test: - Verify that both files are not used and that the only reference in koha-tmpl/intranet-tmpl/prog/en/modules/circ/circulation-home.tt is commented out. - Apply patch - Verify that the files are deleted and the reference is removed. - git grep 'stats.pl', verify that there are no more references to this file. Signed-off-by: Owen Leonard <oleonard@myacpl.org> Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org> See the following commit for more info on this script: commit60105bd692Date: Tue Jul 8 20:02:34 2008 -0500 fix for 2008: Daily reconciliation report broken Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com> (cherry picked from commit186b4b7e09) Signed-off-by: Julian Maurice <julian.maurice@biblibre.com>
This commit is contained in:
Marc Véron
Julian Maurice
parent
fddc423c09
commit
24048cbfe7
189
circ/stats.pl
189
circ/stats.pl
|
|
@ -1,189 +0,0 @@
|
|||
#!/usr/bin/perl
|
||||
|
||||
|
||||
#written 14/1/2000
|
||||
#script to display reports
|
||||
|
||||
# Copyright 2000-2002 Katipo Communications
|
||||
#
|
||||
# This file is part of Koha.
|
||||
#
|
||||
# Koha is free software; you can redistribute it and/or modify it
|
||||
# under the terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation; either version 3 of the License, or
|
||||
# (at your option) any later version.
|
||||
#
|
||||
# Koha is distributed in the hope that it will be useful, but
|
||||
# WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
# GNU General Public License for more details.
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License
|
||||
# along with Koha; if not, see <http://www.gnu.org/licenses>.
|
||||
|
||||
use strict;
|
||||
#use warnings; FIXME - Bug 2505
|
||||
use CGI qw ( -utf8 );
|
||||
use C4::Context;
|
||||
use C4::Output;
|
||||
use C4::Auth;
|
||||
use Date::Manip;
|
||||
use C4::Stats;
|
||||
use C4::Debug;
|
||||
|
||||
use vars qw($debug);
|
||||
|
||||
my $input = new CGI;
|
||||
my $time = $input->param('time') || '';
|
||||
|
||||
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
|
||||
{
|
||||
template_name => "circ/stats.tt",
|
||||
query => $input,
|
||||
type => "intranet",
|
||||
authnotrequired => 0,
|
||||
flagsrequired => { reports => 1 },
|
||||
debug => 1,
|
||||
}
|
||||
);
|
||||
|
||||
my $date;
|
||||
my $date2;
|
||||
if ( $time eq 'yesterday' ) {
|
||||
$date = ParseDate('yesterday');
|
||||
$date2 = ParseDate('today');
|
||||
}
|
||||
elsif ( $time eq 'today' ) {
|
||||
$date = ParseDate('today');
|
||||
$date2 = ParseDate('tomorrow');
|
||||
}
|
||||
elsif ( $time eq 'daybefore' ) {
|
||||
$date = ParseDate('2 days ago');
|
||||
$date2 = ParseDate('yesterday');
|
||||
}
|
||||
elsif ( $time eq 'month' ) {
|
||||
$date = ParseDate('1 month ago');
|
||||
$date2 = ParseDate('today');
|
||||
}
|
||||
elsif ( $time =~ /\// ) {
|
||||
$date = ParseDate($time);
|
||||
$date2 = ParseDateDelta('+ 1 day');
|
||||
$date2 = DateCalc( $date, $date2 );
|
||||
} else {
|
||||
$template->param(notime => '1'); # TODO: add error feedback if time sent, but unrecognized
|
||||
output_html_with_http_headers $input, $cookie, $template->output;
|
||||
exit;
|
||||
}
|
||||
|
||||
$debug and warn "d : $date // d2 : $date2";
|
||||
$date = UnixDate( $date, '%Y-%m-%d' );
|
||||
$date2 = UnixDate( $date2, '%Y-%m-%d' );
|
||||
$debug and warn "d : $date // d2 : $date2";
|
||||
my @payments = TotalPaid( $date, $date2 );
|
||||
my $count = @payments;
|
||||
my $total = 0;
|
||||
my $totalw = 0;
|
||||
my $oldtime;
|
||||
my @loop;
|
||||
my %row;
|
||||
my $i = 0;
|
||||
|
||||
while ( $i < $count ) {
|
||||
$debug and warn " pay : " . $payments[$i]{'timestamp'};
|
||||
my $time = $payments[$i]{'datetime'};
|
||||
my $payments = $payments[$i]{'value'};
|
||||
my $charge = 0;
|
||||
my @temp = split(/ /, $payments[$i]{'datetime'});
|
||||
my $date = $temp[0];
|
||||
my @charges =
|
||||
getcharges( $payments[$i]{'borrowernumber'}, $payments[$i]{'timestamp'} );
|
||||
my $count = @charges;
|
||||
my $temptotalf = 0;
|
||||
my $temptotalr = 0;
|
||||
my $temptotalres = 0;
|
||||
my $temptotalren = 0;
|
||||
my $temptotalw = 0;
|
||||
|
||||
# FIXME: way too much logic to live only here in a report script
|
||||
for ( my $i2 = 0 ; $i2 < $count ; $i2++ ) {
|
||||
$charge += $charges[$i2]->{'amount'};
|
||||
%row = (
|
||||
name => $charges[$i2]->{'description'},
|
||||
type => $charges[$i2]->{'accounttype'},
|
||||
time => $charges[$i2]->{'timestamp'},
|
||||
amount => $charges[$i2]->{'amount'},
|
||||
branch => $charges[$i2]->{'amountoutstanding'}
|
||||
);
|
||||
push( @loop, \%row );
|
||||
if ( $payments[$i]{'accountytpe'} ne 'W' ) {
|
||||
if ( $charges[$i2]->{'accounttype'} eq 'Rent' ) {
|
||||
$temptotalr +=
|
||||
$charges[$i2]->{'amount'} -
|
||||
$charges[$i2]->{'amountoutstanding'};
|
||||
}
|
||||
if ( $charges[$i2]->{'accounttype'} eq 'F'
|
||||
|| $charges[$i2]->{'accounttype'} eq 'FU'
|
||||
|| $charges[$i2]->{'accounttype'} eq 'FN' )
|
||||
{
|
||||
$temptotalf +=
|
||||
$charges[$i2]->{'amount'} -
|
||||
$charges[$i2]->{'amountoutstanding'};
|
||||
}
|
||||
if ( $charges[$i2]->{'accounttype'} eq 'Res' ) {
|
||||
$temptotalres +=
|
||||
$charges[$i2]->{'amount'} -
|
||||
$charges[$i2]->{'amountoutstanding'};
|
||||
}
|
||||
if ( $charges[$i2]->{'accounttype'} eq 'R' ) {
|
||||
$temptotalren +=
|
||||
$charges[$i2]->{'amount'} -
|
||||
$charges[$i2]->{'amountoutstanding'};
|
||||
}
|
||||
}
|
||||
}
|
||||
my $time2 = $payments[$i]{'date'};
|
||||
my $branch = Getpaidbranch( $time2, $payments[$i]{'borrowernumber'} );
|
||||
my $borrowernumber = $payments[$i]{'borrowernumber'};
|
||||
my $oldtime = $payments[$i]{'timestamp'};
|
||||
my $oldtype = $payments[$i]{'accounttype'};
|
||||
|
||||
while ($borrowernumber eq $payments[$i]{'borrowernumber'}
|
||||
&& $oldtype == $payments[$i]{'accounttype'}
|
||||
&& $oldtime eq $payments[$i]{'timestamp'} )
|
||||
{
|
||||
my $xtime2 = $payments[$i]{'date'};
|
||||
my $branch = Getpaidbranch( $xtime2, $payments[$i]{'borrowernumber'} );
|
||||
if ( $payments[$i]{'accounttype'} eq 'W' ) {
|
||||
$totalw += $payments[$i]{'amount'};
|
||||
}
|
||||
else {
|
||||
$payments[$i]{'amount'} = $payments[$i]{'amount'} * -1;
|
||||
$total += $payments[$i]{'amount'};
|
||||
}
|
||||
|
||||
#FIXME: display layer HTML
|
||||
%row = (
|
||||
name => "<b>"
|
||||
. $payments[$i]{'firstname'}
|
||||
. $payments[$i]{'surname'} . "</b>",
|
||||
type => $payments[$i]{'accounttype'},
|
||||
time => $payments[$i]{'date'},
|
||||
amount => $payments[$i]{'amount'},
|
||||
branch => $branch
|
||||
);
|
||||
push( @loop, \%row );
|
||||
$oldtype = $payments[$i]{'accounttype'};
|
||||
$oldtime = $payments[$i]{'timestamp'};
|
||||
$borrowernumber = $payments[$i]{'borrowernumber'};
|
||||
$i++;
|
||||
}
|
||||
}
|
||||
|
||||
$template->param(
|
||||
loop1 => \@loop,
|
||||
totalw => $totalw,
|
||||
total => $total
|
||||
);
|
||||
|
||||
output_html_with_http_headers $input, $cookie, $template->output;
|
||||
|
||||
|
|
@ -46,7 +46,6 @@
|
|||
- <b>Warning:</b> This report is very resource intensive on
|
||||
systems with large numbers of overdue items.</li>[% END %]
|
||||
<li> <a href="/cgi-bin/koha/circ/branchoverdues.pl">Overdues with fines</a> - Limited to your library. See report help for other details.</li>
|
||||
<!-- <li> <a href="/cgi-bin/koha/circ/stats.pl?time=yesterday">Daily reconciliation</a></li> -->
|
||||
[% IF Koha.Preference('OnSiteCheckouts') %]
|
||||
<li><a href="/cgi-bin/koha/circ/on-site_checkouts.pl">Pending on-site checkouts</a></li>
|
||||
[% END %]
|
||||
|
|
|
|||
|
|
@ -1,55 +0,0 @@
|
|||
[% INCLUDE 'doc-head-open.inc' %]
|
||||
<title>Koha › Circulation › Statistics</title>
|
||||
[% INCLUDE 'doc-head-close.inc' %]
|
||||
</head>
|
||||
<body id="circ_stats" class="circ">
|
||||
[% INCLUDE 'header.inc' %]
|
||||
[% INCLUDE 'circ-search.inc' %]
|
||||
|
||||
<div id="breadcrumbs"><a href="/cgi-bin/koha/mainpage.pl">Home</a> › <a href="/cgi-bin/koha/circ/circulation-home.pl">Circulation</a> › Statistics</div>
|
||||
|
||||
<div id="doc3" class="yui-t2">
|
||||
|
||||
<div id="bd">
|
||||
<div id="yui-main">
|
||||
<div class="yui-b">
|
||||
|
||||
[% IF ( notime ) %]
|
||||
<h1>Display statistics for:</h1>
|
||||
<ul>
|
||||
<li><a href="/cgi-bin/koha/circ/stats.pl?time=yesterday">yesterday</a></li>
|
||||
<li><a href="/cgi-bin/koha/circ/stats.pl?time=today">today</a></li>
|
||||
[% ELSE %]
|
||||
[% IF ( loop1 ) %]
|
||||
<table>
|
||||
<caption>Statistics</caption>
|
||||
<tr>
|
||||
<th>Name</th>
|
||||
<th>Type</th>
|
||||
<th>Date/time</th>
|
||||
<th>Amount</th>
|
||||
<th>Library</th>
|
||||
<tr>
|
||||
[% FOREACH loop IN loop1 %]
|
||||
<tr>
|
||||
<td>[% loop.name %]</td>
|
||||
<td>[% loop.type %]</td>
|
||||
<td>[% loop.time %]</td>
|
||||
<td>[% loop.amount %]</td>
|
||||
<td>[% loop.branch %]</td>
|
||||
</tr>
|
||||
[% END %]
|
||||
</table>
|
||||
<p>Total paid: [% total %]<br />Total written off: [% totalw %]</p>
|
||||
[% ELSE %]
|
||||
<h3>No statistics to report</h3>
|
||||
[% END %]
|
||||
|
||||
[% END %]
|
||||
</div>
|
||||
</div>
|
||||
<div class="yui-b">
|
||||
[% INCLUDE 'circ-menu.inc' %]
|
||||
</div>
|
||||
</div>
|
||||
[% INCLUDE 'intranet-bottom.inc' %]
|
||||
Loading…
Reference in New Issue