<delete-post-action> ( -- action )

Vocabulary

webapps.blogs

Inputs

None

Outputs

action

an object

Definition

USING: accessors db furnace.actions furnace.auth
furnace.redirection html.forms ;

IN: webapps.blogs

: <delete-post-action> ( -- action )
    <action> [ do-post-action ] >>validate
    [ "author" value authorize-author ] >>authorize [
        [ "id" value delete-post ] with-transaction
        "author" value posts-by-url <redirect>
    ] >>submit <protected> "delete a blog post" >>description ;