Changeset 19618 for gsdl

Timestamp:

2009-05-27T13:57:36+12:00 (15 years ago)

Author:

kjdon

Message:

changed the test for array/single file to look for ARRAY instead of SCALAR, as SCALAR wasn't returned for a single string arg

File:

• gsdl/trunk/perllib/marcmapping.pm (modified) (2 diffs)

gsdl/trunk/perllib/marcmapping.pm

@@ -33 +33 @@
     my $metadata_mapping = {};
 
-    if (ref ($mm_file_or_files) eq 'SCALAR') {
-    my $mm_file = $mm_file_or_files;
-    &_parse_marc_metadata_mapping($mm_file,$metadata_mapping, $outhandle);
-    }
-    else {
+    if (ref ($mm_file_or_files) eq 'ARRAY') {
     my $mm_files = $mm_file_or_files;
-    
+
     # Need to process files in reverse order.  This is so in the
     # case where we have both a "collect" and "main" version,
@@ -48 +44 @@
         &_parse_marc_metadata_mapping($mm_file,$metadata_mapping, $outhandle);
     }
+    }
+    else {
+    my $mm_file = $mm_file_or_files;
+    &_parse_marc_metadata_mapping($mm_file,$metadata_mapping, $outhandle);
     }