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.4 -r1.4.2.5
--- openacs-4/packages/ratings/tcl/rating-procs.tcl 1 Aug 2005 19:07:50 -0000 1.4.2.4
+++ openacs-4/packages/ratings/tcl/rating-procs.tcl 1 Aug 2005 21:16:56 -0000 1.4.2.5
@@ -331,14 +331,25 @@
append output "${title}:
"
# We create the options using the values specified when the dimension was created.
for { set i $range_low } { $i <= $range_high } { incr i } {
- append output ""
} else {
append output ">"
- }
- append output "[ratings::icon::html_fragment -icon_key stars -rating $i]
"
+ }
+ set range_div [expr $i / 5]
+ if { ![string equal $range_div 0] } {
+ for { set j 0 } { $j < [expr $i / 5] } { incr j } {
+ append output "[ratings::icon::html_fragment -icon_key stars -rating 5]"
+ }
+ set mod_range [expr $i % 5]
+ if { ![string equal $mod_range 0] } {
+ append output "[ratings::icon::html_fragment -icon_key stars -rating $mod_range]
"
+ }
+ } else {
+ append output "[ratings::icon::html_fragment -icon_key stars -rating $i]
"
+ }
}
append output "
"
append output "