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