Lines 364-378
sub _add_rowdata {
Link Here
|
364 |
$row->{date}//= $row->{date2}; |
364 |
$row->{date}//= $row->{date2}; |
365 |
$row->{isbn}=_isbn_replace($row->{isbn}); |
365 |
$row->{isbn}=_isbn_replace($row->{isbn}); |
366 |
|
366 |
|
367 |
$row = _add_custom_field_rowdata($row, $record); |
367 |
$row = _add_custom_field_rowdata( |
368 |
|
368 |
$row, |
|
|
369 |
$record, |
370 |
C4::Context->preference('AdditionalFieldsInZ3950ResultSearch')) |
371 |
if C4::Context->preference('AdditionalFieldsInZ3950ResultSearch'); |
369 |
return $row; |
372 |
return $row; |
370 |
} |
373 |
} |
371 |
|
374 |
|
372 |
sub _add_custom_field_rowdata |
375 |
sub _add_custom_field_rowdata |
373 |
{ |
376 |
{ |
374 |
my ( $row, $record ) = @_; |
377 |
my ( $row, $record, $pref_newtags ) = @_; |
375 |
my $pref_newtags = C4::Context->preference('AdditionalFieldsInZ3950ResultSearch'); |
|
|
376 |
my $pref_flavour = C4::Context->preference('MarcFlavour'); |
378 |
my $pref_flavour = C4::Context->preference('MarcFlavour'); |
377 |
|
379 |
|
378 |
$pref_newtags =~ s/^\s+|\s+$//g; |
380 |
$pref_newtags =~ s/^\s+|\s+$//g; |
Lines 627-632
sub Z3950SearchAuth {
Link Here
|
627 |
$row_data{heading} = $heading; |
629 |
$row_data{heading} = $heading; |
628 |
$row_data{authid} = $authid; |
630 |
$row_data{authid} = $authid; |
629 |
$row_data{heading_code} = $heading_authtype_code; |
631 |
$row_data{heading_code} = $heading_authtype_code; |
|
|
632 |
my $pref_newtags = |
633 |
C4::Context->preference('AdditionalFieldsInZ3950ResultAuthSearch'); |
634 |
if ($pref_newtags) { |
635 |
my $row = {}; |
636 |
$row = _add_custom_field_rowdata($row, $marcrecord, $pref_newtags); |
637 |
$row_data{row} = $row; |
638 |
} |
630 |
push( @breeding_loop, \%row_data ); |
639 |
push( @breeding_loop, \%row_data ); |
631 |
} |
640 |
} |
632 |
else { |
641 |
else { |
633 |
$dbh->do( "INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES ('AdditionalFieldsInZ3950ResultAuthSearch', '', 'NULL', 'Determines which MARC field/subfields are displayed in -Additional field- column in the result of an auth search Z3950', 'Free')" ); |
642 |
$dbh->do( "INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES ('AdditionalFieldsInZ3950ResultAuthSearch', '', 'NULL', 'Determines which MARC field/subfields are displayed in -Additional field- column in the result of an auth search Z3950', 'Free')" ); |
634 |
# Always end with this (adjust the bug info) |
643 |
# Always end with this (adjust the bug info) |
635 |
NewVersion( $DBversion, XXXXX, "Description"); |
644 |
NewVersion( $DBversion, XXXXX, "Description"); |