Index: openacs-4/contrib/packages/cop-ui/www/ratings/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/cop-ui/www/ratings/index.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/packages/cop-ui/www/ratings/index.tcl	28 Mar 2004 21:17:11 -0000	1.1
+++ openacs-4/contrib/packages/cop-ui/www/ratings/index.tcl	7 May 2004 17:25:40 -0000	1.2
@@ -32,7 +32,7 @@
     }
     object_title {
         label {Item}
-        display_template {@ratings.object_title@}
+        display_template {<a href="/o/@ratings.object_id@">@ratings.object_title@</a>}
     }
 }
 
@@ -61,12 +61,15 @@
         owner_id {}
     } 
 
+set node_id [ad_conn node_id]
+set packages [cop::util::packages -node_id $node_id]
 
 set icons [cop::rating::icon_base]
 db_multirow -extend {rating_img object_ratings_url rating} ratings ratings "
-    SELECT r.rating_ave, to_char(r.rated_on,'YYYY-MM-DD HH24:MI') as rated_on, o.title as object_title, r.object_one, r.ratings, r.rating_sum, r.rating_ave
+    SELECT o.object_id,r.rating_ave, to_char(r.rated_on,'YYYY-MM-DD HH24:MI') as rated_on, o.title as object_title, r.object_one, r.ratings, r.rating_sum, r.rating_ave
       FROM cop_rating_aggregates r, acs_objects o
      WHERE o.object_id = r.object_one
+       and o.package_id in ([join $packages ,])
    [template::list::orderby_clause -orderby -name "ratings"]" {
        set rating [format %.1f [expr {(round(2.0*$rating_ave))/2.0}]]
        set rating_img "<img src=\"$icons/s-$rating.gif\" alt=\"$rating\">"