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

(-)a/cataloguing/z3950_search.pl (-3 / +2 lines)
Lines 82-88 my ( $template, $loggedinuser, $cookie ) = get_template_and_user({ Link Here
82
$template->param( frameworkcode => $frameworkcode, );
82
$template->param( frameworkcode => $frameworkcode, );
83
83
84
if ( $op ne "do_search" ) {
84
if ( $op ne "do_search" ) {
85
    my $sth = $dbh->prepare("select id,host,name,checked from z3950servers  order by host");
85
    my $sth = $dbh->prepare("SELECT id,host,name,checked FROM z3950servers ORDER BY rank, name");
86
    $sth->execute();
86
    $sth->execute();
87
    my $serverloop = $sth->fetchall_arrayref( {} );
87
    my $serverloop = $sth->fetchall_arrayref( {} );
88
    $template->param(
88
    $template->param(
Lines 168-174 for my $i (1..$nterms-1) { Link Here
168
warn "query ".$query  if $DEBUG;
168
warn "query ".$query  if $DEBUG;
169
169
170
    foreach my $servid (@id) {
170
    foreach my $servid (@id) {
171
        my $sth = $dbh->prepare("select * from z3950servers where id=?");
171
        my $sth = $dbh->prepare("SELECT * FROM z3950servers WHERE id=? ORDER BY rank, name");
172
        $sth->execute($servid);
172
        $sth->execute($servid);
173
        while ( $server = $sth->fetchrow_hashref ) {
173
        while ( $server = $sth->fetchrow_hashref ) {
174
            warn "serverinfo ".join(':',%$server) if $DEBUG;
174
            warn "serverinfo ".join(':',%$server) if $DEBUG;
175
- 

Return to bug 7866