Permalink
Browse files

fixed bug which occured when a clubber had never had a book set

  • Loading branch information...
1 parent a5d492a commit 65a75a0bccd42fcebe8d3d4f0aa773b109404ca8 @ThomasHintz committed Oct 1, 2011
Showing with 3 additions and 2 deletions.
  1. +1 −0 keep-the-records.scm
  2. +2 −2 storage-funcs.scm
View
@@ -1284,6 +1284,7 @@
(lambda ()
(if (string=? ($ 'book "false") "false") #f (book club ($ 'clubber) ($ 'book)))
(if (string=? ($ 'book-index "false") "false") #f (book-index club ($ 'clubber) ($ 'book-index)))
+ (if (string=? (book club ($ 'clubber)) "") (book club ($ 'clubber) (first (ad (club-level club ($ 'clubber)) 'b))) #f)
(let* ((clubber ($ 'clubber))
(last (last-section club clubber))
(next (if last (next-section club clubber (first last) (second last) (third last) (fourth last)) #f))
View
@@ -151,8 +151,8 @@
(db-club-clubber allergies "allergies" "")
(db-club-clubber primary-parent "primary-parent" "")
(db-club-clubber total-points "total-points" 0)
-(db-club-clubber book "book" 0)
-(db-club-clubber book-index "book-index" 0)
+(db-club-clubber book "book" "")
+(db-club-clubber book-index "book-index" "0")
(db-club-clubber last-section "last-section" #f)
(db-club-clubber date-registered "date-registered" "09/01/10") ; mm/dd/yy
(db-club-clubber thank-you "thank-you" #f)

0 comments on commit 65a75a0

Please sign in to comment.