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 {