rebuild_zebra now handle correctly improper authorities records

(missing 100 field are automatically added)

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>

diff --git a/misc/migration_tools/rebuild_zebra.pl b/misc/migration_tools/rebuild_zebra.pl
index 39679a8..b6cee7d 100755 (executable)
--- a/misc/migration_tools/rebuild_zebra.pl
+++ b/misc/migration_tools/rebuild_zebra.pl
@@ -299,8 +299,11 @@ rank:rank-1
             eval {
                 $record = GetAuthority($authid);
             };
+            next unless $record;
             # force authid in case it's not here, otherwise, zebra will die on this authority
-            unless ($record->field('001')){
+            unless ($record->field('001')->data() eq $authid){
+                print "$authid don't exist for this authority :".$record->as_formatted;
+                $record->delete_field($record->field('001'));
                 $record->insert_fields_ordered(MARC::Field->new('001',$authid));
             }
             if($@){