aliens/tekuti
1
0
Fork 0
Code Activity

New posts start in private status

Browse source 
* tekuti/page-helpers.scm (post-editing-form): Fix status of new posts.
This commit is contained in:
Andy Wingo 2014-12-17 11:19:49 +01:00
parent acc13819e1
commit cf10aa7056
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
tekuti/page-helpers.scm
View file

@ -193,7 +193,7 @@
'())))
"private (only visible to admin)") (br)
(label (input (@ (type "radio") (name "status") (value "draft")
,@(if (or (not post) (post-draft? post))
,@(if (and post (post-draft? post))
'((checked "checked"))
'())))
"draft (only accessible via "
@ -205,7 +205,7 @@
(br)
(label (input (@ (type "radio") (name "status") (value "publish")
,@(if (or (not post) (post-public? post))
,@(if (and post (post-public? post))
'((checked "checked"))
'())))
"public"))