瀏覽代碼

start/end dates are global parameters and do not need to be passed

George C. Privon 9 月之前
父節點
當前提交
4f1fcb6229
共有 1 個文件被更改,包括 2 次插入2 次删除
  1. 2 2
      proposal_database.rkt

+ 2 - 2
proposal_database.rkt

@@ -212,7 +212,7 @@ resultdate TEXT DEFAULT '')")
       "resultdate"))
 
 ; generate a SQL date clause selection
-(define (dateclause start-date end-date issub)
+(define (dateclause issub)
   (string-append
    (if (or (start-date) (end-date))
        " AND "
@@ -257,7 +257,7 @@ resultdate TEXT DEFAULT '')")
   ; generate a selection clause if the user requested a restricted range
   (define props (query-rows conn (string-append "SELECT ID,telescope,solicitation,title,PI,status FROM proposals WHERE "
                                                 selclause
-                                                (dateclause start-date end-date issub))))
+                                                (dateclause issub))))
   (display (string-append (number->string (length props))
                           (cond [issub " pending "]
                                 [isaccept " accepted "]