- my @wanted_files;
- ## also for filtering if needed:
- # if ( $doctype ) {
- # @wanted_files = grep { $_->{file_name} =~ /$doctype/ } @files;
- # } else {
- @wanted_files = @files;
- # }
- if ( scalar (@wanted_files) > 0 ) {
- $zip->addDirectory($item->part->partnumber);
- $zip->addFile(SL::File->get_file_path(dbfile => $_ ),
- Encode::encode($name_encoding,$item->part->partnumber.'/'.$_->{file_name})
- ) for @wanted_files;
- }
+ next unless @files;
+
+ $zip->addDirectory($item->part->partnumber);
+ $zip->addFile($_->get_file, Encode::encode($name_encoding, $item->part->partnumber . '/' . $_->db_file->file_name)) for @files;