Changeset 20814


Ignore:
Timestamp:
10/14/09 13:34:04 (12 years ago)
Author:
kjdon
Message:

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

File:
1 edited

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}
Note: See TracChangeset for help on using the changeset viewer.