[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-devel] CVS: koha/acqui.simple addbookslccn.pl,1.1,1.2
From: |
Chris Cormack |
Subject: |
[Koha-devel] CVS: koha/acqui.simple addbookslccn.pl,1.1,1.2 |
Date: |
Sat Mar 30 18:49:04 2002 |
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
- [Koha-devel] CVS: koha/acqui.simple addbookslccn.pl,1.1,1.2,
Chris Cormack <=