Changeset 20814

Timestamp:

2009-10-14T13:34:04+13:00 (15 years ago)

Author:

kjdon

Message:

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

File:

• gsdl/trunk/perllib/plugouts/BasePlugout.pm (modified) (1 diff)

gsdl/trunk/perllib/plugouts/BasePlugout.pm

@@ -774 +774 @@
 
     # meta files not set in reverese entry, but need to set the metadata flag
-    foreach my $meta_file_rec(@{$doc_obj->get_meta_files()}) {
-    my $full_file = (ref $meta_file_rec eq "ARRAY") ? $meta_file_rec->[0] : $meta_file_rec;
-    $working_info->set_meta_file_flag($full_file);
+    if (defined $doc_obj->get_meta_files()) {
+    foreach my $meta_file_rec(@{$doc_obj->get_meta_files()}) {
+        my $full_file = (ref $meta_file_rec eq "ARRAY") ? $meta_file_rec->[0] : $meta_file_rec;
+        $working_info->set_meta_file_flag($full_file);
+    }
     }
 }