[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