git-svn-id: svn://nox.esilibrary.com/migration-tools@650
eee7cc8d-164e-4af6-8e1b-
092a69004917
Signed-off-by: Galen Charlton <gmc@esilibrary.com>
# Looks like we've got some actual data! Let's store it.
# FIXME: For large batches of data, we may run out of memory and should store this on disk.
- if ( /^\.(.*?).\s+(\|a)?(.*)$/ ) {
+ if ( /^\.([A-Z]*?).\s+(\|a)?(.*)$/ ) {
# Build the name of this field (taking note of whether we're in a named section of data)
$field = '';