|
@@ -11,6 +11,13 @@
|
|
|
(:title "Death" :href ,(genurl 'add/death))
|
|
|
(:title "Marriage" :href ,(genurl 'add/marriage))
|
|
|
(:title "Divorce" :href ,(genurl 'add/divorce))
|
|
|
+ (:heading "Edit" :href ,(genurl 'edit))
|
|
|
+ (:title "Person" :href ,(genurl 'edit/person))
|
|
|
+ (:title "Birth" :href ,(genurl 'edit/birth))
|
|
|
+ (:title "Death" :href ,(genurl 'edit/death))
|
|
|
+ (:title "Marriage" :href ,(genurl 'edit/marriage))
|
|
|
+ (:title "Divorce" :href ,(genurl 'edit/divorce))
|
|
|
+ (:heading "View" :href ,(genurl 'view))
|
|
|
(:heading "Notes" :href ,(genurl 'notes))
|
|
|
(:title "Add" :href ,(genurl 'notes/add))
|
|
|
(:title "View" :href ,(genurl 'notes/view))
|
|
@@ -44,9 +51,55 @@
|
|
|
(define-route add/person ("add/person"))
|
|
|
(define-route add/person/post ("add/person" :method :post))
|
|
|
(define-route add/marriage ("add/marriage"))
|
|
|
+(define-route add/marriage/post ("add/marriage" :method :post))
|
|
|
(define-route add/divorce ("add/divorce"))
|
|
|
+(define-route add/divorce/edit ("add/divorce" :method :post))
|
|
|
(define-route add/death ("add/death"))
|
|
|
|
|
|
+(define-route edit ("edit")
|
|
|
+ (main-page :nav (generate-nav :main)
|
|
|
+ :title "Edit"
|
|
|
+ :content
|
|
|
+ (with-html-output-to-string (out)
|
|
|
+ (:dl
|
|
|
+ (:dt (:a :href (str (genurl 'edit/person)) "Edit Person"))
|
|
|
+ (:dd "Select and edit a person's record.")
|
|
|
+ (:dt (:a :href (str (genurl 'edit/birth)) "Edit Birth"))
|
|
|
+ (:dd "Select and edit a birth record.")
|
|
|
+ (:dt (:a :href (str (genurl 'edit/death)) "Edit Death"))
|
|
|
+ (:dd "Select and edit a death record.")
|
|
|
+ (:dt (:a :href (str (genurl 'edit/marriage)) "Edit Marriage"))
|
|
|
+ (:dd "Select and edit a marriage record.")
|
|
|
+ (:dt (:a :href (str (genurl 'edit/divorce)) "Edit Divorce"))
|
|
|
+ (:dd "Select and edit a divorce record.")))))
|
|
|
+(define-route edit/person ("edit/person"))
|
|
|
+(define-route edit/birth ("edit/birth"))
|
|
|
+(define-route edit/death ("edit/death"))
|
|
|
+(define-route edit/marriage ("edit/marriage"))
|
|
|
+(define-route edit/divorce ("edit/divorce"))
|
|
|
+
|
|
|
+(define-route view ("view")
|
|
|
+ (main-page :title "View"
|
|
|
+ :nav (generate-nav :main)
|
|
|
+ :content
|
|
|
+ (with-html-output-to-string (out)
|
|
|
+ (:dl
|
|
|
+ (:dt (:a :href (str (genurl 'view/person)) "View Person"))
|
|
|
+ (:dd "Select and view person record.")
|
|
|
+ (:dt (:a :href (str (genurl 'view/birth)) "View Birth"))
|
|
|
+ (:dd "Select and view birth record.")
|
|
|
+ (:dt (:a :href (str (genurl 'view/death)) "View Death"))
|
|
|
+ (:dd "Select and view death record.")
|
|
|
+ (:dt (:a :href (str (genurl 'view/marriage)) "View Marriage"))
|
|
|
+ (:dd "Select and view marriage record.")
|
|
|
+ (:dt (:a :href (str (genurl 'view/divorce)) "View Divorce"))
|
|
|
+ (:dd "Select and view divorce record.")))))
|
|
|
+(define-route view/person ("view/person"))
|
|
|
+(define-route view/birth ("view/birth"))
|
|
|
+(define-route view/marriage ("view/marriage"))
|
|
|
+(define-route view/death ("view/death"))
|
|
|
+(define-route view/divorce ("view/divorce"))
|
|
|
+
|
|
|
(define-route notes ("notes")
|
|
|
(main-page :title "Notes Management"
|
|
|
:nav (generate-nav :main)
|