|
Lines 74-86
sub _processrecord {
Link Here
|
| 74 |
my ($biblionumber_field, $biblionumber_subfield) = GetMarcFromKohaField("biblio.biblionumber", ''); |
74 |
my ($biblionumber_field, $biblionumber_subfield) = GetMarcFromKohaField("biblio.biblionumber", ''); |
| 75 |
my $biblionumber = $record->field($biblionumber_field)->subfield($biblionumber_subfield); |
75 |
my $biblionumber = $record->field($biblionumber_field)->subfield($biblionumber_subfield); |
| 76 |
|
76 |
|
| 77 |
my $not_onloan_items = 0; |
77 |
my $not_onloan_items = Koha::Items->search({ |
| 78 |
my $items = Koha::Items->search({ biblionumber => $biblionumber }); |
78 |
biblionumber => $biblionumber, |
| 79 |
|
79 |
onloan => undef, |
| 80 |
while ( my $item = $items->next ) { |
80 |
})->count; |
| 81 |
$not_onloan_items++ |
|
|
| 82 |
if not $item->onloan; |
| 83 |
} |
| 84 |
|
81 |
|
| 85 |
# check for field 999 |
82 |
# check for field 999 |
| 86 |
my $destination_field = $record->field('999'); |
83 |
my $destination_field = $record->field('999'); |
| 87 |
- |
|
|