=cut
use C4::Context;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Acquisition;
+use C4::Acquisition qw( get_rounded_price );
use Koha::Acquisition::Invoice::Adjustments;
my $dbh = C4::Context->dbh;
-my $input = new CGI;
+my $input = CGI->new;
my $bookfund = $input->param('fund');
my $fund_code = $input->param('fund_code');
template_name => "acqui/spent.tt",
query => $input,
type => "intranet",
- authnotrequired => 0,
flagsrequired => { acquisition => '*' },
- debug => 1,
}
);
quantity-quantityreceived AS tleft,
budgetdate, entrydate,
aqbasket.booksellerid,
- GROUP_CONCAT(DISTINCT itype),
+ GROUP_CONCAT(DISTINCT itype SEPARATOR '|') as itypes,
title,
aqorders.invoiceid,
aqinvoices.invoicenumber,
WHERE
aqorders.basketno=aqbasket.basketno AND
budget_id=? AND
- (datecancellationprinted IS NULL OR
- datecancellationprinted='0000-00-00') AND
+ datecancellationprinted IS NULL AND
datereceived IS NOT NULL
GROUP BY aqorders.biblionumber, aqorders.basketno, aqorders.ordernumber,
tleft,
my @spent;
while ( my $data = $sth->fetchrow_hashref ) {
my $recv = $data->{'quantityreceived'};
+ $data->{'itemtypes'} = [split('\|', $data->{itypes})];
if ( $recv > 0 ) {
my $rowtotal = $recv * get_rounded_price($data->{'unitprice_tax_included'});
$data->{'rowtotal'} = sprintf( "%.2f", $rowtotal );