Changeset 22120

Show
Ignore:
Timestamp:
19.05.2010 17:52:30 (9 years ago)
Author:
max
Message:

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

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/manifest.pm

    r22037 r22120  
    164164        my $doc_source_file = $doc_rec->{'src-file'}->[0]; 
    165165        my $assoc_files = $doc_rec->{'assoc-file'}; 
    166         my @all_files = ($doc_source_file,@$assoc_files); 
    167          
     166        my @all_files = ($doc_source_file); 
     167        push(@all_files,@$assoc_files) if defined $assoc_files; 
     168         
    168169        foreach my $filename (@all_files) { 
    169170