|
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"); |