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