style-list.tcl

Shows all styles.

Location:

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

Authors:

Jon Salz

Rocael HR

Created:

28 Nov 1999

Related Files

• packages/wp-slim/www/style-list.xql
• packages/wp-slim/www/style-list.tcl
• packages/wp-slim/www/style-list.adp
• packages/wp-slim/www/style-list-postgresql.xql
• packages/wp-slim/www/style-list-oracle.xql

[ hide source ] | [ make this the default ]

File Contents

# wp-slim/style-list.tcl
ad_page_contract {
    Shows all styles.
    @param none
    @creation-date  28 Nov 1999
    @author Jon Salz <jsalz@mit.edu>
    @author Rocael HR <roc@viaro.net>
} {
}

set user_id [ad_conn user_id]

set context "[_ wp-slim.Your_Styles]"


db_multirow styles_select style_select_data { *SQL* } {
    if {$total_size eq ""} { set total_size 0 }
    set total_size "[format "%.1f" [expr {$total_size / 1024.0}]]K"
} 

db_release_unused_handles


ad_return_template