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