From c89e9dcec5d876cee9d394d030456cf043b2dd55 Mon Sep 17 00:00:00 2001
From: David Convent <davconvent@bruxxel.org>
Date: Thu, 24 Jan 2013 15:31:35 +0100
Subject: [PATCH] added missing view.py

---
 docs/notes.txt                                |  2 --
 src/collective/dms/thesaurus/browser/view.py  | 33 +++++++++++++++++++
 src/collective/dms/thesaurus/configure.zcml   |  1 +
 .../thesaurus-keyword-equivs-display.pt       | 22 +++++++++++++
 4 files changed, 56 insertions(+), 2 deletions(-)
 create mode 100644 src/collective/dms/thesaurus/browser/view.py
 create mode 100644 src/collective/dms/thesaurus/thesaurus-keyword-equivs-display.pt

diff --git a/docs/notes.txt b/docs/notes.txt
index 7519935..7f09d1f 100644
--- a/docs/notes.txt
+++ b/docs/notes.txt
@@ -87,8 +87,6 @@ TODO
 
 - terminer la vue pour les kws
   - equivalences sous forme de liste
-  - virer les doublons dans les RT
-  - afficher les enfants
   - affiner la feuille de style
 
 - vocabulaire pour autocomplete
diff --git a/src/collective/dms/thesaurus/browser/view.py b/src/collective/dms/thesaurus/browser/view.py
new file mode 100644
index 0000000..a65b670
--- /dev/null
+++ b/src/collective/dms/thesaurus/browser/view.py
@@ -0,0 +1,33 @@
+from zope.component import getUtility
+
+from zope.app.intid.interfaces import IIntIds
+
+from zc.relation.interfaces import ICatalog
+
+from plone.dexterity.browser.view import DefaultView
+
+#from plone.dexterity.interfaces import IDexterityFTI
+#from plone.dexterity.utils import getAdditionalSchemata
+
+
+class DmsKeywordView(DefaultView):
+    """The default view for DMSKeyword.
+    """
+
+    @property
+    def children(self):
+        intids = getUtility(IIntIds)
+        catalog = getUtility(ICatalog)
+        value = []
+        try:
+            doc_intid = intids.getId(self.context)
+        except KeyError:
+            pass
+        else:
+            for ref in catalog.findRelations(
+                    {'to_id': doc_intid, 'from_attribute': 'broader'}):
+                tp = (ref.from_path, ref.from_object.Title())
+                if tp not in value:
+                    value.append(tp)
+        return value
+
diff --git a/src/collective/dms/thesaurus/configure.zcml b/src/collective/dms/thesaurus/configure.zcml
index 3333b00..49a5732 100644
--- a/src/collective/dms/thesaurus/configure.zcml
+++ b/src/collective/dms/thesaurus/configure.zcml
@@ -19,6 +19,7 @@
   <include package=".browser" />
 
   <adapter factory=".relatedkeywords.RelatedThesaurusKeywordsFieldWidget" />
+  <adapter factory=".equivalences.ThesaurusKeywordEquivalencesFieldWidget" />
 
   <genericsetup:registerProfile
       name="default"
diff --git a/src/collective/dms/thesaurus/thesaurus-keyword-equivs-display.pt b/src/collective/dms/thesaurus/thesaurus-keyword-equivs-display.pt
new file mode 100644
index 0000000..2f413c7
--- /dev/null
+++ b/src/collective/dms/thesaurus/thesaurus-keyword-equivs-display.pt
@@ -0,0 +1,22 @@
+<ul id="" class=""
+      tal:attributes="id view/id;
+                      class view/klass;
+                      style view/style;
+                      title view/title;
+                      lang view/lang;
+                      onclick view/onclick;
+                      ondblclick view/ondblclick;
+                      onmousedown view/onmousedown;
+                      onmouseup view/onmouseup;
+                      onmouseover view/onmouseover;
+                      onmousemove view/onmousemove;
+                      onmouseout view/onmouseout;
+                      onkeypress view/onkeypress;
+                      onkeydown view/onkeydown;
+                      onkeyup view/onkeyup"><tal:block
+    tal:repeat="value view/terms"
+    ><li class=""
+        tal:content="value"
+    /><tal:block condition="not:repeat/value/end">, </tal:block
+  ></tal:block
+></ul>