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