if (not defined $current_field and $type ne 'ID') {
next FILE;
}
if (not defined $current_field and $type ne 'ID') {
next FILE;
}
+ next FILE if $type eq 'DE' and $data =~ /\(Fragment\)/;
+ next FILE if $type eq 'ID' and $data =~ /Unreviewed;/;
if (not defined $current_field or $current_field->{type} ne $type) {
if (defined $current_field) {
push @fields,$current_field;
if (not defined $current_field or $current_field->{type} ne $type) {
if (defined $current_field) {
push @fields,$current_field;