Update of /cvsroot/koha/koha/acqui.simple In directory usw-pr-cvs1:/tmp/cvs-serv9617 Modified Files: addbookslccn.pl Log Message: Fixing branches Index: addbookslccn.pl =================================================================== RCS file: /cvsroot/koha/koha/acqui.simple/addbookslccn.pl,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -r1.1 -r1.2 *** addbookslccn.pl 6 Nov 2001 18:15:00 -0000 1.1 --- addbookslccn.pl 31 Mar 2002 02:48:18 -0000 1.2 *************** *** 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; *************** *** 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 --- 311,322 ---- <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>"; ! } ! 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