Changeset 22120
- Timestamp:
- 2010-05-19T17:52:30+12:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/manifest.pm
r22037 r22120 164 164 my $doc_source_file = $doc_rec->{'src-file'}->[0]; 165 165 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 168 169 foreach my $filename (@all_files) { 169 170
Note:
See TracChangeset
for help on using the changeset viewer.