Browse Source

Added Divorces

Samuel W. Flint 8 years ago
parent
commit
13f63a2e8e
1 changed files with 17 additions and 2 deletions
  1. 17 2
      cl-genealogy.org

+ 17 - 2
cl-genealogy.org

@@ -26,7 +26,7 @@
 #+TOC: headlines 3
 #+TOC: listings
 
-* WORKING Data Storage [5/8]
+* WORKING Data Storage [6/8]
 :PROPERTIES:
 :CREATED:  <2016-01-06 Wed 13:14>
 :END:
@@ -187,11 +187,26 @@ Further, to be able to keep track of relationships (and thus families), you need
     :/end-date #'stringp)
 #+END_SRC
 
-** TODO Divorces
+** DONE Divorces
 :PROPERTIES:
 :CREATED:  <2016-01-06 Wed 13:17>
 :END:
 
+To keep track of the dissolution of marriages, and to enable correct report generation, we must keep track of divorces.  To do this, we store the following information:
+
+ - Divorce ID :: How the divorce is referred to within the database.
+ - Marriage :: The ID of the marriage the divorce terminates
+ - Divorce Date :: The date the Divorce is effective.
+
+#+Caption: Divorce Table
+#+Name: divorce-table
+#+BEGIN_SRC lisp
+  (defattributes
+    :/divorce-id (unique-in-column :divorces :/divorce-id integer)
+    :/marriage (in-table-column :marriages :/marriage-id)
+    :/divorce-date #'stringp)
+#+END_SRC
+
 ** TODO Notes
 :PROPERTIES:
 :CREATED:  <2016-01-06 Wed 13:17>