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.5 -r1.4.2.6
--- openacs-4/packages/ratings/tcl/rating-procs.tcl 1 Aug 2005 21:16:56 -0000 1.4.2.5
+++ openacs-4/packages/ratings/tcl/rating-procs.tcl 1 Aug 2005 21:44:34 -0000 1.4.2.6
@@ -338,18 +338,7 @@
} else {
append output ">"
}
- 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 "[ratings::icon::html_fragment -icon_key stars -rating $i]
"
}
append output "
"
append output "