Changeset 19618

Show
Ignore:
Timestamp:
27.05.2009 13:57:36 (10 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

Files:
1 modified

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