From 6b341d91ab8a504133569b1987d370c162c8a3c3 Mon Sep 17 00:00:00 2001
From: rangi <rangi>
Date: Sun, 31 Mar 2002 06:50:08 +0000
Subject: [PATCH] Fixed the holding branch insertion code. It was inserting the
 correct homebranch but was still inserting the wrong home branch

---
 acqui.simple/addbooks.pl     | 10 +++++-----
 acqui.simple/addbookslccn.pl |  2 +-
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/acqui.simple/addbooks.pl b/acqui.simple/addbooks.pl
index 26074ade55..1ff804ff39 100755
--- a/acqui.simple/addbooks.pl
+++ b/acqui.simple/addbooks.pl
@@ -261,10 +261,12 @@ sub newitem {
     my @datearr=localtime(time);
     my $date=(1900+$datearr[5])."-".($datearr[4]+1)."-".$datearr[3];
     my $q_homebranch=$dbh->quote($input->param('homebranch'));
-    $sth=$dbh->prepare("insert into items (itemnumber, biblionumber,
+    my $query="insert into items (itemnumber, biblionumber,
     biblioitemnumber,barcode, itemnotes, holdingbranch, homebranch, dateaccessioned, replacementprice) values ($itemnumber,
-    $biblionumber, $biblioitemnumber, $barcode, $q_itemnotes, 'STWE', $q_homebranch, '$date', $replacementprice)");
+    $biblionumber, $biblioitemnumber, $barcode, $q_itemnotes, $q_homebranch, $q_homebranch, '$date', $replacementprice)";
+    $sth=$dbh->prepare($query);
     $sth->execute;
+#    print $query;
 }
 
 if ($isbn) {
@@ -321,9 +323,7 @@ EOF
 my $branches=getbranches();
 foreach my $key (sort(keys %$branches)) {
      print "<option value=\"$key\">$branches->{$key}->{'branchname'}</option>";
-#      $key, '=', $branches->{$key}, "\n";
-         }  
-#	  <option value='STWE'>Stewart Elementary<option value='MEZ'>Meziadin Elementary
+}  
 print << "EOF";
 	  </select></td></tr>
 </tr><td colspan=2>Replacement Price: <input name=replacementprice size=10></td></tr>
diff --git a/acqui.simple/addbookslccn.pl b/acqui.simple/addbookslccn.pl
index 47ea7804a7..43adc347a4 100755
--- a/acqui.simple/addbookslccn.pl
+++ b/acqui.simple/addbookslccn.pl
@@ -259,7 +259,7 @@ sub newitem {
     my $q_homebranch=$dbh->quote($input->param('homebranch'));
     $sth=$dbh->prepare("insert into items (itemnumber, biblionumber,
     biblioitemnumber,barcode, itemnotes, holdingbranch, homebranch, dateaccessioned, replacementprice) values ($itemnumber,
-    $biblionumber, $biblioitemnumber, $barcode, $q_itemnotes, 'STWE', $q_homebranch, '$date', $replacementprice)");
+    $biblionumber, $biblioitemnumber, $barcode, $q_itemnotes, $q_homebranch, $q_homebranch, '$date', $replacementprice)");
     $sth->execute;
 }
 
-- 
2.39.5