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

(-)a/admin/z3950servers.pl (-8 / +6 lines)
Lines 53-65 sub StringSearch { Link Here
53
        $sth->execute;
53
        $sth->execute;
54
    }
54
    }
55
55
56
	my @results;
56
    my @results;
57
	while (my $data=$sth->fetchrow_hashref) {
57
    while (my $data=$sth->fetchrow_hashref) {
58
	    push(@results,$data);
58
        push(@results,$data);
59
	}
59
    }
60
	$sth->finish;
60
    $sth->finish;
61
	$dbh->disconnect;
61
    return (scalar(@results),\@results);
62
	return (scalar(@results),\@results);
63
}
62
}
64
63
65
my $input = new CGI;
64
my $input = new CGI;
66
- 

Return to bug 8379