[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;
        }