From c9fb20928b390e1e7d61ed6cd72c473130c777fd Mon Sep 17 00:00:00 2001
From: Henri-Damien LAURENT <henridamien@koha-fr.org>
Date: Thu, 20 Dec 2007 15:23:09 +0100
Subject: [PATCH] Generating index for authorities on AUTHtypecode from table
 auth_header

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
---
 misc/migration_tools/rebuild_nozebra.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/misc/migration_tools/rebuild_nozebra.pl b/misc/migration_tools/rebuild_nozebra.pl
index bf38318273..93c868715e 100755
--- a/misc/migration_tools/rebuild_nozebra.pl
+++ b/misc/migration_tools/rebuild_nozebra.pl
@@ -198,7 +198,7 @@ while (my ($authid) = $sth->fetchrow) {
     
     my %index;
     # for authorities, the "title" is the $a mainentry
-    my $authref = C4::AuthoritiesMarc::GetAuthType($record->subfield(152,'b'));
+    my $authref = C4::AuthoritiesMarc::GetAuthType(C4::AuthoritiesMarc::GetAuthTypeCode($authid));
 
     warn "ERROR : authtype undefined for ".$record->as_formatted unless $authref;
     my $title = $record->subfield($authref->{auth_tag_to_report},'a');
-- 
2.39.5