Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Missed setbranchinfo when SQL statements were converted to use ?

Browse source
This commit is contained in:
acli 2003-02-09 08:31:04 +00:00
parent 7351509fe9
commit 01c8a830ca
1 changed files with 6 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
admin/branches.pl
View file

@ -365,18 +365,13 @@ sub setbranchinfo {
# sets the data from the editbranch form, and writes to the database...
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 $query = "replace branches (branchcode,branchname,branchaddress1,branchaddress2,branchaddress3,branchphone,branchfax,branchemail) values (?,?,?,?,?,?,?,?)";
my $sth=$dbh->prepare($query);
$sth->execute;
$sth->execute($data->{'branchcode'}, $data->{'branchname'},
$data->{'branchaddress1'}, $data->{'branchaddress2'},
$data->{'branchaddress3'}, $data->{'branchphone'},
$data->{'branchfax'}, $data->{'branchemail'});
$sth->finish;
# sort out the categories....
my @checkedcats;