Ignore:
Timestamp:
05/27/09 13:57:36 (12 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:
1 edited

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/marcmapping.pm

    r18200 r19618  
    3333    my $metadata_mapping = {};
    3434
    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') {
    4036    my $mm_files = $mm_file_or_files;
    41    
     37
    4238    # Need to process files in reverse order.  This is so in the
    4339    # case where we have both a "collect" and "main" version,
     
    4844        &_parse_marc_metadata_mapping($mm_file,$metadata_mapping, $outhandle);
    4945    }
     46    }
     47    else {
     48    my $mm_file = $mm_file_or_files;
     49    &_parse_marc_metadata_mapping($mm_file,$metadata_mapping, $outhandle);
    5050    }
    5151
Note: See TracChangeset for help on using the changeset viewer.