Index: openacs-4/contrib/packages/cop-base/lib/cop-footer.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/cop-base/lib/cop-footer.adp,v
diff -u -r1.2 -r1.3
--- openacs-4/contrib/packages/cop-base/lib/cop-footer.adp	31 Mar 2004 21:15:22 -0000	1.2
+++ openacs-4/contrib/packages/cop-base/lib/cop-footer.adp	2 Apr 2004 01:50:49 -0000	1.3
@@ -1,7 +1,7 @@
 <div id="km" style="border: solid 4px #7AA9D2; background: #FFF8D8; padding: 2px; margin: 7px; clear: both;">
-  object: @displayed_object_id@ package_id: @cur_pkg@ acs_obj.package_id: @obj_pkg@ name: @tname@<br />
+  <!-- object: @displayed_object_id@ package_id: @cur_pkg@ acs_obj.package_id: @obj_pkg@ name: @tname@<br />
   acs_object.title: @obj_title@<br />
-  acs_object__name: @acs_name@<br />
+  acs_object__name: @acs_name@<br /> -->
 
   <div style="border: 1px solid red; clear: both; margin: 3px;">
     <div style="margin: 8px;">
@@ -73,7 +73,7 @@
 
   <div style="border: 1px solid blue; padding: 5px; margin: 3px;">
     <div style="margin: 8px;">
-      offsite links, Search, RSS, notifications.
+      Todo: offsite links, RSS, notifications, rate the antecedent related item etc.
     </div>
   </div>
 
Index: openacs-4/contrib/packages/cop-base/www/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/cop-base/www/index.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/packages/cop-base/www/index.adp	31 Mar 2004 21:15:22 -0000	1.1
+++ openacs-4/contrib/packages/cop-base/www/index.adp	2 Apr 2004 01:50:49 -0000	1.2
@@ -2,3 +2,7 @@
   <property name="title">CoP Central</property>
 
   <a href="admin/community-new">Create a new community</a>
+<br>
+<br>
+<br>
+  <a href="admin/acl">Load the APLAWS categories</a>
Index: openacs-4/contrib/packages/cop-ui/www/ratings/ratings.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/cop-ui/www/ratings/ratings.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/packages/cop-ui/www/ratings/ratings.adp	28 Mar 2004 21:17:11 -0000	1.1
+++ openacs-4/contrib/packages/cop-ui/www/ratings/ratings.adp	2 Apr 2004 01:50:49 -0000	1.2
@@ -2,4 +2,6 @@
   <property name="title">@title@</property>
   <property name="context">@context@</property>
 
+<if @object_id@ not nil><p><a href="/o/@object_id@" class="button">View item</a></p></if>
+<if @owner_url@ not nil><p><a href="@owner_url@" class="button">@owner_name@'s member page</a></p></if>
   <listtemplate name="ratings"></listtemplate>
\ No newline at end of file
Index: openacs-4/contrib/packages/cop-ui/www/ratings/ratings.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/cop-ui/www/ratings/ratings.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/packages/cop-ui/www/ratings/ratings.tcl	28 Mar 2004 21:17:11 -0000	1.1
+++ openacs-4/contrib/packages/cop-ui/www/ratings/ratings.tcl	2 Apr 2004 01:50:49 -0000	1.2
@@ -25,6 +25,7 @@
 
 if {![empty_string_p $owner_id]} {
     set owner_name [db_string owner_name {select person__name(:owner_id);}]
+    set owner_url [acs_community_member_url -user_id $user_id]
     append title " by $owner_name"
     append clause "and r.owner_id = :owner_id\n"
 }
@@ -57,15 +58,16 @@
 if {[empty_string_p $object_id]} {
     lappend elements object_title {
         label {Item}
-        display_template {@ratings.object_title@ (<a href="@ratings.object_ratings_url@">ratings</a>)}
+        display_template {<a href="/o/@ratings.object_one@">@ratings.object_title@</a> (<a href="@ratings.object_ratings_url@">ratings</a>)}
     }
 }
 
+if { 0 } { 
     lappend elements extra {
         label {Debug}
         display_template {o.title:@ratings.obj_title@ url:@ratings.url_one@ type:@ratings.object_type@}
     }
-
+}
 if {$admin_p} { 
     set bulk [list     "Delete ratings" delete]
 } else { 
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
    }