From adb5210865f0da786900d985ef0584633bff0367 Mon Sep 17 00:00:00 2001
From: hdl <hdl>
Date: Fri, 6 Apr 2007 14:49:19 +0000
Subject: [PATCH] Code Cleaning AuthoritiesMarc

---
 misc/bulkauthimport.pl | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/misc/bulkauthimport.pl b/misc/bulkauthimport.pl
index bcb7ed690c..0d37b6436c 100755
--- a/misc/bulkauthimport.pl
+++ b/misc/bulkauthimport.pl
@@ -52,8 +52,6 @@ my $dbh = C4::Context->dbh;
 if ($delete) {
 	print "deleting authorities\n";
 	$dbh->do("delete from auth_header");
-	$dbh->do("delete from auth_subfield_table");
-	$dbh->do("delete from auth_word");
 }
 if ($test_parameter) {
 	print "TESTING MODE ONLY\n    DOING NOTHING\n===============\n";
@@ -112,7 +110,7 @@ while ( my $record = $batch->next() ) {
 	warn "XX => $authtypecode";
 	# now, create biblio and items with NEWnewXX call.
 	unless ($test_parameter) {
-		my ($authid) = AUTHaddauthority($dbh,$newRecord,0,$authtypecode);
+		my ($authid) = AddAuthority($newRecord,0,$authtypecode);
 		warn "ADDED authority NB $authid in DB\n" if $verbose;
 	}
 }
-- 
2.39.5