From a19cd39a6fae3f5595c7935fbc83d4edc82300d8 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Thu, 21 Sep 2023 14:21:16 -0700
Subject: JATS writer: fix 3.1.4 regression in handling block-level metadata.

Closes #9092.
---
 src/Text/Pandoc/Writers/JATS.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Text')

diff --git a/src/Text/Pandoc/Writers/JATS.hs b/src/Text/Pandoc/Writers/JATS.hs
index 2492a0649..153dfc133 100644
--- a/src/Text/Pandoc/Writers/JATS.hs
+++ b/src/Text/Pandoc/Writers/JATS.hs
@@ -124,7 +124,7 @@ docToJATS opts (Pandoc meta blocks') = do
                     then Just $ writerColumns opts
                     else Nothing
   metadata <- metaToContext opts
-                 (blocksToJATS opts)
+                 (blocksToJATS opts . makeSections False (Just startLvl))
                  (fmap chomp . inlinesToJATS opts)
                  meta
   main <- blocksToJATS opts bodyblocks
-- 
cgit v1.2.3