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

(-)a/opac/sco/sco-main.pl (-11 / +11 lines)
Lines 248-271 if ($borrower) { Link Here
248
#   warn "issuer's  branchcode: " .   $issuer->{branchcode};
248
#   warn "issuer's  branchcode: " .   $issuer->{branchcode};
249
#   warn   "user's  branchcode: " . $borrower->{branchcode};
249
#   warn   "user's  branchcode: " . $borrower->{branchcode};
250
    my $borrowername = sprintf "%s %s", ($borrower->{firstname} || ''), ($borrower->{surname} || '');
250
    my $borrowername = sprintf "%s %s", ($borrower->{firstname} || ''), ($borrower->{surname} || '');
251
    my @issues;
251
    my $pending_checkouts = $patron->pending_checkouts;
252
    my ($issueslist) = GetPendingIssues( $borrower->{'borrowernumber'} );
252
    my @checkouts;
253
    foreach my $it (@$issueslist) {
253
    while ( my $c = $pending_checkouts->next ) {
254
        my $checkout = $c->unblessed_all_relateds;
254
        my ($can_be_renewed, $renew_error) = CanBookBeRenewed(
255
        my ($can_be_renewed, $renew_error) = CanBookBeRenewed(
255
            $borrower->{borrowernumber},
256
            $borrower->{borrowernumber},
256
            $it->{itemnumber},
257
            $checkout->{itemnumber},
257
        );
258
        );
258
        $it->{can_be_renewed} = $can_be_renewed;
259
        $checkout->{can_be_renewed} = $can_be_renewed; # In the future this will be $checkout->can_be_renewed
259
        $it->{renew_error} = $renew_error;
260
        $checkout->{renew_error} = $renew_error;
260
        $it->{date_due}  = $it->{date_due_sql};
261
        $checkout->{overdue} = $c->is_overdue;
261
        push @issues, $it;
262
        push @checkouts, $checkout;
262
    }
263
    }
263
264
264
    $template->param(
265
    $template->param(
265
        validuser => 1,
266
        validuser => 1,
266
        borrowername => $borrowername,
267
        borrowername => $borrowername,
267
        issues_count => scalar(@issues),
268
        issues_count => scalar(@checkouts),
268
        ISSUES => \@issues,
269
        ISSUES => \@checkouts,
269
        patronid => $patronid,
270
        patronid => $patronid,
270
        patronlogin => $patronlogin,
271
        patronlogin => $patronlogin,
271
        patronpw => $patronpw,
272
        patronpw => $patronpw,
272
- 

Return to bug 19935