Index: openacs-4/packages/acs-subsite/lib/applications.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/lib/applications.tcl,v diff -u -r1.6 -r1.7 --- openacs-4/packages/acs-subsite/lib/applications.tcl 25 Jul 2008 15:02:56 -0000 1.6 +++ openacs-4/packages/acs-subsite/lib/applications.tcl 7 Aug 2017 23:47:57 -0000 1.7 @@ -2,7 +2,11 @@ set actions [list] if { $admin_p } { - lappend actions [_ acs-subsite.Add_new_app] [export_vars -base "[subsite::get_element -element url]admin/applications/application-add" { { return_url [ad_return_url] } }] {} + lappend actions \ + [_ acs-subsite.Add_new_app] \ + [export_vars -base "[subsite::get_element -element url]admin/applications/application-add" { + { return_url [ad_return_url] } + }] } list::create \ @@ -21,23 +25,11 @@ set user_id [ad_conn user_id] -db_multirow applications select_applications { - select p.package_id, - p.instance_name, - n.node_id, - n.name - from site_nodes n, - apm_packages p, - apm_package_types t - where n.parent_id = :subsite_node_id - and p.package_id = n.object_id - and t.package_key = p.package_key - and t.package_type = 'apm_application' - and exists (select 1 - from all_object_party_privilege_map perm - where perm.object_id = p.package_id - and perm.privilege = 'read' - and perm.party_id = :user_id) - order by upper(instance_name) -} +db_multirow applications select_applications {} + +# Local variables: +# mode: tcl +# tcl-indent-level: 4 +# indent-tabs-mode: nil +# End: