fixing typo error

diff --git a/misc/marc_into_authority.pl b/misc/marc_into_authority.pl
index 9c679bb..1df7f36 100644 (file)
--- a/misc/marc_into_authority.pl
+++ b/misc/marc_into_authority.pl
@@ -47,7 +47,7 @@ while (my ($authid,$authtypecode)=$sth->fetchrow ){
 my ($authidfield,$authidsubfield)=AUTHfind_marc_from_kohafield($dbh,"auth_header.authid",$authtypecode);
 my ($authidfield,$authtypesubfield)=AUTHfind_marc_from_kohafield($dbh,"auth_header.authtypecode",$authtypecode);
 ##Both authid and authtypecode is expected to be in the same field. Modify if other requirements arise
-       $record->add_fields($authfield,'','',$authidsubfield=>$authid,$authtypesubfield=>$authtypecode);
+       $record->add_fields($authidfield,'','',$authidsubfield=>$authid,$authtypesubfield=>$authtypecode);
 $sth2->execute($record->as_usmarc,$authid);
 $timeneeded = gettimeofday - $starttime unless ($i % 1000);
        print "$i in $timeneeded s\n" unless ($i % 1000);