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

(-)a/C4/Breeding.pm (-1 / +6 lines)
Lines 412-417 sub Z3950Search { Link Here
412
        );
412
        );
413
    } # while nremaining
413
    } # while nremaining
414
414
415
    #close result sets and connections
416
    foreach(0..$s-1) {
417
        $oResult[$_]->destroy();
418
        $oConnection[$_]->destroy();
419
    }
420
415
    my @servers = ();
421
    my @servers = ();
416
    foreach my $id (@id) {
422
    foreach my $id (@id) {
417
        push @servers, {id => $id};
423
        push @servers, {id => $id};
418
- 

Return to bug 6473