[Koha-cvs] koha C4/Biblio.pm misc/migration_tools/bulkmarc...

[Chris Cormack]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         
Changes by:     Chris Cormack <address@hidden>  06/04/01 22:10:50

Modified files:
        C4             : Biblio.pm 
        misc/migration_tools: bulkmarcimport.pl 

Log message:
        Fixing the problem that all items were getting biblioitem=1 set

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/C4/Biblio.pm.diff?tr1=1.165&tr2=1.166&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/koha/koha/misc/migration_tools/bulkmarcimport.pl.diff?tr1=1.5&tr2=1.6&r1=text&r2=text

Patches:
Index: koha/C4/Biblio.pm
diff -u koha/C4/Biblio.pm:1.165 koha/C4/Biblio.pm:1.166
--- koha/C4/Biblio.pm:1.165     Sat Apr  1 21:22:05 2006
+++ koha/C4/Biblio.pm   Sat Apr  1 22:10:50 2006
@@ -30,7 +30,7 @@
 use vars qw($VERSION @ISA @EXPORT);
 
 # set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.165 $' =~ /\d+/g;
+$VERSION = do { my @v = '$Revision: 1.166 $' =~ /\d+/g;
                 shift(@v) . "." . join("_", map {sprintf "%03d", $_ } @v); };
 
 @ISA = qw(Exporter);
@@ -1033,7 +1033,7 @@
 
 sub NEWnewitem {
     my ( $dbh,$record,$biblionumber,$biblioitemnumber ) = @_;
-
+    warn "here is the $biblioitemnumber";
     # add item in old-DB
        my $frameworkcode=MARCfind_frameworkcode($dbh,$biblionumber);
     my $item = &MARCmarc2koha( $dbh,$record,$frameworkcode );
@@ -1454,7 +1454,7 @@
     if ( $item->{'loan'} ) {
         $item->{'notforloan'} = $item->{'loan'};
     }
-       $item->{'biblioitemnumber'} = 1;
+#      $item->{'biblioitemnumber'} = 1;
     # if dateaccessioned is provided, use it. Otherwise, set to NOW()
     if ( $item->{'dateaccessioned'} ) {
         $sth = $dbh->prepare( "Insert into items set
@@ -3012,8 +3012,11 @@
 
 =cut
 
-# $Id: Biblio.pm,v 1.165 2006/04/01 21:22:05 rangi Exp $
+# $Id: Biblio.pm,v 1.166 2006/04/01 22:10:50 rangi Exp $
 # $Log: Biblio.pm,v $
+# Revision 1.166  2006/04/01 22:10:50  rangi
+# Fixing the problem that all items were getting biblioitem=1 set
+#
 # Revision 1.165  2006/04/01 21:22:05  rangi
 # Adding a little fake subroutine that a few scripts in the opac depend on, 
can be removed once the opac scripts are rewritten
 #
Index: koha/misc/migration_tools/bulkmarcimport.pl
diff -u koha/misc/migration_tools/bulkmarcimport.pl:1.5 
koha/misc/migration_tools/bulkmarcimport.pl:1.6
--- koha/misc/migration_tools/bulkmarcimport.pl:1.5     Mon Feb 27 01:06:30 2006
+++ koha/misc/migration_tools/bulkmarcimport.pl Sat Apr  1 22:10:50 2006
@@ -160,10 +160,11 @@
        print "$i : $nbitems items found\n" if $verbose;
        # now, create biblio and items with NEWnewXX call.
        unless ($test_parameter) {
-               my ($bibid,$oldbibnum,$oldbibitemnum) = 
NEWnewbiblio($dbh,$newRecord,'');
+               my ($bibid,$oldbibitemnum) = NEWnewbiblio($dbh,$newRecord,'');
                warn "ADDED biblio NB $bibid in DB\n" if $verbose;
                for (my $i=0;$i<=$#items;$i++) {
-                       NEWnewitem($dbh,$items[$i],$bibid);
+                   warn "here is the biblioitemnumber $oldbibitemnum";
+                       NEWnewitem($dbh,$items[$i],$bibid,$oldbibitemnum);
                }
        }
 }