http://bugs.koha-community.org/bugzilla3/show_bug.cgi?id=12860 Robin Sheat <robin@catalyst.net.nz> changed: What |Removed |Added ---------------------------------------------------------------------------- CC| |robin@catalyst.net.nz See Also| |http://bugs.koha-community. | |org/bugzilla3/show_bug.cgi? | |id=13040 --- Comment #1 from Robin Sheat <robin@catalyst.net.nz> --- on Bug 13040 Comment 3 I do a bit of diagnosis of this, copy pasting the relevant bits here: Looking at the code, this can't work: if ( $f =~ m/^(\d{3})(.)?$/ ) { my ( $field, $subfield ) = ( $1, $2 ); # skip if this record doesn't have this field if ( defined $record->field($field) ) { if ( defined $subfield ) { my @tags = $record->field($field); foreach my $t (@tags) { $t->delete_subfields($subfield); } } else { $record->delete_fields($field); } } } where the 'delete_fields' line is the one causing the error. It can't take a tag like the regex pulls out, it must take a MARC::Field. -- You are receiving this mail because: You are watching all bug changes.