[Koha-devel] CVS: koha/acqui.simple addbooks.pl,1.2,1.3

[Chris Cormack]

Update of /cvsroot/koha/koha/acqui.simple
In directory usw-pr-cvs1:/tmp/cvs-serv25830

Modified Files:
        addbooks.pl 
Log Message:
Draws list of branches from the branches table now, when adding an item



Index: addbooks.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/addbooks.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** addbooks.pl 6 Nov 2001 18:25:30 -0000       1.2
--- addbooks.pl 31 Mar 2002 01:18:36 -0000      1.3
***************
*** 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;
***************
*** 156,159 ****
--- 156,161 ----
  
  sub newbiblioitem {
+     #print 
+ #    print "in here";
      my $biblionumber=$input->param('biblionumber');
      my $volume=$input->param('volume');
***************
*** 198,202 ****
      $biblioitemnumber++;
      ($q_isbn='') if ($q_isbn eq 'NULL');
!     $sth=$dbh->prepare("insert into biblioitems (biblioitemnumber,
      biblionumber, volume, number, classification, itemtype, isbn, issn, lccn, 
dewey, subclass,
      publicationyear, publishercode, volumedate, volumeddesc, illus, pages,
--- 200,204 ----
      $biblioitemnumber++;
      ($q_isbn='') if ($q_isbn eq 'NULL');
!     my $query="insert into biblioitems (biblioitemnumber,
      biblionumber, volume, number, classification, itemtype, isbn, issn, lccn, 
dewey, subclass,
      publicationyear, publishercode, volumedate, volumeddesc, illus, pages,
***************
*** 204,208 ****
      $q_number, $q_classification, $q_itemtype, $q_isbn, $q_issn, $q_lccn, 
$q_dewey, $q_subclass,
      $q_publicationyear, $q_publishercode, $q_volumedate, $q_volumeddesc,
!     $q_illus, $q_pages, $q_notes, $q_size, $q_place)");
      $sth->execute;
      my @subjectheadings=split(/\n/,$subjectheadings);
--- 206,212 ----
      $q_number, $q_classification, $q_itemtype, $q_isbn, $q_issn, $q_lccn, 
$q_dewey, $q_subclass,
      $q_publicationyear, $q_publishercode, $q_volumedate, $q_volumeddesc,
!     $q_illus, $q_pages, $q_notes, $q_size, $q_place)";
!     $sth=$dbh->prepare($query);
! #    print $query;
      $sth->execute;
      my @subjectheadings=split(/\n/,$subjectheadings);
***************
*** 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
--- 315,330 ----
  <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>";
! #      $key, '=', $branches->{$key}, "\n";
!          }  
! #       <option value='STWE'>Stewart Elementary<option value='MEZ'>Meziadin 
Elementary
! 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