<delete-comment-action> ( -- action )

Vocabulary

webapps.blogs

Inputs

None

Outputs

action

an object

Definition

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

IN: webapps.blogs

: <delete-comment-action> ( -- action )
    <action> [
        validate-integer-id
        { { "parent" [ v-integer ] } } validate-params
    ] >>validate [
        "parent" value <post-state> select-tuple author>>
        authorize-author
    ] >>authorize [
        f "id" value <comment> delete-tuples
        "parent" value view-post-url <redirect>
    ] >>submit <protected> "delete a comment" >>description ;