View | Details | Raw Unified | Return to bug 6427
Collapse All | Expand All

(-)a/opac/opac-user.pl (-2 / +4 lines)
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
- 

Return to bug 6427