<rollback-action> ( -- action )

Vocabulary

webapps.wiki

Inputs

None

Outputs

action

an object

Definition

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

IN: webapps.wiki

: <rollback-action> ( -- action )
    <action> [ validate-integer-id ] >>validate [
        "id" value <revision> select-tuple f >>id now >>date
        username >>author
        [ rollback-description ] change-description
        [ add-revision ] [ title>> revisions-url <redirect> ] bi
    ] >>submit
    <protected> "rollback wiki articles" >>description ;