From 8b80d0411494695aefd334e6638eabf401dc54f4 Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Mon, 23 Jun 2014 13:50:52 -0400 Subject: [PATCH] Bug 6427 [Part 34] - Issues view should show Yes to fines only for items with associated debits in opac --- opac/opac-user.pl | 5 ++++- 1 files changed, 4 insertions(+), 1 deletions(-) diff --git a/opac/opac-user.pl b/opac/opac-user.pl index 8f50a48..137d40c 100755 --- a/opac/opac-user.pl +++ b/opac/opac-user.pl @@ -35,6 +35,7 @@ use C4::Items; use C4::Letters; use C4::Branch; # GetBranches use Koha::DateUtils; +use Koha::Database; use constant ATTRIBUTE_SHOW_BARCODE => 'SHOW_BCODE'; @@ -45,6 +46,7 @@ use Date::Calc qw( ); my $query = new CGI; +my $schema = Koha::Database->new()->schema(); BEGIN { if (C4::Context->preference('BakerTaylorEnabled')) { @@ -160,6 +162,7 @@ my @overdues; my @issuedat; my $itemtypes = GetItemTypes(); my $issues = GetPendingIssues($borrowernumber); +my $account_debit_rs = $schema->resultset('AccountDebit'); if ($issues){ foreach my $issue ( sort { $b->{date_due}->datetime() cmp $a->{date_due}->datetime() } @{$issues} ) { # check for reserves @@ -168,7 +171,7 @@ if ($issues){ $issue->{'reserved'} = 1; } - $issue->{'charges'} = $borr->{account_balance}; + $issue->{'charges'} = $account_debit_rs->search({ borrowernumber => $borrowernumber, itemnumber => $issue->{'itemnumber'} })->get_column('amount_outstanding')->sum(); $issue->{'subtitle'} = GetRecordValue('subtitle', GetMarcBiblio($issue->{'biblionumber'}), GetFrameworkCode($issue->{'biblionumber'})); # check if item is renewable my ($status,$renewerror) = CanBookBeRenewed( $borrowernumber, $issue->{'itemnumber'} ); -- 1.7.2.5