<edit-blog-action> ( -- action )

Vocabulary

webapps.planet

Inputs

None

Outputs

action

an object

Definition

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

IN: webapps.planet

: <edit-blog-action> ( -- action )
    <page-action> [
        validate-integer-id "id" value <blog> select-tuple
        from-object
    ] >>init { planet "edit-blog" } >>template
    [ validate-integer-id validate-blog ] >>validate [
        f <blog>
        [ deposit-blog-slots ] [ "id" value >>id update-tuple ]
        bi <url> "$planet/admin" >>path
        "id" value "id" set-query-param <redirect>
    ] >>submit ;