Changeset 3679
- Timestamp:
- 07/29/08 14:30:55 (4 months ago)
- Files:
-
- trunk/projects/bos/m2/poi.lisp (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/projects/bos/m2/poi.lisp
r3677 r3679 50 50 ;;; poi 51 51 (define-persistent-class poi () 52 ((published :update :initform nil) 53 (name :read :index-type string-unique-index 52 ((name :read :index-type string-unique-index 54 53 :index-reader find-poi :index-values all-pois 55 54 :documentation "Symbolischer Name") 56 (published :update :initform nil )55 (published :update :initform nil :documentation "Wenn dieses Flag NIL ist, wird der POI in den UIs nicht angezeigt") 57 56 (title :update :initform (make-string-hash-table) :documentation "Angezeigter Name") 58 57 (subtitle :update :initform (make-string-hash-table) :documentation "Unterschrift")
