[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/admin branches.pl,1.17,1.18
From: |
Ambrose Li |
Subject: |
[Koha-cvs] CVS: koha/admin branches.pl,1.17,1.18 |
Date: |
Sun, 09 Feb 2003 00:31:06 -0800 |
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....
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/admin branches.pl,1.17,1.18,
Ambrose Li <=