Changeset 12401


Ignore:
Timestamp:
2006-08-04T12:58:39+12:00 (18 years ago)
Author:
kjdon
Message:

allows as part of the gsdl metadata name in the marctodc mapping file

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/gsdl/perllib/plugins/MARCPlug.pm

    r12169 r12401  
    113113    {
    114114        chomp $line;
    115         if ($line =~ m/^(\d+)\s*->\s*(\w+)$/)
     115        if ($line =~ m/^(\d+)\s*->\s*([\w\^]+)$/)
    116116        {
    117117        my $marc_info = $1;
Note: See TracChangeset for help on using the changeset viewer.