Merge branch 'bug_9105' into 3.12-master

2013-02-12 08:50:02 -05:00 · 2013-02-12 08:50:02 -05:00 · 840a907b86
commit 840a907b86
parent 2131c66edd d85fa9c5fb
1 changed files with 6 additions and 0 deletions
--- a/C4/Breeding.pm
+++ b/C4/Breeding.pm
@ -412,6 +412,12 @@ sub Z3950Search {
        );
    } # while nremaining

+    #close result sets and connections
+    foreach(0..$s-1) {
+        $oResult[$_]->destroy();
+        $oConnection[$_]->destroy();
+    }
+
    my @servers = ();
    foreach my $id (@id) {
        push @servers, {id => $id};