Changeset 20814

Show
Ignore:
Timestamp:
14.10.2009 13:34:04 (10 years ago)
Author:
kjdon
Message:

added a test for meta files list to be defined before using it

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/plugouts/BasePlugout.pm

    r20801 r20814  
    774774 
    775775    # meta files not set in reverese entry, but need to set the metadata flag 
    776     foreach my $meta_file_rec(@{$doc_obj->get_meta_files()}) { 
    777     my $full_file = (ref $meta_file_rec eq "ARRAY") ? $meta_file_rec->[0] : $meta_file_rec; 
    778     $working_info->set_meta_file_flag($full_file); 
     776    if (defined $doc_obj->get_meta_files()) { 
     777    foreach my $meta_file_rec(@{$doc_obj->get_meta_files()}) { 
     778        my $full_file = (ref $meta_file_rec eq "ARRAY") ? $meta_file_rec->[0] : $meta_file_rec; 
     779        $working_info->set_meta_file_flag($full_file); 
     780    } 
    779781    } 
    780782}