Lines 177-184
sub _sanitise_records {
Link Here
|
177 |
# the Tannhauser gate. MARC records where 999$c doesn't match the |
177 |
# the Tannhauser gate. MARC records where 999$c doesn't match the |
178 |
# biblionumber column. All those moments will be lost in time... like |
178 |
# biblionumber column. All those moments will be lost in time... like |
179 |
# tears in rain... |
179 |
# tears in rain... |
180 |
$rec->delete_fields($rec->field('999')); |
180 |
if ( $rec ) { |
181 |
$rec->append_fields(MARC::Field->new('999','','','c' => $bibnum, 'd' => $bibnum)); |
181 |
$rec->delete_fields($rec->field('999')); |
|
|
182 |
$rec->append_fields(MARC::Field->new('999','','','c' => $bibnum, 'd' => $bibnum)); |
183 |
} |
182 |
} |
184 |
} |
183 |
} |
185 |
} |
184 |
|
186 |
|
185 |
- |
|
|