Index: openacs-4/packages/layout-manager/www/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/www/Attic/index.tcl,v diff -u -N --- openacs-4/packages/layout-manager/www/index.tcl 3 Dec 2008 09:22:00 -0000 1.4 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,32 +0,0 @@ -ad_page_contract { - - Display the user's page set for the current subsite. - - @author Don Baccus (dhogaza@pacifier.com) - @creation-date 2004-01-02 - @version $Id: index.tcl,v 1.4 2008/12/03 09:22:00 donb Exp $ - -} { - {page_num:naturalnum,optional 0} -} - -set master_template [parameter::get -package_id [ad_conn subsite_id] -parameter DefaultMaster] -set package_id [layout::package_id] -set pageset_id [layout::pageset::get_user_pageset_id -package_id $package_id] - -# Check to see if this instance of the layout manager has been initialized, and if not, -# start up the wizard if the user's got admin rights on the package. -if { $pageset_id eq "" } { - if { [permission::permission_p -object_id $package_id -privilege admin] } { - ad_returnredirect [site_node::get_url_from_object_id -object_id $package_id]admin/layouts - ad_script_abort - } else { - ad_return_exception_template \ - -params {{custom_message "[_ layout-manager.uninitialized]"}} \ - /packages/acs-subsite/www/shared/report-error - } -} - -permission::require_permission -privilege read -object_id $pageset_id -ad_return_template -