[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