aboutsummaryrefslogtreecommitdiff
path: root/render.f90
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeff@approximatrix.com>2020-05-07 14:49:34 -0400
committerJeffrey Armstrong <jeff@approximatrix.com>2020-05-07 14:49:34 -0400
commit4cd4c15f1bbe35e5544cd706f327b4a1b32bc493 (patch)
treebb9de8c2188117413448e2815b7adaa33d59844e /render.f90
parenta817aaade595cc09f09545f3154cd069f7d12ae5 (diff)
downloadLR-87-4cd4c15f1bbe35e5544cd706f327b4a1b32bc493.tar.gz
LR-87-4cd4c15f1bbe35e5544cd706f327b4a1b32bc493.zip
Fixed some more URL handling issues.
Diffstat (limited to 'render.f90')
-rw-r--r--render.f9011
1 files changed, 9 insertions, 2 deletions
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