From b7274f848e9537da90420b6a04acf9877e18e3a2 Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Mon, 10 Sep 2012 17:11:16 +0900 Subject: [PATCH] (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'. --- est-eval.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) 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))) -- 1.7.10.4