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

[Ryan Higgins]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         rel_3_0
Changes by:     Ryan Higgins <rych>     06/11/14 16:39:00

Modified files:
        misc/migration_tools: bulkmarcimport.pl 

Log message:
        change AddBiblio call to new API
        remove delete from deprecated tables.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/misc/migration_tools/bulkmarcimport.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.7.2.1&r2=1.7.2.2

Patches:
Index: bulkmarcimport.pl
===================================================================
RCS file: /sources/koha/koha/misc/migration_tools/bulkmarcimport.pl,v
retrieving revision 1.7.2.1
retrieving revision 1.7.2.2
diff -u -b -r1.7.2.1 -r1.7.2.2
--- bulkmarcimport.pl   4 Sep 2006 12:47:27 -0000       1.7.2.1
+++ bulkmarcimport.pl   14 Nov 2006 16:39:00 -0000      1.7.2.2
@@ -186,10 +186,6 @@
        $dbh->do("delete from bibliosubject");
        $dbh->do("delete from additionalauthors");
        $dbh->do("delete from bibliosubtitle");
-       $dbh->do("delete from marc_biblio");
-       $dbh->do("delete from marc_subfield_table");
-       $dbh->do("delete from marc_word");
-       $dbh->do("delete from marc_blob_subfield");
 }
 if ($test_parameter) {
        print "TESTING MODE ONLY\n    DOING NOTHING\n===============\n";
@@ -286,13 +282,13 @@
                $nbitems++;
        }
        print "$i : $nbitems items found\n" if $verbose;
-       # now, create biblio and items with NEWnewXX call.
+       # now, create biblio and items with Addbiblio call.
        unless ($test_parameter) {
-               my ($bibid,$oldbibitemnum) = NEWnewbiblio($dbh,$newRecord,'');
+               my ($bibid,$oldbibitemnum) = AddBiblio($dbh,$newRecord,'');
                warn "ADDED biblio NB $bibid in DB\n" if $verbose;
                for (my $i=0;$i<=$#items;$i++) {
                    warn "here is the biblioitemnumber $oldbibitemnum";
-                       NEWnewitem($dbh,$items[$i],$bibid,$oldbibitemnum);
+                       AddItem($dbh,$items[$i],$bibid,$oldbibitemnum);
                }
        }
 }