From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sat, 11 Jun 2016 05:53:28 +0000 (+0900)
Subject: (www-display-object-desc): Use "...$.zoom-xywh=" instead of
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5945f8760445ad1f8639db5f037729512c390ffe;p=chise%2Fest.git

(www-display-object-desc): Use "...$.zoom-xywh=" instead of
"...$zoom-xywh=" to specify image zooming.
(www-batch-view-smart): Likewise.
---

diff --git a/cwiki-view.el b/cwiki-view.el
index 8f55658..04f7f36 100644
--- a/cwiki-view.el
+++ b/cwiki-view.el
@@ -203,7 +203,7 @@ li { margin: 0 0 0 2em; }
 	 (if (setq ret (concord-object-get object '=location@iiif))
 	     (if (setq base-image
 		       (car (concord-object-get object '<-image-segment)))
-		 (format "<a href=\"%s...$zoom-xywh=%d,%d,%d,%d\"
+		 (format "<a href=\"%s...$.zoom-xywh=%d,%d,%d,%d\"
 ><img alt=\"%s\" src=\"%s\" /></a>"
 			 (www-uri-encode-object base-image)
 			 (concord-object-get object 'image-offset-x)
@@ -765,7 +765,7 @@ size=\"30\" maxlength=\"30\" value=\"%s\" />"
 			    (list (substring ret 0 (match-beginning 0))
 				  (substring ret (match-end 0)))
 			    )
-			   ((string-match "...$zoom-xywh=" ret)
+			   ((string-match "...$.zoom-xywh=" ret)
 			    (list (substring ret 0 (match-beginning 0))
 				  nil
 				  (substring ret (match-end 0)))