Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Fixing branches

Browse source
This commit is contained in:
rangi 2002-03-31 02:48:18 +00:00
parent 2c95a29ca8
commit fb5d8f5fe9
1 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
acqui.simple/addbookslccn.pl
View file

@ -11,7 +11,7 @@ use CGI;
use strict; use strict;
use C4::Acquisitions; use C4::Acquisitions;
use C4::Output; use C4::Output;
use C4::Circulation::Circ2;
my $input = new CGI; my $input = new CGI;
my $dbh=C4Connect; my $dbh=C4Connect;
@ -310,7 +310,14 @@ EOF
<input type=hidden name=biblionumber value=$biblionumber> <input type=hidden name=biblionumber value=$biblionumber>
<input type=hidden name=biblioitemnumber value=$biblioitemnumber> <input type=hidden name=biblioitemnumber value=$biblioitemnumber>
<table> <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>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 colspan=2>Replacement Price: <input name=replacementprice size=10></td></tr>
<tr><td>Notes</td><td><textarea name=notes rows=4 cols=40 <tr><td>Notes</td><td><textarea name=notes rows=4 cols=40
wrap=physical></textarea></td></tr> wrap=physical></textarea></td></tr>