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

(-)a/C4/Breeding.pm (-2 / +3 lines)
Lines 596-602 sub Z3950SearchAuth { Link Here
596
596
597
                            $heading = GetAuthorizedHeading({ record => $marcrecord });
597
                            $heading = GetAuthorizedHeading({ record => $marcrecord });
598
598
599
                            my $breedingid = ImportBreedingAuth( $marcrecord, $serverhost[$k], $encoding[$k], $heading );
599
                            my $import_record = MARC::Record->new_from_usmarc( $marcdata );
600
                            my $breedingid = ImportBreedingAuth( $import_record, $serverhost[$k], $encoding[$k], $heading );
601
600
                            my %row_data;
602
                            my %row_data;
601
                            $row_data{server}       = $servers[$k]->{'servername'};
603
                            $row_data{server}       = $servers[$k]->{'servername'};
602
                            $row_data{breedingid}   = $breedingid;
604
                            $row_data{breedingid}   = $breedingid;
603
- 

Return to bug 33404