aboutsummaryrefslogtreecommitdiff
path: root/render.f90
diff options
context:
space:
mode:
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