Lines 338-344
sub GetBudgetSpent {
Link Here
|
338 |
datecancellationprinted IS NULL |
338 |
datecancellationprinted IS NULL |
339 |
|); |
339 |
|); |
340 |
$sth->execute($budget_id); |
340 |
$sth->execute($budget_id); |
341 |
my $sum = 0 + $sth->fetchrow_array; |
341 |
my $sum = 0 + $sth->fetchrow_array; |
342 |
|
342 |
|
343 |
$sth = $dbh->prepare(qq| |
343 |
$sth = $dbh->prepare(qq| |
344 |
SELECT SUM(shipmentcost) AS sum |
344 |
SELECT SUM(shipmentcost) AS sum |
Lines 369-375
sub GetBudgetOrdered {
Link Here
|
369 |
datecancellationprinted IS NULL |
369 |
datecancellationprinted IS NULL |
370 |
|); |
370 |
|); |
371 |
$sth->execute($budget_id); |
371 |
$sth->execute($budget_id); |
372 |
my $sum = 0 + $sth->fetchrow_array; |
372 |
my $sum = 0 + $sth->fetchrow_array; |
373 |
|
373 |
|
374 |
my $adjustments = Koha::InvoiceAdjustments->search({budget_id => $budget_id, encumber_open => 1, closedate => undef},{ join => 'invoiceid' }); |
374 |
my $adjustments = Koha::InvoiceAdjustments->search({budget_id => $budget_id, encumber_open => 1, closedate => undef},{ join => 'invoiceid' }); |
375 |
while ( my $adj = $adjustments->next ){ |
375 |
while ( my $adj = $adjustments->next ){ |