View | Details | Raw Unified | Return to bug 29690
Collapse All | Expand All

(-)a/Koha/Biblio.pm (-7 / +15 lines)
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
- 

Return to bug 29690