[Koha-patches] [PATCH] [SIGNED-OFF] Preservation transparency of png-images cover.

[Serhij Dubyk {Сергій Дубик}]

From: Serhij Dubyk {Сергій Ð?= =?UTF-8?q?”убик} <serhijdubyk at gmail.com>


Signed-off-by: Serhij Dubyk {Сергій Дубик} <serhijdubyk at gmail.com>
---
 C4/Images.pm |    8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/C4/Images.pm b/C4/Images.pm
index 8afc8fa..3a8a383 100644
--- a/C4/Images.pm
+++ b/C4/Images.pm
@@ -187,10 +187,14 @@ sub _scale_image {
           and warn "Reducing image by "
           . ( $percent_reduce * 100 )
           . "\% or to $width_reduce pix X $height_reduce pix";
-        my $newimage = GD::Image->new( $width_reduce, $height_reduce, 1 )
-          ;        #'1' creates true color image...
+        my $newimage = GD::Image->new( $width_reduce, $height_reduce, 1 );        #'1' creates true color image...
+        #my $newimage = $image->clone;
+        $newimage->alphaBlending(0);
+        $newimage->saveAlpha(1);
+        #$newimage->transparent( $image->transparent() );
         $newimage->copyResampled( $image, 0, 0, 0, 0, $width_reduce,
             $height_reduce, $width, $height );
+        #$newimage->transparent( $image->transparent() );
         return $newimage;
     }
     else {
-- 
1.7.10