Changeset 12401
- Timestamp:
- 2006-08-04T12:58:39+12:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/MARCPlug.pm
r12169 r12401 113 113 { 114 114 chomp $line; 115 if ($line =~ m/^(\d+)\s*->\s*( \w+)$/)115 if ($line =~ m/^(\d+)\s*->\s*([\w\^]+)$/) 116 116 { 117 117 my $marc_info = $1;
Note:
See TracChangeset
for help on using the changeset viewer.