[Koha-cvs] CVS: koha/admin branches.pl,1.17,1.18

Ambrose Li acli at users.sourceforge.net
Sun Feb 9 09:31:06 CET 2003


Update of /cvsroot/koha/koha/admin
In directory sc8-pr-cvs1:/tmp/cvs-serv8579/admin

Modified Files:
	branches.pl 
Log Message:
Missed setbranchinfo when SQL statements were converted to use ?


Index: branches.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/branches.pl,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -r1.17 -r1.18
*** branches.pl	9 Feb 2003 07:55:13 -0000	1.17
--- branches.pl	9 Feb 2003 08:31:04 -0000	1.18
***************
*** 366,381 ****
      my ($data) = @_;
      my $dbh = C4::Context->dbh;
!     my $query = "replace branches (branchcode,branchname,branchaddress1,branchaddress2,branchaddress3,branchphone,branchfax,branchemail) values (";
!     my $tmp;
!     $tmp = $data->{'branchcode'}; $query.= $dbh->quote($tmp).",";
!     $tmp = $data->{'branchname'}; $query.= $dbh->quote($tmp).",";
!     $tmp = $data->{'branchaddress1'}; $query.= $dbh->quote($tmp).",";
!     $tmp = $data->{'branchaddress2'}; $query.= $dbh->quote($tmp).",";
!     $tmp = $data->{'branchaddress3'}; $query.= $dbh->quote($tmp).",";
!     $tmp = $data->{'branchphone'}; $query.= $dbh->quote($tmp).",";
!     $tmp = $data->{'branchfax'}; $query.= $dbh->quote($tmp).",";
!     $tmp = $data->{'branchemail'}; $query.= $dbh->quote($tmp).")";
      my $sth=$dbh->prepare($query);
!     $sth->execute;
      $sth->finish;
  # sort out the categories....
--- 366,376 ----
      my ($data) = @_;
      my $dbh = C4::Context->dbh;
!     my $query = "replace branches (branchcode,branchname,branchaddress1,branchaddress2,branchaddress3,branchphone,branchfax,branchemail) values (?,?,?,?,?,?,?,?)";
      my $sth=$dbh->prepare($query);
!     $sth->execute($data->{'branchcode'}, $data->{'branchname'},
! 	    $data->{'branchaddress1'}, $data->{'branchaddress2'},
! 	    $data->{'branchaddress3'}, $data->{'branchphone'},
! 	    $data->{'branchfax'}, $data->{'branchemail'});
! 
      $sth->finish;
  # sort out the categories....





More information about the Koha-cvs mailing list