From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Mon, 10 Sep 2012 08:11:16 +0000 (+0900)
Subject: (est-eval-journal-volume): Use feature `date' instead of
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b7274f848e9537da90420b6a04acf9877e18e3a2;p=chise%2Fest.git

(est-eval-journal-volume): Use feature `date' instead of
`published/date'.
(est-eval-value-as-object): Refer feature `=name'.
(est-eval-value-as-creators-names): Use `->creator/name' instead of
`->name'.
(est-eval-value-as-created-works): Use `<-creator' instead of
`->created'.
---

diff --git a/est-eval.el b/est-eval.el
index 54e1d14..fcd2b52 100644
--- a/est-eval.el
+++ b/est-eval.el
@@ -111,7 +111,7 @@
 	  number-type (concord-object-get journal 'number/type/code))
     (setq year (or (concord-object-get value '->published/date*year)
 		   (concord-object-get
-		    (car (concord-object-get value 'published/date)) 'year)))
+		    (car (concord-object-get value 'date)) 'year)))
     ;; (append (list (concord-object-get journal 'name))
     ;;         (est-journal-volume-object-get-volume-format
     ;;          volume-type '<-volume*volume)
@@ -168,6 +168,7 @@
 				(www-get-feature-value
 				 genre-o 'object-representative-feature))
 			   'name))
+		      (www-get-feature-value value '=name)
 		      (est-eval-value-default value))
 		  ))
 		)))
@@ -330,7 +331,7 @@
 						   'role*name))
 			 (est-eval-list
 			  (list
-			   '(value (:feature ->name))
+			   '(value (:feature ->creator/name))
 			   (list
 			    'object (list :object creator)
 			    (or role-name
@@ -349,7 +350,7 @@
 	     '(:separator " ")
 	     (mapcar (lambda (creator)
 		       (est-eval-list
-			'((value (:feature ->created)))
+			'((value (:feature <-creator)))
 			creator nil))
 		     value))
     (est-eval-value-default value)))