@@ -, +, @@ record --- C4/Breeding.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) --- a/C4/Breeding.pm +++ a/C4/Breeding.pm @@ -596,7 +596,9 @@ sub Z3950SearchAuth { $heading = GetAuthorizedHeading({ record => $marcrecord }); - my $breedingid = ImportBreedingAuth( $marcrecord, $serverhost[$k], $encoding[$k], $heading ); + my $import_record = MARC::Record->new_from_usmarc( $marcdata ); + my $breedingid = ImportBreedingAuth( $import_record, $serverhost[$k], $encoding[$k], $heading ); + my %row_data; $row_data{server} = $servers[$k]->{'servername'}; $row_data{breedingid} = $breedingid; --