<delete-author-action> ( -- action )

Vocabulary

webapps.blogs

Inputs

None

Outputs

action

an object

Definition

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

IN: webapps.blogs

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