aliens/tekuti
1
0
Fork 0
Code Activity

Downcase when creating posts.

Browse source 
* tekuti/post.scm (parse-post-data): Downcase when creating posts also.
This commit is contained in:
Andy Wingo 2014-01-19 20:53:28 +01:00
parent e8eb7aa176
commit 9d43521793
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
tekuti/post.scm
View file

@ -1,5 +1,5 @@
;; Tekuti ;; Tekuti
;; Copyright (C) 2008, 2010, 2011, 2012 Andy Wingo <wingo at pobox dot com> ;; Copyright (C) 2008, 2010, 2011, 2012, 2014 Andy Wingo <wingo at pobox dot com>
;; This program is free software; you can redistribute it and/or ;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as ;; modify it under the terms of the GNU General Public License as
@ -196,10 +196,11 @@
(comment_status . ,(if comments-open? "open" "closed")) (comment_status . ,(if comments-open? "open" "closed"))
(timestamp . ,timestamp) (timestamp . ,timestamp)
(name . ,name) (name . ,name)
(key . ,(uri-encode (key . ,(string-downcase
(string-append (date->string (timestamp->date timestamp) (uri-encode
"~Y/~m/~d/") (string-append (date->string (timestamp->date timestamp)
(uri-encode name)))))))) "~Y/~m/~d/")
(uri-encode name)))))))))
(define (make-new-post post-data) (define (make-new-post post-data)
(munge-post #f (parse-post-data post-data))) (munge-post #f (parse-post-data post-data)))