C-xC-c
/
bantflags
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Accidentally hard-coded test values

Browse Source
dotnetflags
not manx 5 years ago
parent 4449477268
commit 5c2c2a627d
Signed by: C-xC-c
GPG Key ID: F52ED472284EF2F4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File

2
src/db.lisp
Unescape View File

@ -38,7 +38,7 @@ smart enough to make the database fields into (values rows columns)"
(dbfun insert-post (post_nr board flags) (dbfun insert-post (post_nr board flags)
(dbi:do-sql conn (dbi:do-sql conn
(format nil "insert ignore into posts (post_nr, board) values (~a, '~a');" post_nr board)) (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 (dbi:do-sql conn
(with-output-to-string (s) (with-output-to-string (s)
(format s "insert into postflags (post_nr, flag) values") (format s "insert into postflags (post_nr, flag) values")

Write Preview
Loading…
Cancel
Save