[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 paul.poulain at free.fr
  # 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 paul.poulain at free.fr
  # 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')).",";