[Koha-cvs] CVS: koha/admin branches.pl,1.1.2.1,1.1.2.2

[Steve Tonnesen]

Update of /cvsroot/koha/koha/admin
In directory usw-pr-cvs1:/tmp/cvs-serv3517

Modified Files:
      Tag: rel-1-2
        branches.pl 
Log Message:
Fixes bug in adding branch... branchcode parameter is called 'searchfield'


Index: branches.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/branches.pl,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -C2 -r1.1.2.1 -r1.1.2.2
*** branches.pl 21 Jun 2002 01:29:37 -0000      1.1.2.1
--- branches.pl 23 Jun 2002 21:18:56 -0000      1.1.2.2
***************
*** 1,5 ****
  #!/usr/bin/perl
  
! #script to administer the aqbudget table
  #written 20/02/2002 by address@hidden
  # This software is placed under the gnu General Public License, v2 
(http://www.gnu.org/licenses/gpl.html)
--- 1,5 ----
  #!/usr/bin/perl
  
! #script to administer the branches table
  #written 20/02/2002 by address@hidden
  # This software is placed under the gnu General Public License, v2 
(http://www.gnu.org/licenses/gpl.html)
***************
*** 164,168 ****
        my $dbh=C4Connect;
        my $query = "replace branches 
(branchcode,branchname,branchaddress1,branchaddress2,branchaddress3,branchphone,branchfax,branchemail,issuing)
 values (";
!       $query.= $dbh->quote($input->param('branchcode')).",";
        $query.= $dbh->quote($input->param('branchname')).",";
        $query.= $dbh->quote($input->param('branchaddress1')).",";
--- 164,168 ----
        my $dbh=C4Connect;
        my $query = "replace branches 
(branchcode,branchname,branchaddress1,branchaddress2,branchaddress3,branchphone,branchfax,branchemail,issuing)
 values (";
!       $query.= $dbh->quote($input->param('searchfield')).",";
        $query.= $dbh->quote($input->param('branchname')).",";
        $query.= $dbh->quote($input->param('branchaddress1')).",";