diff options
author | Jeffrey Armstrong <jeff@approximatrix.com> | 2020-05-07 14:49:34 -0400 |
---|---|---|
committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2020-05-07 14:49:34 -0400 |
commit | 4cd4c15f1bbe35e5544cd706f327b4a1b32bc493 (patch) | |
tree | bb9de8c2188117413448e2815b7adaa33d59844e /render.f90 | |
parent | a817aaade595cc09f09545f3154cd069f7d12ae5 (diff) | |
download | LR-87-4cd4c15f1bbe35e5544cd706f327b4a1b32bc493.tar.gz LR-87-4cd4c15f1bbe35e5544cd706f327b4a1b32bc493.zip |
Fixed some more URL handling issues.
Diffstat (limited to 'render.f90')
-rw-r--r-- | render.f90 | 11 |
1 files changed, 9 insertions, 2 deletions
@@ -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 |