Imported Upstream version 1.7.1upstream/1.7.1upstream

1 files changed, 17 insertions, 2 deletions

diff --git a/lib/gcstar/GCExport/GCExportExternal.pm b/lib/gcstar/GCExport/GCExportExternal.pm
index d5c096c..2263387 100644
--- a/lib/gcstar/GCExport/GCExportExternal.pm
+++ b/lib/gcstar/GCExport/GCExportExternal.pm
@@ -45,6 +45,7 @@ use GCExport::GCExportBase;
         bless ($self, $class);
 
         $self->{useZip} = $self->checkOptionalModule('Archive::Zip');
+        $self->{covers} = {};
 
         return $self;
     }
@@ -57,10 +58,13 @@ use GCExport::GCExportBase;
     sub transformPicturePath
     {
         my ($self, $path, $file, $item, $field) = @_;
-        return $self->duplicatePicture($path,
+        my $newPath = $self->duplicatePicture($path,
                                        $field,
                                        $self->{imageDir},
                                        $item->{$self->{model}->{commonFields}->{title}});
+        $self->{isCover}->{$newPath} = 1
+            if $self->{model}->{commonFields}->{cover} eq $field;
+        return $newPath;
     }
 
     sub process
@@ -123,8 +127,19 @@ use GCExport::GCExportBase;
             my $zip = Archive::Zip->new();
             $zip->addFile(basename($self->{fileName}));
             $zip->addDirectory(basename($self->{imageDir}));
+            my $miniDir = $self->{imageDir}.'-mini';
+            mkdir $miniDir;
+            $zip->addDirectory(basename($miniDir));
             my @images = glob $imagesSubDir.'/*';
-            $zip->addFile($_) foreach @images;
+            foreach my $image(@images)
+            {
+                $zip->addFile($image);
+                my $imgFile = basename($image);
+                my $fullFileName = $self->{imageDir}."/$imgFile";
+                next if !$self->{isCover}->{$image};
+                $self->createMiniature($fullFileName, "$miniDir/$imgFile", 150);
+                $zip->addFile(basename($miniDir)."/$imgFile");
+            }
             my $result = $zip->writeToFileNamed($outFile);
             if ($result)
             {