Index: openacs-4/packages/acs-subsite/www/admin/applications/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/applications/index.tcl,v diff -u -N -r1.11.2.1 -r1.11.2.2 --- openacs-4/packages/acs-subsite/www/admin/applications/index.tcl 28 Aug 2015 08:13:51 -0000 1.11.2.1 +++ openacs-4/packages/acs-subsite/www/admin/applications/index.tcl 9 Sep 2015 08:09:52 -0000 1.11.2.2 @@ -11,18 +11,13 @@ set page_title [_ acs-subsite.Applications] set context [list $page_title] -# Get the subsite node ID -set subsite_url [lindex [site_node::get_url_from_object_id \ - -object_id [site_node::closest_ancestor_package \ - -include_self \ - -package_key [subsite::package_keys]]] 0] -array set subsite_sitenode [site_node::get -url $subsite_url] -set subsite_node_id $subsite_sitenode(node_id) +set subsite_node_id [ad_conn subsite_node_id] list::create \ -name applications \ -multirow applications \ -key node_id \ + -page_flush_p 1 \ -page_size 250 \ -page_query_name select_applications \ -actions {