Update of /cvsroot/koha/koha/acqui.simple In directory usw-pr-cvs1:/tmp/cvs-serv14281 Modified Files: addbookslccn.pl addbooks.pl Log Message: Fixed the holding branch insertion code. It was inserting the correct homebranch but was still inserting the wrong home branch Index: addbookslccn.pl =================================================================== RCS file: /cvsroot/koha/koha/acqui.simple/addbookslccn.pl,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -r1.2 -r1.3 *** addbookslccn.pl 31 Mar 2002 02:48:18 -0000 1.2 --- addbookslccn.pl 31 Mar 2002 06:50:08 -0000 1.3 *************** *** 260,264 **** $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)"); $sth->execute; } --- 260,264 ---- $sth=$dbh->prepare("insert into items (itemnumber, biblionumber, biblioitemnumber,barcode, itemnotes, holdingbranch, homebranch, dateaccessioned, replacementprice) values ($itemnumber, ! $biblionumber, $biblioitemnumber, $barcode, $q_itemnotes, $q_homebranch, $q_homebranch, '$date', $replacementprice)"); $sth->execute; } Index: addbooks.pl =================================================================== RCS file: /cvsroot/koha/koha/acqui.simple/addbooks.pl,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -r1.3 -r1.4 *** addbooks.pl 31 Mar 2002 01:18:36 -0000 1.3 --- addbooks.pl 31 Mar 2002 06:50:08 -0000 1.4 *************** *** 262,269 **** 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, biblioitemnumber,barcode, itemnotes, holdingbranch, homebranch, dateaccessioned, replacementprice) values ($itemnumber, ! $biblionumber, $biblioitemnumber, $barcode, $q_itemnotes, 'STWE', $q_homebranch, '$date', $replacementprice)"); $sth->execute; } --- 262,271 ---- my $date=(1900+$datearr[5])."-".($datearr[4]+1)."-".$datearr[3]; my $q_homebranch=$dbh->quote($input->param('homebranch')); ! my $query="insert into items (itemnumber, biblionumber, biblioitemnumber,barcode, itemnotes, holdingbranch, homebranch, dateaccessioned, replacementprice) values ($itemnumber, ! $biblionumber, $biblioitemnumber, $barcode, $q_itemnotes, $q_homebranch, $q_homebranch, '$date', $replacementprice)"; ! $sth=$dbh->prepare($query); $sth->execute; + # print $query; } *************** *** 322,328 **** 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> --- 324,328 ---- foreach my $key (sort(keys %$branches)) { print "<option value=\"$key\">$branches->{$key}->{'branchname'}</option>"; ! } print << "EOF"; </select></td></tr>