[Koha-cvs] CVS: koha/acqui.simple marcimport.pl,1.6.2.14,1.6.2.15

[Alan Millar]

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

Modified Files:
      Tag: rel-1-2
	marcimport.pl 
Log Message:
Sync biblioitems fields between acqui, acqui.simple, and updatedatabase


Index: marcimport.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/marcimport.pl,v
retrieving revision 1.6.2.14
retrieving revision 1.6.2.15
diff -C2 -r1.6.2.14 -r1.6.2.15
*** marcimport.pl	6 Jun 2002 19:18:01 -0000	1.6.2.14
--- marcimport.pl	9 Jun 2002 05:28:25 -0000	1.6.2.15
***************
*** 1402,1457 ****
  
          if ( ! $error ) { 
- 	  # Get next biblioitemnumber
- 	  $sth=$dbh->prepare("select max(biblioitemnumber) from biblioitems");
- 	  $sth->execute;
- 	  ($biblioitemnumber) = $sth->fetchrow;
- 	  $biblioitemnumber++;
  
! 	  print "<PRE>Next biblio item is $biblioitemnumber</PRE>\n" if $debug;
!   
! 	  $sth=$dbh->prepare("insert into biblioitems (
! 	    biblioitemnumber,
! 	    biblionumber,
! 	    volume,
! 	    number,
! 	    itemtype,
! 	    isbn,
! 	    issn,
! 	    dewey,
! 	    subclass,
! 	    publicationyear,
! 	    publishercode,
! 	    volumedate,
! 	    volumeddesc,
! 	    illus,
! 	    pages,
! 	    notes,
! 	    size,
! 	    place,
! 	    lccn,
! 	    marc)
! 	  values (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)" );
! 
! 	  $sth->execute(
! 	    $biblioitemnumber,
! 	    $biblionumber,
! 	    $biblioitem->{volume},
! 	    $biblioitem->{number},
! 	    $biblioitem->{itemtype},
! 	    $biblioitem->{isbn},
! 	    $biblioitem->{issn},
! 	    $biblioitem->{dewey},
! 	    $biblioitem->{subclass},
! 	    $biblioitem->{publicationyear},
! 	    $biblioitem->{publishercode},
! 	    $biblioitem->{volumedate},
! 	    $biblioitem->{volumeddesc},
! 	    $biblioitem->{illus},
! 	    $biblioitem->{pages},
! 	    $biblioitem->{notes},
! 	    $biblioitem->{size},
! 	    $biblioitem->{place},
! 	    $biblioitem->{lccn},
! 	    $biblioitem->{marc} ) or  $error.=$sth->errstr ;
  
  	  $sth=$dbh->prepare("insert into bibliosubject 
--- 1402,1408 ----
  
          if ( ! $error ) { 
  
! 	  $biblioitem->{biblionumber}=$biblionumber;
! 	  $biblioitemnumber=newbiblioitem($biblioitem);
  
  	  $sth=$dbh->prepare("insert into bibliosubject