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

(-)a/C4/Breeding.pm (-5 / +3 lines)
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
- 

Return to bug 33404