Accidentally hard-coded test values

4 years ago · 5c2c2a627d
parent 4449477268
commit 5c2c2a627d
1 changed files with 1 additions and 1 deletions
--- a/src/db.lisp
+++ b/src/db.lisp
@ -38,7 +38,7 @@ smart enough to make the database fields into (values rows columns)"
 (dbfun insert-post (post_nr board flags)
       (dbi:do-sql conn
         (format nil "insert ignore into posts (post_nr, board) values (~a, '~a');" post_nr board))
-       (let ((post-id (cadr (dbi:fetch (dbi:execute (dbi:prepare conn "select id from posts where post_nr = 9999 and board = 'bant';"))))))
+       (let ((post-id (cadr (dbi:fetch (dbi:execute (dbi:prepare conn (format nil "select id from posts where post_nr = ~a and board = '~a';" post_nr board)))))))
         (dbi:do-sql conn
             (with-output-to-string (s)
               (format s "insert into postflags (post_nr, flag) values")