style-delete-2.tcl

Description: Deletes the style.

Location:

/packages/wp-slim/www/style-delete-2.tcl

Authors:

Jon Salz <jsalz@mit.edu>

Rocael HR (roc@viaro.net) Ported & modified

Related Files

• packages/wp-slim/www/style-delete-2.tcl
• packages/wp-slim/www/style-delete-2-postgresql.xql
• packages/wp-slim/www/style-delete-2-oracle.xql

[ hide source ] | [ make this the default ]

File Contents

# /wp-slim/www/style-delete-2.tcl

ad_page_contract {
    Description: Deletes the style.

    @param style_id is the ID of the style to delete

    @author Jon Salz (jsalz@mit.edu)
    @author Rocael HR (roc@viaro.net) Ported & modified
} {
    style_id:naturalnum,notnull
}

set user_id [ad_conn user_id]

wp_check_style_authorization $style_id $user_id

db_exec_plsql revisions_and_item_delete { *SQL* }

db_release_unused_handles

ad_returnredirect "style-list.tcl"