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

(-)a/opac/opac-reserve.pl (-11 / +7 lines)
Lines 1-5 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
3
# Copyright Katipo Communications 2002
4
# Copyright Katipo Communications 2002
4
# Copyright Koha Development team 2012
5
# Copyright Koha Development team 2012
5
#
6
#
Lines 151-170 foreach my $biblioNumber (@biblionumbers) { Link Here
151
152
152
    my $marcrecord = $biblio->metadata->record;
153
    my $marcrecord = $biblio->metadata->record;
153
154
154
    my $items =
155
    my $items = Koha::Items->search_ordered(
155
      $biblio->items->filter_by_visible_in_opac( { patron => $patron } );
156
        [
156
    my $host_items =
157
            biblionumber => $biblioNumber,
157
      $biblio->host_items->filter_by_visible_in_opac( { patron => $patron } );
158
    $items = $biblio->items->search_ordered(
159
        {
160
            itemnumber => {
158
            itemnumber => {
161
                -in => [
159
                -in => [
162
                    $items->get_column('itemnumber'),
160
                    $biblio->host_items->get_column('itemnumber')
163
                    $host_items->get_column('itemnumber')
164
                ]
161
                ]
165
            }
162
            }
166
        }
163
        ],
167
    );
164
    )->filter_by_visible_in_opac({ patron => $patron });
168
165
169
    $biblioData->{items} = [$items->as_list]; # FIXME Potentially a lot in memory here!
166
    $biblioData->{items} = [$items->as_list]; # FIXME Potentially a lot in memory here!
170
167
171
- 

Return to bug 31314