[Koha-cvs] koha/admin z3950servers.pl [rel_2_2]

[paul poulain]

CVSROOT:	/cvsroot/koha
Module name:	koha
Branch:		rel_2_2
Changes by:	paul poulain <tipaul>	06/08/31 16:24:49

Modified files:
	admin          : z3950servers.pl 

Log message:
	why the hell did we remove the , in server name ?
	fix for http://bugs.koha.org/cgi-bin/bugzilla/show_bug.cgi?id=1047

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/admin/z3950servers.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.9.2.4&r2=1.9.2.5

Patches:
Index: z3950servers.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/z3950servers.pl,v
retrieving revision 1.9.2.4
retrieving revision 1.9.2.5
diff -u -b -r1.9.2.4 -r1.9.2.5
--- z3950servers.pl	5 Feb 2006 21:59:21 -0000	1.9.2.4
+++ z3950servers.pl	31 Aug 2006 16:24:49 -0000	1.9.2.5
@@ -54,7 +54,6 @@
 
 my $pagesize=20;
 my $op = $input->param('op');
-$searchfield=~ s/\,//g;
 
 my ($template, $loggedinuser, $cookie) 
     = get_template_and_user({template_name => "parameters/z3950servers.tmpl",
@@ -80,6 +79,7 @@
 		my $dbh = C4::Context->dbh;
 		my $sth=$dbh->prepare("select host,port,db,userid,password,name,id,checked,rank,syntax from z3950servers where (name = ?) order by rank,name");
 		$sth->execute($searchfield);
+		warn "SEARCH : $searchfield";
 		$data=$sth->fetchrow_hashref;
 		$sth->finish;
 	}