Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Fixed attendance ajax clubber-attendance-info call to load the name f…

…rom the name id.
  • Loading branch information...
commit b4dc8cf20ec92944e541e5bc7ea26ca0af828479 1 parent 55c1326
@ThomasHintz authored
Showing with 12 additions and 12 deletions.
  1. +12 −12 keep-the-records.scm
View
24 keep-the-records.scm
@@ -426,18 +426,18 @@
(date (++ (or ($ 'year) (todays-yyyy)) "/" (or ($ 'month) (todays-mm)) "/" (or ($ 'day) (todays-dd)))))
(ajax "clubber-attendance-info" 'clubbers '(change keypress)
(lambda ()
- (let ((name ($ 'name)))
- (if name
- `((clubber-name . ,name)
- (present . ,(present club name date))
- (bible . ,(bible club name date))
- (handbook . ,(handbook club name date))
- (uniform . ,(uniform club name date))
- (friend . ,(friend club name date))
- (points-total . ,(total-points club name))
- (allergies . ,(allergies club name))
- (club-level . ,(club-level club name))
- (notes . ,(notes club name))
+ (let ((n ($ 'name)))
+ (if n
+ `((clubber-name . ,(name club n))
+ (present . ,(present club n date))
+ (bible . ,(bible club n date))
+ (handbook . ,(handbook club n date))
+ (uniform . ,(uniform club n date))
+ (friend . ,(friend club n date))
+ (points-total . ,(total-points club n))
+ (allergies . ,(allergies club n))
+ (club-level . ,(club-level club n))
+ (notes . ,(notes club n))
(attendees-html . ,(attendees-html club date)))
'())))
success: "loadClubberInfo(response);"
Please sign in to comment.
Something went wrong with that request. Please try again.