Parse new start/stop properly, show it in member info table.
This commit is contained in:
parent
9ed3ef4423
commit
f20f815784
2 changed files with 2 additions and 2 deletions
|
@ -109,7 +109,7 @@
|
|||
(info
|
||||
,(lambda (mr output key value)
|
||||
(case key
|
||||
((student suspend member)
|
||||
((student suspend member revision chair council grant)
|
||||
(let* ((res (period-markers->cal-periods value))
|
||||
(ok? (car res))
|
||||
(periods (cadr res))
|
||||
|
|
|
@ -108,7 +108,7 @@
|
|||
(caddr c)))
|
||||
(brmember-credit mr))
|
||||
#:col-border #t)))
|
||||
((suspend student member)
|
||||
((suspend student member council chair revision grant)
|
||||
(list k
|
||||
(table->string
|
||||
(cons (list "Since" "Until")
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue