From: Jan Büren <jan@kivitendo.de>
Date: Wed, 17 Nov 2021 12:06:46 +0000 (+0100)
Subject: Shop: Erweiterung für Dateityp im Dateinamen auf letzten . begrenzen
X-Git-Tag: kivitendo-mebil_0.1-0~10^2~2^2~218^2~33
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=faec06a4f25d238cd2fd5807a0b7d4259c51e6a7;p=kivitendo-erp.git

Shop: Erweiterung für Dateityp im Dateinamen auf letzten . begrenzen

Hilft zwar nicht bei .tar.gz, aber erstmal besser als vorher
---

diff --git a/SL/DB/ShopPart.pm b/SL/DB/ShopPart.pm
index 1df77fd89..190aa2b14 100644
--- a/SL/DB/ShopPart.pm
+++ b/SL/DB/ShopPart.pm
@@ -57,7 +57,9 @@ sub get_images {
   my @upload_img = ();
   foreach my $img (@{ $images }) {
     my $file               = SL::File->get(id => $img->file->id );
-    my ($path, $extension) = (split /\./, $file->file_name);
+    # no good: split("\." , 202.220.pdf) -> invaild extension 220
+    # file->extension should be in SL::File, a valid extension may also be 'tar.gz'
+    my ($path, $extension) = split(/\.([^\.]+)$/, $file->file_name);
     my $content            = File::Slurp::read_file($file->get_file);
     my $temp ={ ( link        => 'data:' . $file->mime_type . ';base64,' . MIME::Base64::encode($content, ""), #$content, # MIME::Base64::encode($content),
                   description => $img->file->title,