From 9aa5a94e2d7fb0283c2450962d431d6ce1e51f27 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
Date: Thu, 18 Nov 2010 12:22:18 +0900
Subject: [PATCH] (www-display-object-desc): Don't display CHISE IDS-Find for
 non-character object.

---
 cwiki-view.el |   47 ++++++++++++++++++++++++-----------------------
 1 file changed, 24 insertions(+), 23 deletions(-)

diff --git a/cwiki-view.el b/cwiki-view.el
index 1b8d1fa..ec3f256 100644
--- a/cwiki-view.el
+++ b/cwiki-view.el
@@ -126,30 +126,31 @@
        (if (= level 1)
 	   "<p>\n"
 	 "<li>\n"))
-      (princ
-       "<form action=\"http://chise.zinbun.kyoto-u.ac.jp/ids-find\">\n")
-      (princ
-       (www-format-encode-string
-	(est-format-object object)
-        ;; (if (eq genre 'character)
-        ;;     (format "%c" object)
-        ;;   (format "%s" (concord-object-id object)))
-	))
-      (princ
-       (format
-	" <input type=\"text\" name=\"components\"
+      (when (eq genre 'character)
+	(princ
+	 "<form action=\"http://www.chise.org/ids-find\">\n")
+	(princ
+	 (www-format-encode-string
+	  (est-format-object object)
+	  ;; (if (eq genre 'character)
+	  ;;     (format "%c" object)
+	  ;;   (format "%s" (concord-object-id object)))
+	  ))
+	(princ
+	 (format
+	  " <input type=\"text\" name=\"components\"
 size=\"30\" maxlength=\"30\" value=\"%s\" />"
-	(encode-coding-string
-         (est-format-object object)
-	 ;; (if (eq genre 'character)
-         ;;     (char-to-string object)
-         ;;   (format "%s" (concord-object-id object)))
-	 'utf-8-jp-er)))
-      (princ
-       (www-format-encode-string
-	"を\u542Bむ\u6F22\u5B57を\u63A2す"))
-      (princ " <input type=\"submit\" value=\"search\" />\n")
-      (princ "</form>\n")
+	  (encode-coding-string
+	   (est-format-object object)
+	   ;; (if (eq genre 'character)
+	   ;;     (char-to-string object)
+	   ;;   (format "%s" (concord-object-id object)))
+	   'utf-8-jp-er)))
+	(princ
+	 (www-format-encode-string
+	  "を\u542Bむ\u6F22\u5B57を\u63A2す"))
+	(princ " <input type=\"submit\" value=\"search\" />\n")
+	(princ "</form>\n"))
       (princ
        (if (= level 1)
 	   "</p>\n"
-- 
1.7.10.4