Index: openacs-4/packages/ratings/tcl/rating-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ratings/tcl/rating-procs.tcl,v
diff -u -r1.4.2.2 -r1.4.2.3
--- openacs-4/packages/ratings/tcl/rating-procs.tcl 29 Jul 2005 23:08:24 -0000 1.4.2.2
+++ openacs-4/packages/ratings/tcl/rating-procs.tcl 1 Aug 2005 06:13:09 -0000 1.4.2.3
@@ -344,6 +344,7 @@
append output "
| "
incr count
}
+
append output ""
return $output
}
@@ -371,7 +372,7 @@
}
ad_proc -public ratings::get_average {
- -context_object_id:required
+ {-context_object_id ""}
-object_id:required
{-dimension_key ""}
} {
@@ -388,7 +389,11 @@
} {
set extra_query ""
if { ![empty_string_p $dimension_key] } {
- set extra_query "and dimension_id = ( select dimension_id from rating_dimensions where dimension_key = '$dimension_key' )"
+ append extra_query "and dimension_id = ( select dimension_id from rating_dimensions where dimension_key = '$dimension_key' )"
}
+ if { ![empty_string_p $context_object_id] } {
+ append extra_query "and context_object_id = :context_object_id"
+ }
+
return [db_string get_average_rating " "]
}
Index: openacs-4/packages/ratings/tcl/rating-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ratings/tcl/Attic/rating-procs.xql,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/ratings/tcl/rating-procs.xql 29 Jul 2005 23:09:10 -0000 1.1.2.1
+++ openacs-4/packages/ratings/tcl/rating-procs.xql 1 Aug 2005 06:13:09 -0000 1.1.2.2
@@ -32,8 +32,6 @@
ratings
where
object_id = :object_id
- and
- context_object_id = :context_object_id
$extra_query