Update of /cvsroot/koha/koha/acqui.simple In directory usw-pr-cvs1:/tmp/cvs-serv7908 Modified Files: addbiblioitem.pl additem.pl savebiblio.pl savebiblioitem.pl saveitem.pl Log Message: Fixed bug due to way hashes take values. Was stopping items being saved to database. Added code to pick up branch list from database. Index: addbiblioitem.pl =================================================================== RCS file: /cvsroot/koha/koha/acqui.simple/addbiblioitem.pl,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -r1.2 -r1.3 *** addbiblioitem.pl 3 May 2002 02:47:33 -0000 1.2 --- addbiblioitem.pl 6 May 2002 02:47:49 -0000 1.3 *************** *** 115,119 **** </tr> <tr valign="top"> ! <td colspan="4" align="center"><input type="submit" value="Add New Item"></td> </tr> --- 115,119 ---- </tr> <tr valign="top"> ! <td colspan="4" align="center"><input type="submit" value="Add New Group"></td> </tr> Index: additem.pl =================================================================== RCS file: /cvsroot/koha/koha/acqui.simple/additem.pl,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -r1.2 -r1.3 *** additem.pl 3 May 2002 02:47:33 -0000 1.2 --- additem.pl 6 May 2002 02:47:49 -0000 1.3 *************** *** 12,15 **** --- 12,17 ---- my $count; my @results; + my $branchcount; + my @branches; if (! $biblioitemnum) { *************** *** 30,33 **** --- 32,36 ---- ($count, @results) = &getitemsbybiblioitem($biblioitemnum); + ($branchcount, @branches) = &branches; if ($count) { *************** *** 70,74 **** <td><input name="barcode" size="10" value="$maxbarcode" /></td> <td align="right">Home Branch:</td> ! <td><select name="homebranch"><option value="STWE">Stewart Elementary<option value="MEZ">Meziadin Elementary</select></td> </tr> <tr> --- 73,87 ---- <td><input name="barcode" size="10" value="$maxbarcode" /></td> <td align="right">Home Branch:</td> ! <td><select name="homebranch"> ! EOF ! ! for (my $i = 0; $i < $branchcount; $i ++) { ! print << "EOF"; ! <option value="$branches[$i]->{'branchcode'}">$branches[$i]->{'branchname'} ! EOF ! } # for ! ! print << "EOF"; ! </select></td> </tr> <tr> Index: savebiblio.pl =================================================================== RCS file: /cvsroot/koha/koha/acqui.simple/savebiblio.pl,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -r1.2 -r1.3 *** savebiblio.pl 3 May 2002 02:47:33 -0000 1.2 --- savebiblio.pl 6 May 2002 02:47:49 -0000 1.3 *************** *** 6,17 **** my $input = new CGI; ! my $biblio = { title => $input->param('title'), ! subtitle => $input->param('subtitle'), ! author => $input->param('author'), ! seriestitle => $input->param('seriestitle'), ! copyright => $input->param('copyrightdate'), ! abstract => $input->param('abstract'), ! notes => $input->param('notes') ! }; # my $biblio my $biblionumber; --- 6,18 ---- my $input = new CGI; ! my $biblio = { ! title => $input->param('title'), ! subtitle => $input->param('subtitle')?$input->param('subtitle'):"", ! author => $input->param('author')?$input->param('author'):"", ! seriestitle => $input->param('seriestitle')?$input->param('seriestitle'):"", ! copyright => $input->param('copyrightdate')?$input->param('copyrightdate'):"", ! abstract => $input->param('abstract')?$input->param('abstract'):"", ! notes => $input->param('notes')?$input->param('notes'):"" ! }; # my $biblio my $biblionumber; Index: savebiblioitem.pl =================================================================== RCS file: /cvsroot/koha/koha/acqui.simple/savebiblioitem.pl,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -r1.2 -r1.3 *** savebiblioitem.pl 3 May 2002 02:47:33 -0000 1.2 --- savebiblioitem.pl 6 May 2002 02:47:49 -0000 1.3 *************** *** 9,31 **** my $biblioitem = { biblionumber => $biblionumber, ! publishercode => $input->param('publishercode'), ! publicationyear => $input->param('publicationyear'), ! place => $input->param('year'), ! illus => $input->param('illus'), ! isbn => $input->param('isbn'), ! additionalauthors => $input->param('additionalauthors'), ! subjectheadings => $input->param('subjectheadings'), ! itemtype => $input->param('itemtype'), ! url => $input->param('url'), ! dewey => $input->param('dewey'), ! subclass => $input->param('subclass'), ! issn => $input->param('issn'), ! lccn => $input->param('lccn'), ! volume => $input->param('volume'), ! number => $input->param('number'), ! volumeddesc => $input->param('volumeddesc'), ! pages => $input->param('pages'), ! size => $input->param('size'), ! notes => $input->param('notes') }; my $biblioitemnum; --- 9,31 ---- my $biblioitem = { biblionumber => $biblionumber, ! publishercode => $input->param('publishercode')?$input->param('publishercode'):"", ! publicationyear => $input->param('publicationyear')?$input->param('publicationyear'):"", ! place => $input->param('year')?$input->param('year'):"", ! illus => $input->param('illus')?$input->param('illus'):"", ! isbn => $input->param('isbn')?$input->param('isbn'):"", ! additionalauthors => $input->param('additionalauthors')?$input->param('additionalauthors'):"", ! subjectheadings => $input->param('subjectheadings')?$input->param('subjectheadings'):"", ! itemtype => $input->param('itemtype')?$input->param('itemtype'):"", ! url => $input->param('url')?$input->param('url'):"", ! dewey => $input->param('dewey')?$input->param('dewey'):"", ! subclass => $input->param('subclass')?$input->param('subclass'):"", ! issn => $input->param('issn')?$input->param('issn'):"", ! lccn => $input->param('lccn')?$input->param('lccn'):"", ! volume => $input->param('volume')?$input->param('volume'):"", ! number => $input->param('number')?$input->param('number'):"", ! volumeddesc => $input->param('volumeddesc')?$input->param('volumeddesc'):"", ! pages => $input->param('pages')?$input->param('pages'):"", ! size => $input->param('size')?$input->param('size'):"", ! notes => $input->param('notes')?$input->param('notes'):"" }; my $biblioitemnum; Index: saveitem.pl =================================================================== RCS file: /cvsroot/koha/koha/acqui.simple/saveitem.pl,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -r1.2 -r1.3 *** saveitem.pl 3 May 2002 02:47:33 -0000 1.2 --- saveitem.pl 6 May 2002 02:47:49 -0000 1.3 *************** *** 11,17 **** biblioitemnumber => $biblioitemnum, homebranch => $input->param('homebranch'), ! replacementprice => $input->param('replacementprice'), ! itemnotes => $input->param('notes') ! }; my $count; my @results; --- 11,17 ---- biblioitemnumber => $biblioitemnum, homebranch => $input->param('homebranch'), ! replacementprice => $input->param('replacementprice')?$input->param('replacementprice'):"", ! itemnotes => $input->param('notes')?$input->param('notes'):"" ! }; # my $item my $count; my @results;