From: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
Date: Thu, 18 Nov 2010 03:22:18 +0000 (+0900)
Subject: (www-display-object-desc): Don't display CHISE IDS-Find for
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9aa5a94e2d7fb0283c2450962d431d6ce1e51f27;p=chise%2Fest.git

(www-display-object-desc): Don't display CHISE IDS-Find for
non-character object.
---

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"