jennex

commit ec045eab729113e1b8c92f902bfa4f86af35d197 (patch)
parent d97ff49a77ef2c0b0567b6da27a33f6e51252426
Author: Alex Karle <alex@alexkarle.com>
Date:   Mon, 14 Nov 2022 14:40:50 -0500

rsvp: Remove debugging print statements

Diffstat:
M
src/handler.scm
 | 
3
+--
M
src/setup.sql
 | 
3
++-

2 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/src/handler.scm b/src/handler.scm
@@ -138,7 +138,7 @@
 	  (if (null? fdata) ;; Done parsing all our form data
 	      (begin
                 ;; This will raise if update-guest fails (so we get an error page)
-                (for-each print (map update-guest (map cdr guests)))
+                (map update-guest (map cdr guests))
 		(send-sxml
 		 (template-page
 		  `((h2 "RSVP")
@@ -155,7 +155,6 @@
 		     (setter! (cdr (assoc key key-to-setter))))
 		(if cached-guest
 		    (begin
-                      (print "setting to " value)
 		      (setter! (cdr cached-guest) value)
 		      (loop guests (cdr fdata)))
 		    (let ((guest (get-guest-by-id id)))
diff --git a/src/setup.sql b/src/setup.sql
@@ -1,6 +1,7 @@
 -- Parties just group a series of guests so they can RSVP for eachother
 CREATE TABLE parties (
-  id INTEGER PRIMARY KEY AUTOINCREMENT
+  id INTEGER PRIMARY KEY AUTOINCREMENT,
+  notes TEXT
 );
   
 -- Guests store individual preferences for meals, etc