From: Bernd Bleßmann Date: Tue, 2 Mar 2021 11:00:50 +0000 (+0100) Subject: S:C:H:ThumbnailCreator: Thumbnail-Größe übergeben können X-Git-Tag: kivitendo-mebil_0.1-0~9^2~445 X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=ca96627e718778587a5b1a4efb4d908699020b5f;p=kivitendo-erp.git S:C:H:ThumbnailCreator: Thumbnail-Größe übergeben können --- diff --git a/SL/Controller/Helper/ThumbnailCreator.pm b/SL/Controller/Helper/ThumbnailCreator.pm index 219b6314c..cc262d130 100644 --- a/SL/Controller/Helper/ThumbnailCreator.pm +++ b/SL/Controller/Helper/ThumbnailCreator.pm @@ -23,11 +23,13 @@ our %supported_mime_types = ( ); sub file_create_thumbnail { - my ($thumb) = @_; + my ($thumb, %params) = @_; + croak "No picture set yet" if !$thumb->{content}; + my $image = GD::Image->new($thumb->{content}); my ($width, $height) = $image->getBounds; - my $max_dim = 64; + my $max_dim = $params{size} // 64; my $curr_max = max $width, $height, 1; my $factor = $curr_max <= $max_dim ? 1 : $curr_max / $max_dim; my $new_width = int($width / $factor + 0.5); @@ -64,7 +66,7 @@ sub file_probe_image_type { } sub file_probe_type { - my ($content) = @_; + my ($content, %params) = @_; return (t8("No file uploaded yet")) if !$content; my $info = Image::Info::image_info(\$content); if (!$info || $info->{error} || !$info->{file_media_type} || !$supported_mime_types{ $info->{file_media_type} }) { @@ -78,7 +80,7 @@ sub file_probe_type { $thumbnail->{file_image_height} = $info->{height}; $thumbnail->{content} = $content; - $thumbnail = &file_create_thumbnail($thumbnail); + $thumbnail = &file_create_thumbnail($thumbnail, %params); return $thumbnail; }