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 ""; -# $key, '=', $branches->{$key}, "\n"; - } -#