From: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
Date: Sat, 20 Nov 2010 05:07:03 +0000 (+0900)
Subject: (www-get-feature-value): Add error-handler for `concord-object-get'.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3e0ffb571c72527b97e048162e78b6c0e1896179;p=chise%2Fest.git

(www-get-feature-value): Add error-handler for `concord-object-get'.
(www-format-value-as-char-list): Refer feature
`object-representation-format' instead of `name'.
(www-format-apply-value): Modify to edit non-character object.
---

diff --git a/cwiki-common.el b/cwiki-common.el
index a94e7a3..939571b 100644
--- a/cwiki-common.el
+++ b/cwiki-common.el
@@ -139,8 +139,12 @@
 	  (char-feature object feature))
       )
      (t
-      (or (concord-object-get object latest-feature)
-	  (concord-object-get object feature))
+      (or (condition-case nil
+	      (concord-object-get object latest-feature)
+	    (error nil))
+	  (condition-case nil
+	      (concord-object-get object feature)
+	    (error nil)))
       ))))
 
 (defun get-previous-code-point (ccs code)
@@ -588,7 +592,9 @@
 						 '=id
 						 (concord-object-genre unit)
 						 'genre))
-					  (www-get-feature-value genre-o 'name)
+					  (www-get-feature-value
+					   genre-o
+					   'object-representation-format)
 					'name))))
 			 (www-format-eval-feature-value
 			  unit name-f nil nil nil ret
@@ -1000,10 +1006,11 @@
 	    without-edit
 	    (eq (plist-get props :mode) 'peek))
 	ret
-      (format "%s <a href=\"%s?char=%s&feature=%s&format=%s\"
+      (format "%s <a href=\"%s?%s=%s&feature=%s&format=%s\"
 ><input type=\"submit\" value=\"edit\" /></a>"
 	      ret
 	      chise-wiki-edit-url
+	      (concord-object-genre object)
 	      uri-object uri-feature format))))
 
 (defun www-format-eval-feature-value (object