Index: openacs-4/packages/acs-subsite/www/admin/rel-types/rels-list-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-types/rels-list-oracle.xql,v
diff -u -N
--- openacs-4/packages/acs-subsite/www/admin/rel-types/rels-list-oracle.xql 15 May 2001 16:59:01 -0000 1.1
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,24 +0,0 @@
-
-
-
- oracle8.1.6
-
-
-
-
- select r.rel_id, acs_object.name(r.object_id_one) || ' and ' || acs_object.name(r.object_id_two) as name
- from acs_rels r, acs_object_party_privilege_map perm,
- app_group_distinct_rel_map m
- where perm.object_id = r.rel_id
- and perm.party_id = :user_id
- and perm.privilege = 'read'
- and r.rel_type = :rel_type
- and m.rel_id = r.rel_id
- and m.package_id = :package_id
- order by lower(name)
-
-
-
-
-
-
Index: openacs-4/packages/acs-subsite/www/admin/rel-types/rels-list-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-types/rels-list-postgresql.xql,v
diff -u -N
--- openacs-4/packages/acs-subsite/www/admin/rel-types/rels-list-postgresql.xql 7 Aug 2017 23:47:58 -0000 1.4
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,23 +0,0 @@
-
-
-
- postgresql7.1
-
-
-
-
- select r.rel_id, acs_object__name(r.object_id_one) || ' and ' || acs_object__name(r.object_id_two) as name
- from acs_rels r, app_group_distinct_rel_map m
- where
- and r.rel_type = :rel_type
- and m.rel_id = r.rel_id
- and m.package_id = :package_id
- and acs_permission__permission_p(r.rel_id, :user_id, 'read')
-
- order by lower(acs_object__name(r.object_id_one) || ' and ' || acs_object__name(r.object_id_two))
-
-
-
-
-
-
Index: openacs-4/packages/acs-subsite/www/admin/rel-types/rels-list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-types/rels-list.tcl,v
diff -u -N -r1.6 -r1.6.2.1
--- openacs-4/packages/acs-subsite/www/admin/rel-types/rels-list.tcl 21 Jan 2018 00:35:29 -0000 1.6
+++ openacs-4/packages/acs-subsite/www/admin/rel-types/rels-list.tcl 3 Sep 2019 11:28:56 -0000 1.6.2.1
@@ -19,7 +19,10 @@
set user_id [ad_conn user_id]
set package_id [ad_conn package_id]
-set context [list [list "" "Relationship types"] [[export_vars -base one rel_type] "One type"] "Relations"]
+set context [list \
+ [list "" "Relationship types"] \
+ [list [export_vars -base one rel_type] "One type"] \
+ "Relations"]
if { ![db_0or1row select_pretty_name {
select t.pretty_name as rel_type_pretty_name
@@ -32,7 +35,16 @@
ad_script_abort
}
-db_multirow rels rels_select {}
+db_multirow rels rels_select {
+ select r.rel_id,
+ acs_object.name(r.object_id_one) || ' and ' || acs_object.name(r.object_id_two) as name
+ from acs_rels r, app_group_distinct_rel_map m
+ where r.rel_type = :rel_type
+ and m.rel_id = r.rel_id
+ and m.package_id = :package_id
+ and acs_permission.permission_p(r.rel_id, :user_id, 'read')
+ order by lower(acs_object.name(r.object_id_one) || ' and ' || acs_object.name(r.object_id_two))
+}
ad_return_template