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

(-)a/Koha/Recall.pm (-1 / +1 lines)
Lines 118-124 sub checkout { Link Here
118
        foreach (@items) {
118
        foreach (@items) {
119
            my $recalls_allowed = Koha::CirculationRules->get_effective_rule(
119
            my $recalls_allowed = Koha::CirculationRules->get_effective_rule(
120
                {
120
                {
121
                    branchcode   => C4::Context->userenv->{'branch'},
121
                    branchcode   => $self->pickup_library_id,
122
                    categorycode => $self->patron->categorycode,
122
                    categorycode => $self->patron->categorycode,
123
                    itemtype     => $_->effective_itemtype,
123
                    itemtype     => $_->effective_itemtype,
124
                    rule_name    => 'recalls_allowed',
124
                    rule_name    => 'recalls_allowed',
(-)a/installer/data/mysql/atomicupdate/bug_39962_-_allocate_item_id_to_biblevel_recalls.pl (-1 / +23 lines)
Line 0 Link Here
0
- 
1
use Modern::Perl;
2
use Koha::Recalls;
3
use Koha::Installer::Output qw(say_warning say_success say_info);
4
5
return {
6
    bug_number  => "39962",
7
    description => "Recalled status does not show properly on staff interface record detail page",
8
    up          => sub {
9
        my ($args) = @_;
10
        my ( $dbh, $out ) = @$args{qw(dbh out)};
11
12
        my @recalls = Koha::Recalls->search(
13
            { status => [ 'requested', 'overdue' ], item_id => undef, item_level => 0, completed => 0 } )->as_list;
14
        foreach my $r (@recalls) {
15
            if ( $r->checkout ) {
16
                my $item_id = $r->checkout->itemnumber;
17
                $r->update( { item_id => $item_id } );
18
            }
19
        }
20
21
        say_success( $out, "Allocated checkout itemnumber to biblio-level recalls" );
22
    },
23
};

Return to bug 39962