From 4cd4c15f1bbe35e5544cd706f327b4a1b32bc493 Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeff@approximatrix.com>
Date: Thu, 7 May 2020 14:49:34 -0400
Subject: Fixed some more URL handling issues.

---
 render.f90 | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

(limited to 'render.f90')

diff --git a/render.f90 b/render.f90
index da3406a..860e06a 100644
--- a/render.f90
+++ b/render.f90
@@ -175,10 +175,17 @@ contains
         character(*), intent(in)::mimetype
         logical::type_supported
         integer::i
-        
+
+        integer::istop
+
+        istop = index(mimetype, ";") - 1
+        if(istop < 1) then
+            istop = len_trim(mimetype)
+        end if
+
         type_supported = .false.
         do i = 1, size(base_supported_types)
-            if(trim(mimetype) == trim(base_supported_types(i))) then
+            if(mimetype(1:istop) == trim(base_supported_types(i))) then
                 type_supported = .true.
                 exit
             end if
-- 
cgit v1.2.3