[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