koha-cvs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Koha-cvs] koha/misc/migration_tools bulkmarcimport.pl [dev_week]


From: Joshua Ferraro
Subject: [Koha-cvs] koha/misc/migration_tools bulkmarcimport.pl [dev_week]
Date: Mon, 23 Oct 2006 14:16:56 +0000

CVSROOT:        /sources/koha
Module name:    koha
Branch:         dev_week
Changes by:     Joshua Ferraro <kados>  06/10/23 14:16:56

Modified files:
        misc/migration_tools: bulkmarcimport.pl 

Log message:
        updating to new Biblio API

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/misc/migration_tools/bulkmarcimport.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.1.2.4&r2=1.1.2.4.2.1

Patches:
Index: bulkmarcimport.pl
===================================================================
RCS file: /sources/koha/koha/misc/migration_tools/bulkmarcimport.pl,v
retrieving revision 1.1.2.4
retrieving revision 1.1.2.4.2.1
diff -u -b -r1.1.2.4 -r1.1.2.4.2.1
--- bulkmarcimport.pl   26 Apr 2006 11:48:46 -0000      1.1.2.4
+++ bulkmarcimport.pl   23 Oct 2006 14:16:56 -0000      1.1.2.4.2.1
@@ -289,10 +289,10 @@
        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,$oldbibnum,$oldbibitemnum) = 
AddBiblio($dbh,$newRecord,'');
                warn "ADDED biblio NB $bibid in DB\n" if $verbose;
                for (my $i=0;$i<=$#items;$i++) {
-                       NEWnewitem($dbh,$items[$i],$bibid);
+                       AddItem($dbh,$items[$i],$bibid);
                }
        }
 }




reply via email to

[Prev in Thread] Current Thread [Next in Thread]