From 7da7c2f63c7742809e1f0f479c416cd821bf91d1 Mon Sep 17 00:00:00 2001 From: Chris Cormack Date: Tue, 8 Jan 2008 14:31:54 -0600 Subject: [PATCH] Changing z3950 search in cataloguing to use the name rather than the host when listing z3950 servers to search Signed-off-by: Joshua Ferraro --- cataloguing/z3950_search.pl | 6 +++--- .../prog/en/modules/cataloguing/z3950_search.tmpl | 2 +- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/cataloguing/z3950_search.pl b/cataloguing/z3950_search.pl index 063cf4af55..c28bed302c 100755 --- a/cataloguing/z3950_search.pl +++ b/cataloguing/z3950_search.pl @@ -62,7 +62,7 @@ my @serverloop = (); my @serverhost; my @breeding_loop = (); -my $DEBUG = 0; # if set to 1, many debug message are send on syslog. +my $DEBUG = 1; # if set to 1, many debug message are send on syslog. unless ($random) { # this var is not useful anymore just kept to keep rel2_2 compatibility @@ -83,7 +83,7 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user( $template->param( frameworkcode => $frameworkcode, ); if ( $op ne "do_search" ) { - my $sth = $dbh->prepare("select id,host,checked from z3950servers order by host"); + my $sth = $dbh->prepare("select id,host,name,checked from z3950servers order by host"); $sth->execute(); my $serverloop = $sth->fetchall_arrayref( {} ); $template->param( @@ -160,7 +160,7 @@ else { || $DEBUG && warn( "somthing went wrong: " . $oConnection[$s]->errmsg() ); - #$oResult[$z] = $oConnection[$z]->search_pqf($query); + # $oResult[$z] = $oConnection[$z]->search_pqf($query); } AGAIN: diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/cataloguing/z3950_search.tmpl b/koha-tmpl/intranet-tmpl/prog/en/modules/cataloguing/z3950_search.tmpl index 5d13030541..d8b2dfabe1 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/modules/cataloguing/z3950_search.tmpl +++ b/koha-tmpl/intranet-tmpl/prog/en/modules/cataloguing/z3950_search.tmpl @@ -42,7 +42,7 @@ id" value="" /> - +
-- 2.39.5