|
@@ -10,7 +10,7 @@
|
|
|
"config.rkt") ; load configuration file
|
|
"config.rkt") ; load configuration file
|
|
|
|
|
|
|
|
(define prog-name "proposal_database.rkt")
|
|
(define prog-name "proposal_database.rkt")
|
|
|
-(define prog-version "v0.3.0")
|
|
|
|
|
|
|
+(define prog-version "v0.3.1")
|
|
|
|
|
|
|
|
|
|
|
|
|
; give us the date in YYYY-MM-DD format
|
|
; give us the date in YYYY-MM-DD format
|
|
@@ -270,7 +270,10 @@ resultdate TEXT DEFAULT '')")
|
|
|
(display (string-append (number->string (length props))
|
|
(display (string-append (number->string (length props))
|
|
|
(cond [issub " pending "]
|
|
(cond [issub " pending "]
|
|
|
[isaccept " accepted "]
|
|
[isaccept " accepted "]
|
|
|
- [isrej " rejected "])
|
|
|
|
|
|
|
+ [isrej " rejected "]
|
|
|
|
|
+ [(and (not issub)
|
|
|
|
|
+ (not isaccept)
|
|
|
|
|
+ (not isrej)) " closed "])
|
|
|
(proposal-plurals (length props))
|
|
(proposal-plurals (length props))
|
|
|
" found."))
|
|
" found."))
|
|
|
(newline)
|
|
(newline)
|