[bknr-cvs] hans changed trunk/projects/bos/m2/poi.lisp

[BKNR Commits]

Revision: 3679
Author: hans
URL: http://bknr.net/trac/changeset/3679

Remove accidentially duplicated slot PUBLISHED from POI

U   trunk/projects/bos/m2/poi.lisp

Modified: trunk/projects/bos/m2/poi.lisp
===================================================================
--- trunk/projects/bos/m2/poi.lisp	2008-07-29 12:21:03 UTC (rev 3678)
+++ trunk/projects/bos/m2/poi.lisp	2008-07-29 12:30:55 UTC (rev 3679)
@@ -49,11 +49,10 @@
 
 ;;; poi
 (define-persistent-class poi ()
-  ((published :update :initform nil)
-   (name :read :index-type string-unique-index
+  ((name :read :index-type string-unique-index
                :index-reader find-poi :index-values all-pois
                :documentation "Symbolischer Name")
-   (published :update :initform nil)
+   (published :update :initform nil :documentation "Wenn dieses Flag NIL ist, wird der POI in den UIs nicht angezeigt")
    (title :update :initform (make-string-hash-table) :documentation "Angezeigter Name")
    (subtitle :update :initform (make-string-hash-table) :documentation "Unterschrift")
    (description :update :initform (make-string-hash-table) :documentation "Beschreibungstext")