|
Lines 72-78
sub _processrecord {
Link Here
|
| 72 |
my $record = shift; |
72 |
my $record = shift; |
| 73 |
|
73 |
|
| 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 = ( $biblionumber_field > 9 ) |
|
|
76 |
? $record->field($biblionumber_field)->subfield($biblionumber_subfield) |
| 77 |
: $record->field($biblionumber_field)->data(); |
| 76 |
|
78 |
|
| 77 |
my $not_onloan_items = Koha::Items->search({ |
79 |
my $not_onloan_items = Koha::Items->search({ |
| 78 |
biblionumber => $biblionumber, |
80 |
biblionumber => $biblionumber, |
| 79 |
- |
|
|