3 # script to show a breakdown of committed and spent budgets
5 # Copyright 2002-2009 Katipo Communications Limited
6 # Copyright 2010 Catalyst IT Limited
7 # This file is part of Koha.
9 # Koha is free software; you can redistribute it and/or modify it under the
10 # terms of the GNU General Public License as published by the Free Software
11 # Foundation; either version 2 of the License, or (at your option) any later
14 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
15 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
16 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
18 # You should have received a copy of the GNU General Public License along
19 # with Koha; if not, write to the Free Software Foundation, Inc.,
20 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
28 this script is designed to show the spent amount in budges
39 my $dbh = C4::Context->dbh;
41 my $bookfund = $input->param('fund');
42 my $start = $input->param('start');
43 my $end = $input->param('end');
45 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
47 template_name => "acqui/spent.tt",
51 flagsrequired => { acquisition => 1 },
58 aqorders.basketno, aqorders.ordernumber,
59 quantity-quantityreceived AS tleft,
61 aqbasket.booksellerid,
64 aqorders.booksellerinvoicenumber,
70 FROM (aqorders, aqbasket)
72 items.biblioitemnumber=aqorders.biblioitemnumber
74 biblio.biblionumber=aqorders.biblionumber
75 LEFT JOIN aqorders_items ON
76 aqorders.ordernumber=aqorders_items.ordernumber
78 aqorders.basketno=aqbasket.basketno AND
80 (datecancellationprinted IS NULL OR
81 datecancellationprinted='0000-00-00')
82 GROUP BY aqorders.ordernumber
84 my $sth = $dbh->prepare($query);
85 $sth->execute( $bookfund);
87 die "An error occurred fetching records: ".$sth->errstr;
92 while ( my $data = $sth->fetchrow_hashref ) {
93 my $recv = $data->{'quantityreceived'};
95 my $subtotal = $recv * ($data->{'unitprice'} + $data->{'freight'});
96 $data->{'subtotal'} = sprintf ("%.2f", $subtotal);
97 $data->{'freight'} = sprintf ("%.2f", $data->{'freight'});
98 $data->{'unitprice'} = sprintf ("%.2f", $data->{'unitprice'} );
107 $data->{'toggle'} = $toggle;
112 $total = sprintf ("%.2f", $total);
121 output_html_with_http_headers $input, $cookie, $template->output;