[Koha-cvs] koha/misc bulkauthimport.pl

[Henri-Damien LAURENT]

CVSROOT:	/cvsroot/koha
Module name:	koha
Changes by:	Henri-Damien LAURENT <hdl>	07/04/06 14:49:19

Modified files:
	misc           : bulkauthimport.pl 

Log message:
	Code Cleaning AuthoritiesMarc

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/misc/bulkauthimport.pl?cvsroot=koha&r1=1.2&r2=1.3

Patches:
Index: bulkauthimport.pl
===================================================================
RCS file: /cvsroot/koha/koha/misc/bulkauthimport.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- bulkauthimport.pl	9 Mar 2007 14:58:36 -0000	1.2
+++ bulkauthimport.pl	6 Apr 2007 14:49:19 -0000	1.3
@@ -52,8 +52,6 @@
 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 @@
 	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;
 	}
 }