Index: openacs-4/packages/evaluation/www/admin/grades/distribution-edit-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/www/admin/grades/distribution-edit-3.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/evaluation/www/admin/grades/distribution-edit-3.tcl	8 Aug 2006 21:26:42 -0000	1.2
+++ openacs-4/packages/evaluation/www/admin/grades/distribution-edit-3.tcl	27 Oct 2014 16:41:26 -0000	1.3
@@ -3,7 +3,7 @@
 ad_page_contract { 
     Bulk edit a set tasks
 } { 
-    grade_id:integer,notnull
+    grade_id:naturalnum,notnull
     {equal_grade 0}
     {grade_sum 0}
     {diff 0}
@@ -15,15 +15,15 @@
 set i 0
 
 if { $tasks_counter > 0} {
-    set equal_grade [format %0.2f [expr 100.00/$tasks_counter]]
+    set equal_grade [format %0.2f [expr {100.00/$tasks_counter}]]
 }
 
 
 foreach task $tasks { 
     incr i
-    set grade_sum [expr $grade_sum + $equal_grade]
-    if { [string equal $tasks_counter $i] } {
-	set diff [expr 100-$grade_sum]
+    set grade_sum [expr {$grade_sum + $equal_grade}]
+    if {$tasks_counter eq $i} {
+	set diff [expr {100-$grade_sum}]
     }
     set aweight [format %0.2f [expr ($equal_grade + $diff)]]
     set apoints [format %0.2f [expr ($aweight*$grade_weight)/100.0]]