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 |
- |
|
|