[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);
 		}
 	}
 }