Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/acs-subsite/lib/applications-oracle.xql'. Fisheye: No comparison available. Pass `N' to diff? Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/acs-subsite/lib/applications-postgresql.xql'. Fisheye: No comparison available. Pass `N' to diff? 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.10.2 -r1.6.10.3 --- openacs-4/packages/acs-subsite/lib/applications.tcl 1 Jul 2016 13:47:06 -0000 1.6.10.2 +++ openacs-4/packages/acs-subsite/lib/applications.tcl 2 Jul 2016 11:51:06 -0000 1.6.10.3 @@ -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,25 +25,7 @@ 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 acs_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: