index.tcl
Main admin page for static-pages.
- Location:
- /packages/static-pages/www/admin/index.tcl
- Author:
- Brandoch Calef <bcalef@arsdigita.com>
- Created:
- 2001-01-22
- CVS ID:
$Id: index.tcl,v 1.4 2013/09/12 20:43:19 gustafn Exp $
Related Files
- packages/static-pages/www/admin/index.xql
- packages/static-pages/www/admin/index.tcl
- packages/static-pages/www/admin/index.adp
- packages/static-pages/www/admin/index-postgresql.xql
- packages/static-pages/www/admin/index-oracle.xql
[ hide source ]
File Contents
# packages/static-pages/www/admin/index.tcl ad_page_contract { Main admin page for static-pages. @author Brandoch Calef (bcalef@arsdigita.com) @creation-date 2001-01-22 @cvs-id $Id: index.tcl,v 1.4 2013/09/12 20:43:19 gustafn Exp $ } { } -properties { title:onevalue context:onevalue n_static_pages:onevalue are:onevalue pages:onevalue } set root_folder_id [sp_root_folder_id [ad_conn package_id]] db_1row count_static_pages { select count(*) as n_static_pages from static_pages where folder_id in ( select folder_id from sp_folders start with folder_id = :root_folder_id connect by parent_id = prior folder_id ) } if { $n_static_pages == 1 } { set are "is" set pages "page" } else { set are "are" set pages "pages" } set title "Static Pages Administration" set fs_root "[acs_root_dir][parameter::get -parameter {fs_root}]" set context [list $title]