Update of /cvsroot/koha/koha/acqui.simple In directory usw-pr-cvs1:/tmp/cvs-serv25830 Modified Files: addbooks.pl Log Message: Draws list of branches from the branches table now, when adding an item Index: addbooks.pl =================================================================== RCS file: /cvsroot/koha/koha/acqui.simple/addbooks.pl,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -r1.2 -r1.3 *** addbooks.pl 6 Nov 2001 18:25:30 -0000 1.2 --- addbooks.pl 31 Mar 2002 01:18:36 -0000 1.3 *************** *** 12,16 **** use C4::Acquisitions; use C4::Output; ! my $input = new CGI; --- 12,16 ---- use C4::Acquisitions; use C4::Output; ! use C4::Circulation::Circ2; my $input = new CGI; *************** *** 156,159 **** --- 156,161 ---- sub newbiblioitem { + #print + # print "in here"; my $biblionumber=$input->param('biblionumber'); my $volume=$input->param('volume'); *************** *** 198,202 **** $biblioitemnumber++; ($q_isbn='') if ($q_isbn eq 'NULL'); ! $sth=$dbh->prepare("insert into biblioitems (biblioitemnumber, biblionumber, volume, number, classification, itemtype, isbn, issn, lccn, dewey, subclass, publicationyear, publishercode, volumedate, volumeddesc, illus, pages, --- 200,204 ---- $biblioitemnumber++; ($q_isbn='') if ($q_isbn eq 'NULL'); ! my $query="insert into biblioitems (biblioitemnumber, biblionumber, volume, number, classification, itemtype, isbn, issn, lccn, dewey, subclass, publicationyear, publishercode, volumedate, volumeddesc, illus, pages, *************** *** 204,208 **** $q_number, $q_classification, $q_itemtype, $q_isbn, $q_issn, $q_lccn, $q_dewey, $q_subclass, $q_publicationyear, $q_publishercode, $q_volumedate, $q_volumeddesc, ! $q_illus, $q_pages, $q_notes, $q_size, $q_place)"); $sth->execute; my @subjectheadings=split(/\n/,$subjectheadings); --- 206,212 ---- $q_number, $q_classification, $q_itemtype, $q_isbn, $q_issn, $q_lccn, $q_dewey, $q_subclass, $q_publicationyear, $q_publishercode, $q_volumedate, $q_volumeddesc, ! $q_illus, $q_pages, $q_notes, $q_size, $q_place)"; ! $sth=$dbh->prepare($query); ! # print $query; $sth->execute; my @subjectheadings=split(/\n/,$subjectheadings); *************** *** 311,315 **** <input type=hidden name=biblioitemnumber value=$biblioitemnumber> <table> ! <tr><td>BARCODE</td><td><input name=barcode size=10 value=$maxbarcode> Home Branch: <select name=homebranch><option value='STWE'>Stewart Elementary<option value='MEZ'>Meziadin Elementary</select></td></tr> </tr><td colspan=2>Replacement Price: <input name=replacementprice size=10></td></tr> <tr><td>Notes</td><td><textarea name=notes rows=4 cols=40 --- 315,330 ---- <input type=hidden name=biblioitemnumber value=$biblioitemnumber> <table> ! <tr><td>BARCODE</td><td><input name=barcode size=10 value=$maxbarcode> ! Home Branch: <select name=homebranch> ! 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> <tr><td>Notes</td><td><textarea name=notes rows=4 cols=40