meetings

src/brmelect.scm

@@ -75,9 +75,9 @@
      }})
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; members
+;; /admin/members
 (define-resource (members "admin" "members" parameters)
-  (let ((rows (query-db "SELECT member_id,nick,name,surname FROM brm.members ORDER BY member_id")))
+  (let ((rows (query-db "SELECT member_id,nick,name,surname FROM brm.members ORDER BY nick")))
     (make-html-response
       200
       (layout
@@ -116,6 +116,32 @@
 ;             @input[type: "submit" name: "submit" value: "Create"]{}
 ;           }))))
 ;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; /admin/meetings
+(define-resource (meetings "admin" "meetings" parameters)
+  (let ((rows
+         (query-db "SELECT meeting_id,title,lower(held_on),upper(held_on) FROM brm.meetings ORDER BY meeting_id")))
+    (make-html-response
+     200
+     (layout
+      "Meetings"
+      `@div{
+         @a[(href "/meetings/add")]{"Add Meeting"}
+         @table{
+           @tr{ @th{ID} @th{Title} @th{Start} @th{End} }
+           @,@(row-map*
+              (lambda (meeting-id title from to)
+                `@tr{
+                   @td{,(number->string meeting-id)}
+                   @td{,title}
+                   @td{,from}
+                   @td{,to}
+                 })
+              rows)
+         }
+      }))))
+                   ;@td{,(->string from)}
+
 ;; Returns (possibly cached) SQLite3 DB handle
 ;(define (brmelect-db)
 ;  (let ((cdb (*cached-brmelect-db*)))