[Koha-cvs] CVS: koha/admin z3950servers.pl,1.8.2.1,1.8.2.2

[Paul POULAIN]

Update of /cvsroot/koha/koha/admin
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21309/admin

Modified Files:
      Tag: rel_2_0
        z3950servers.pl 
Log Message:
fix to delete correctly z3950 servers

Index: z3950servers.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/z3950servers.pl,v
retrieving revision 1.8.2.1
retrieving revision 1.8.2.2
diff -C2 -r1.8.2.1 -r1.8.2.2
*** z3950servers.pl     6 Jan 2004 18:57:24 -0000       1.8.2.1
--- z3950servers.pl     10 Mar 2004 12:59:07 -0000      1.8.2.2
***************
*** 145,149 ****
                           password => $data->{'password'},
                           checked => $data->{'checked'},
!                          rank => $data->{'rank'});
  
                                                                                
                        # END $OP eq DELETE_CONFIRM
--- 145,150 ----
                           password => $data->{'password'},
                           checked => $data->{'checked'},
!                          rank => $data->{'rank'},
!                        id => $data->{'id'});
  
                                                                                
                        # END $OP eq DELETE_CONFIRM
***************
*** 153,157 ****
        $template->param(delete_confirmed => 1);
        my $dbh=C4::Context->dbh;
!       my $sth=$dbh->prepare("delete from z3950servers where name=?");
        $sth->execute($searchfield);
        $sth->finish;
--- 154,159 ----
        $template->param(delete_confirmed => 1);
        my $dbh=C4::Context->dbh;
!       my $sth=$dbh->prepare("delete from z3950servers where id=?");
!       warn "S : $searchfield";
        $sth->execute($searchfield);
        $sth->finish;