From 8ad321d0d49964ec295d1d62d35ce3157b2bc9d0 Mon Sep 17 00:00:00 2001
From: Todd Sifleet <todd.sifleet@gmail.com>
Date: Tue, 28 Oct 2014 18:45:36 -0700
Subject: [PATCH] Strip querystring in ODT write
* Resolve #1682
* Strip querystring from filename before rendering ODT files, ODT cannot
handle querystrings in files.
---
src/Text/Pandoc/Writers/ODT.hs | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/src/Text/Pandoc/Writers/ODT.hs b/src/Text/Pandoc/Writers/ODT.hs
index 03f8e8ba4..e216e616e 100644
--- a/src/Text/Pandoc/Writers/ODT.hs
+++ b/src/Text/Pandoc/Writers/ODT.hs
@@ -138,7 +138,8 @@ transformPicMath opts entriesRef (Image lab (src,_)) = do
let (w,h) = fromMaybe (0,0) $ sizeInPoints `fmap` size
let tit' = show w ++ "x" ++ show h
entries <- readIORef entriesRef
- let newsrc = "Pictures/" ++ show (length entries) ++ takeExtension src
+ let extension = takeExtension $ takeWhile (/='?') src
+ let newsrc = "Pictures/" ++ show (length entries) ++ extension
let toLazy = B.fromChunks . (:[])
epochtime <- floor `fmap` getPOSIXTime
let entry = toEntry newsrc epochtime $ toLazy img