Lines 30-35
use Koha::SearchMarcMaps;
Link Here
|
30 |
use Koha::Caches; |
30 |
use Koha::Caches; |
31 |
use C4::Heading; |
31 |
use C4::Heading; |
32 |
use C4::AuthoritiesMarc qw( GuessAuthTypeCode ); |
32 |
use C4::AuthoritiesMarc qw( GuessAuthTypeCode ); |
|
|
33 |
use C4::Biblio; |
33 |
|
34 |
|
34 |
use Carp qw( carp croak ); |
35 |
use Carp qw( carp croak ); |
35 |
use Clone qw( clone ); |
36 |
use Clone qw( clone ); |
Lines 773-779
sub marc_records_to_documents {
Link Here
|
773 |
|
774 |
|
774 |
# Check if there is at least one available item |
775 |
# Check if there is at least one available item |
775 |
if ($self->index eq $BIBLIOS_INDEX) { |
776 |
if ($self->index eq $BIBLIOS_INDEX) { |
776 |
my $biblio = Koha::Biblios->find($record->field('001')->data); |
777 |
my ($tag, $code) = C4::Biblio::GetMarcFromKohaField('biblio.biblionumber'); |
|
|
778 |
my $field = $record->field($tag); |
779 |
my $biblionumber = $field->is_control_field ? $field->data : $field->subfield($code); |
780 |
my $biblio = Koha::Biblios->find($biblionumber); |
777 |
my $items = $biblio->items; |
781 |
my $items = $biblio->items; |
778 |
my $available = 0; |
782 |
my $available = 0; |
779 |
while (my $item = $items->next) { |
783 |
while (my $item = $items->next) { |
780 |
- |
|
|