Просмотр исходного кода

bugfix on printing number of pending proposals

George C. Privon 5 лет назад
Родитель
Сommit
f1c1ac4fb8
2 измененных файлов с 4 добавлено и 3 удалено
  1. 1 1
      README.md
  2. 3 2
      update_proposals.rkt

+ 1 - 1
README.md

@@ -8,6 +8,6 @@ Run `update_database.rkt help` for information on how to add/update entries.
 
 ## Requirements
 
-* [Racket](https://racket-lang.org/) (tested with Racket 7.2)
+* [Racket](https://racket-lang.org/) (tested with Racket 7.5)
 * [`db` library](https://docs.racket-lang.org/db/index.html) and sqlite3 native library.
 

+ 3 - 2
update_proposals.rkt

@@ -30,7 +30,7 @@
   (displayln " list-open\t - Show all submitted (but not resolved) proposals.")
   (displayln " help\t\t - Show this help message.")
   (newline)
-  (displayln "Copyright 2019 George C. Privon"))
+  (displayln "Copyright 2019-2020 George C. Privon"))
 
 ; set up a condensed prompt for getting information
 (define (getinput prompt)
@@ -99,7 +99,8 @@
 (define (printopen)
    ; retrieve all proposals wh
   (define unfinished (query-rows conn "SELECT ID,telescope,solicitation,title,PI FROM proposals WHERE status='submitted'"))
-  (displayln (string-append (make-string (length unfinished)) " pending proposals found:"))
+  (displayln (string-append (number->string (length unfinished)) " pending proposals found."))
+  (newline)
   ; print all the unresolved proposals to the screen
   (map printentry unfinished))