Changeset 22120

Timestamp:

2010-05-19T17:52:30+12:00 (14 years ago)

Author:

max

Message:

Extra check added to allow for documents that do not have any associated files (davidb)

File:

• main/trunk/greenstone2/perllib/manifest.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/manifest.pm

@@ -164 +164 @@
         my $doc_source_file = $doc_rec->{'src-file'}->[0];
         my $assoc_files = $doc_rec->{'assoc-file'};
-        my @all_files = ($doc_source_file,@$assoc_files);
-        
+        my @all_files = ($doc_source_file);
+        push(@all_files,@$assoc_files) if defined $assoc_files;
+        
         foreach my $filename (@all_files) {