Lines 35-40
use C4::Items;
Link Here
|
35 |
use C4::Letters; |
35 |
use C4::Letters; |
36 |
use C4::Branch; # GetBranches |
36 |
use C4::Branch; # GetBranches |
37 |
use Koha::DateUtils; |
37 |
use Koha::DateUtils; |
|
|
38 |
use Koha::Database; |
38 |
|
39 |
|
39 |
use constant ATTRIBUTE_SHOW_BARCODE => 'SHOW_BCODE'; |
40 |
use constant ATTRIBUTE_SHOW_BARCODE => 'SHOW_BCODE'; |
40 |
|
41 |
|
Lines 45-50
use Date::Calc qw(
Link Here
|
45 |
); |
46 |
); |
46 |
|
47 |
|
47 |
my $query = new CGI; |
48 |
my $query = new CGI; |
|
|
49 |
my $schema = Koha::Database->new()->schema(); |
48 |
|
50 |
|
49 |
BEGIN { |
51 |
BEGIN { |
50 |
if (C4::Context->preference('BakerTaylorEnabled')) { |
52 |
if (C4::Context->preference('BakerTaylorEnabled')) { |
Lines 160-165
my @overdues;
Link Here
|
160 |
my @issuedat; |
162 |
my @issuedat; |
161 |
my $itemtypes = GetItemTypes(); |
163 |
my $itemtypes = GetItemTypes(); |
162 |
my $issues = GetPendingIssues($borrowernumber); |
164 |
my $issues = GetPendingIssues($borrowernumber); |
|
|
165 |
my $account_debit_rs = $schema->resultset('AccountDebit'); |
163 |
if ($issues){ |
166 |
if ($issues){ |
164 |
foreach my $issue ( sort { $b->{date_due}->datetime() cmp $a->{date_due}->datetime() } @{$issues} ) { |
167 |
foreach my $issue ( sort { $b->{date_due}->datetime() cmp $a->{date_due}->datetime() } @{$issues} ) { |
165 |
# check for reserves |
168 |
# check for reserves |
Lines 168-174
if ($issues){
Link Here
|
168 |
$issue->{'reserved'} = 1; |
171 |
$issue->{'reserved'} = 1; |
169 |
} |
172 |
} |
170 |
|
173 |
|
171 |
$issue->{'charges'} = $borr->{account_balance}; |
174 |
$issue->{'charges'} = $account_debit_rs->search({ borrowernumber => $borrowernumber, itemnumber => $issue->{'itemnumber'} })->get_column('amount_outstanding')->sum(); |
172 |
$issue->{'subtitle'} = GetRecordValue('subtitle', GetMarcBiblio($issue->{'biblionumber'}), GetFrameworkCode($issue->{'biblionumber'})); |
175 |
$issue->{'subtitle'} = GetRecordValue('subtitle', GetMarcBiblio($issue->{'biblionumber'}), GetFrameworkCode($issue->{'biblionumber'})); |
173 |
# check if item is renewable |
176 |
# check if item is renewable |
174 |
my ($status,$renewerror) = CanBookBeRenewed( $borrowernumber, $issue->{'itemnumber'} ); |
177 |
my ($status,$renewerror) = CanBookBeRenewed( $borrowernumber, $issue->{'itemnumber'} ); |
175 |
- |
|
|