(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 (file)
--- 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)))