From 01c8a830caf9edb9271d433da5b7277e1156c50c Mon Sep 17 00:00:00 2001
From: acli <acli>
Date: Sun, 9 Feb 2003 08:31:04 +0000
Subject: [PATCH] Missed setbranchinfo when SQL statements were converted to
 use ?

---
 admin/branches.pl | 17 ++++++-----------
 1 file changed, 6 insertions(+), 11 deletions(-)

diff --git a/admin/branches.pl b/admin/branches.pl
index 97578a71ce..029de4f06d 100755
--- a/admin/branches.pl
+++ b/admin/branches.pl
@@ -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;
-- 
2.39.5