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.1 -r1.2
--- openacs-4/contrib/packages/cop-ui/www/related/index.tcl	28 Mar 2004 21:17:11 -0000	1.1
+++ openacs-4/contrib/packages/cop-ui/www/related/index.tcl	2 Apr 2004 01:50:49 -0000	1.2
@@ -20,21 +20,19 @@
 set elements {
     object_one_title {
         label {Item1}
-        display_template {@related.object_one_title@}
+        display_template {<a href="/o/@related.object_id_one@">@related.object_one_title@</a>}
     }
     object_two_title {
         label {Item2}
-        display_template {@related.object_two_title@}
+        display_template {<a href="/o/@related.object_id_two@">@related.object_two_title@</a>}
     }
     related_on {
         label {Added}
     }
     name {
         label {By}
+	link_url_col user_url 
     }
-    extra { 
-        label {debug}
-    }
 }
 
 template::list::create \
@@ -48,13 +46,14 @@
         name { orderby {lower(person__name(ro.creation_user))}}
     }
 
-db_multirow -extend {extra} related related "
-    SELECT to_char(ro.creation_date,'YYYY-MM-DD HH24:MI') as related_on, coalesce(o1.title,'? '||o1.object_type||o1.object_id) as object_one_title, o2.title as object_two_title, person__name(ro.creation_user) as name
+db_multirow -extend {extra user_url} related related "
+    SELECT to_char(ro.creation_date,'YYYY-MM-DD HH24:MI') as related_on, coalesce(o1.title,'? '||o1.object_type||o1.object_id) as object_one_title, o2.title as object_two_title, person__name(ro.creation_user) as name, object_id_one, object_id_two
       FROM cop_rels r, acs_objects o1, acs_objects o2, acs_rels ar, acs_objects ro
      WHERE o1.object_id = ar.object_id_one
        and o2.object_id = ar.object_id_two
        and ar.rel_id = r.rel_id 
        and ro.object_id = r.rel_id
    [template::list::orderby_clause -orderby -name "related"]" {
+       set user_url [acs_community_member_url -user_id $user_id]
        set extra foo
    }