|
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 |
- |
|
|