JATS reader: strip ref- prefix from ref id in xref.

This completes commit 807a574e9d. Closes #8007.
2026-08-28 11:16:33 +00:00 · 2022-04-06 23:14:10 -07:00
parent 125210c108
commit 7fb74b74df
1 changed files with 3 additions and 1 deletions
@@ -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