- Timestamp:
- 2009-10-14T13:34:04+13:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugouts/BasePlugout.pm
r20801 r20814 774 774 775 775 # 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 } 779 781 } 780 782 }
Note:
See TracChangeset
for help on using the changeset viewer.