|
Lines 503-516
sub Z3950SearchAuth {
Link Here
|
| 503 |
|
503 |
|
| 504 |
my $dbh = C4::Context->dbh; |
504 |
my $dbh = C4::Context->dbh; |
| 505 |
my @id= @{$pars->{id}}; |
505 |
my @id= @{$pars->{id}}; |
| 506 |
my $page= $pars->{page}; |
506 |
my $page= $pars->{page} // 1; |
| 507 |
|
507 |
|
| 508 |
|
508 |
|
| 509 |
my $show_next = 0; |
509 |
my $show_next = 0; |
| 510 |
my $total_pages = 0; |
510 |
my $total_pages = 0; |
| 511 |
my @encoding; |
511 |
my @encoding; |
| 512 |
my @results; |
512 |
my @results; |
| 513 |
my @serverhost; |
|
|
| 514 |
my @breeding_loop = (); |
513 |
my @breeding_loop = (); |
| 515 |
my @oConnection; |
514 |
my @oConnection; |
| 516 |
my @oResult; |
515 |
my @oResult; |
|
Lines 562-568
sub Z3950SearchAuth {
Link Here
|
| 562 |
my ($error )= $oConnection[$k]->error_x(); #ignores errmsg, addinfo, diagset |
561 |
my ($error )= $oConnection[$k]->error_x(); #ignores errmsg, addinfo, diagset |
| 563 |
if ($error) { |
562 |
if ($error) { |
| 564 |
if ($error =~ m/^(10000|10007)$/ ) { |
563 |
if ($error =~ m/^(10000|10007)$/ ) { |
| 565 |
push(@errconn, {'server' => $serverhost[$k]}); |
564 |
push @errconn, { server => $servers[$k]->{host} }; |
| 566 |
} |
565 |
} |
| 567 |
} |
566 |
} |
| 568 |
else { |
567 |
else { |
|
Lines 596-602
sub Z3950SearchAuth {
Link Here
|
| 596 |
|
595 |
|
| 597 |
my $heading_authtype_code = GuessAuthTypeCode($marcrecord) or next; |
596 |
my $heading_authtype_code = GuessAuthTypeCode($marcrecord) or next; |
| 598 |
my $heading = GetAuthorizedHeading({ record => $marcrecord }); |
597 |
my $heading = GetAuthorizedHeading({ record => $marcrecord }); |
| 599 |
my $breedingid = ImportBreedingAuth( $marcrecord, $serverhost[$k], 'UTF-8', $heading ); |
598 |
my $breedingid = ImportBreedingAuth( $marcrecord, $servers[$k]->{host}, 'UTF-8', $heading ); |
| 600 |
my %row_data; |
599 |
my %row_data; |
| 601 |
$row_data{server} = $servers[$k]->{'servername'}; |
600 |
$row_data{server} = $servers[$k]->{'servername'}; |
| 602 |
$row_data{breedingid} = $breedingid; |
601 |
$row_data{breedingid} = $breedingid; |
| 603 |
- |
|
|