Ignore:
Timestamp:
2006-03-13T17:06:45+13:00 (16 years ago)
Author:
mdewsnip
Message:

Added a bit of code to prevent infinite looping on bad data.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/gsdl/perllib/plugins/ISISPlug.pm

    r11335 r11353  
    244244        # If there is a subfield specifier, parse it off
    245245        my $sub_metadata_name = $metadata_name;
    246         if ($raw_metadata_value =~ s/^(\^[a-z])//) {
     246        if ($raw_metadata_value =~ s/^\^// && $raw_metadata_value =~ s/^([a-z])//) {
    247247            $sub_metadata_name .= $1;
    248248        }
Note: See TracChangeset for help on using the changeset viewer.