style-delete.tcl

Description: Confirms that the user wants to delete the style.

Location:

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

Authors:

Jon Salz <jsalz@mit.edu>

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

Created:

28 Nov 1999

Related Files

• packages/wp-slim/www/style-delete.xql
• packages/wp-slim/www/style-delete.tcl
• packages/wp-slim/www/style-delete.adp

[ hide source ] | [ make this the default ]

File Contents

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

ad_page_contract {
    Description: Confirms that the user wants to delete the style.
    
    @param style_id

    @creation-date  28 Nov 1999
    @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

# Get the style information to display a confirmation message.
set name [db_string wp_style_name_select { *SQL* }]
set context [list "[list "style-list.tcl" "[_ wp-slim.Your_Styles]"]" "[_ wp-slim.Delete_name]"]

set num_images [db_string wp_image_count_select { *SQL* }]
if { $num_images == 0 } {
    set images_str ""
} elseif { $num_images == 1 } {
    set images_str "[_ wp-slim.lt_and_the_associated_im]"
} else {
    set images_str ", [_ wp-slim.lt_including_num_images_]"
}


set form_vars [export_vars -form {style_id}]

ad_return_template