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 |
- |
|
|