[Koha-devel] CVS: koha/acqui.simple addbookslccn.pl,1.1,1.2

[Chris Cormack]

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