Lines 563-577
sub get_components_query {
Link Here
|
563 |
|
563 |
|
564 |
my $builder = Koha::SearchEngine::QueryBuilder->new( |
564 |
my $builder = Koha::SearchEngine::QueryBuilder->new( |
565 |
{ index => $Koha::SearchEngine::BIBLIOS_INDEX } ); |
565 |
{ index => $Koha::SearchEngine::BIBLIOS_INDEX } ); |
566 |
my $marc = $self->metadata->record; |
566 |
|
|
|
567 |
my $record; |
568 |
eval { $record = $self->metadata->record }; |
569 |
return if !$record; |
567 |
|
570 |
|
568 |
my $searchstr; |
571 |
my $searchstr; |
569 |
if ( C4::Context->preference('UseControlNumber') ) { |
572 |
if ( C4::Context->preference('UseControlNumber') ) { |
570 |
my $pf001 = $marc->field('001') || undef; |
573 |
my $pf001 = $record->field('001') || undef; |
571 |
|
574 |
|
572 |
if ( defined($pf001) ) { |
575 |
if ( defined($pf001) ) { |
573 |
$searchstr = "("; |
576 |
$searchstr = "("; |
574 |
my $pf003 = $marc->field('003') || undef; |
577 |
my $pf003 = $record->field('003') || undef; |
575 |
|
578 |
|
576 |
if ( !defined($pf003) ) { |
579 |
if ( !defined($pf003) ) { |
577 |
# search for 773$w='Host001' |
580 |
# search for 773$w='Host001' |
Lines 591-597
sub get_components_query {
Link Here
|
591 |
} |
594 |
} |
592 |
} |
595 |
} |
593 |
else { |
596 |
else { |
594 |
my $cleaned_title = $marc->subfield('245', "a"); |
597 |
my $cleaned_title = $record->subfield('245', "a"); |
595 |
$cleaned_title =~ tr|/||; |
598 |
$cleaned_title =~ tr|/||; |
596 |
$cleaned_title = $builder->clean_search_term($cleaned_title); |
599 |
$cleaned_title = $builder->clean_search_term($cleaned_title); |
597 |
$searchstr = "Host-item:($cleaned_title)"; |
600 |
$searchstr = "Host-item:($cleaned_title)"; |
Lines 650-656
Returns the COinS (a span) which can be included in a biblio record
Link Here
|
650 |
sub get_coins { |
653 |
sub get_coins { |
651 |
my ( $self ) = @_; |
654 |
my ( $self ) = @_; |
652 |
|
655 |
|
653 |
my $record = $self->metadata->record; |
656 |
my $record; |
|
|
657 |
eval { $record = $self->metadata->record }; |
658 |
return if !$record; |
654 |
|
659 |
|
655 |
my $pos7 = substr $record->leader(), 7, 1; |
660 |
my $pos7 = substr $record->leader(), 7, 1; |
656 |
my $pos6 = substr $record->leader(), 6, 1; |
661 |
my $pos6 = substr $record->leader(), 6, 1; |
Lines 940-946
sub get_marc_notes {
Link Here
|
940 |
|
945 |
|
941 |
my %hiddenlist = map { $_ => 1 } |
946 |
my %hiddenlist = map { $_ => 1 } |
942 |
split( /,/, C4::Context->preference('NotesToHide')); |
947 |
split( /,/, C4::Context->preference('NotesToHide')); |
943 |
my $record = $self->metadata->record; |
948 |
|
|
|
949 |
my $record; |
950 |
eval { $record = $self->metadata->record }; |
951 |
return if !$record; |
952 |
|
944 |
$record = transformMARCXML4XSLT( $self->biblionumber, $record, $opac ); |
953 |
$record = transformMARCXML4XSLT( $self->biblionumber, $record, $opac ); |
945 |
|
954 |
|
946 |
foreach my $field ( $record->field($scope) ) { |
955 |
foreach my $field ( $record->field($scope) ) { |
947 |
- |
|
|