Changeset 19618 for gsdl/trunk/perllib/marcmapping.pm
- Timestamp:
- 2009-05-27T13:57:36+12:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/marcmapping.pm
r18200 r19618 33 33 my $metadata_mapping = {}; 34 34 35 if (ref ($mm_file_or_files) eq 'SCALAR') { 36 my $mm_file = $mm_file_or_files; 37 &_parse_marc_metadata_mapping($mm_file,$metadata_mapping, $outhandle); 38 } 39 else { 35 if (ref ($mm_file_or_files) eq 'ARRAY') { 40 36 my $mm_files = $mm_file_or_files; 41 37 42 38 # Need to process files in reverse order. This is so in the 43 39 # case where we have both a "collect" and "main" version, … … 48 44 &_parse_marc_metadata_mapping($mm_file,$metadata_mapping, $outhandle); 49 45 } 46 } 47 else { 48 my $mm_file = $mm_file_or_files; 49 &_parse_marc_metadata_mapping($mm_file,$metadata_mapping, $outhandle); 50 50 } 51 51
Note:
See TracChangeset
for help on using the changeset viewer.