Index: openacs-4/contrib/packages/cop-ui/www/related/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/cop-ui/www/related/index.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/contrib/packages/cop-ui/www/related/index.tcl	2 Apr 2004 01:50:49 -0000	1.2
+++ openacs-4/contrib/packages/cop-ui/www/related/index.tcl	7 May 2004 17:25:40 -0000	1.3
@@ -12,7 +12,6 @@
 
 set user_id [auth::refresh_login]
 
-
 set title "Related items"
 
 set context [list {related items}]
@@ -35,6 +34,8 @@
     }
 }
 
+set packages [cop::util::packages -node_id [ad_conn node_id]]
+
 template::list::create \
     -name related \
     -multirow related \
@@ -53,6 +54,8 @@
        and o2.object_id = ar.object_id_two
        and ar.rel_id = r.rel_id 
        and ro.object_id = r.rel_id
+       and ( o1.package_id in ([join $packages ,])
+             or o2.package_id in ([join $packages ,]))
    [template::list::orderby_clause -orderby -name "related"]" {
        set user_url [acs_community_member_url -user_id $user_id]
        set extra foo