Accidentally hard-coded test values

dotnetflags
not manx 5 years ago
parent 4449477268
commit 5c2c2a627d
Signed by: C-xC-c
GPG Key ID: F52ED472284EF2F4

@ -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")

Loading…
Cancel
Save