diff --git a/src/Text/Pandoc/Readers/JATS.hs b/src/Text/Pandoc/Readers/JATS.hs index 9442e2506..930fc29fd 100644 --- a/src/Text/Pandoc/Readers/JATS.hs +++ b/src/Text/Pandoc/Readers/JATS.hs @@ -528,7 +528,9 @@ parseInline (Elem e) = return $ if refType == Just ("ref-type","bibr") then cite (map (\id' -> - Citation{ citationId = id' + let id'' = fromMaybe id' $ + T.stripPrefix "ref-" id' + in Citation { citationId = id'' , citationPrefix = [] , citationSuffix = [] , citationMode = NormalCitation