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