Index: openacs-4/packages/assessment/www/asm-admin/bulk-mail.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/bulk-mail.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/assessment/www/asm-admin/bulk-mail.tcl	7 Oct 2007 22:36:54 -0000	1.5
+++ openacs-4/packages/assessment/www/asm-admin/bulk-mail.tcl	27 Oct 2014 16:41:00 -0000	1.6
@@ -1,7 +1,7 @@
 ad_page_contract {
     @author Anny Flores (annyflores@viaro.net) Viaro Networks (www.viaro.net)
 } {
-    action_log_id:multiple
+    action_log_id:naturalnum,multiple
     d_assessment
     d_date
     d_interval
@@ -25,7 +25,7 @@
     append users_list "$subject_id,"
 }
 
-set users_list [string range $users_list 0 [expr [string length $users_list] -2]]
+set users_list [string range $users_list 0 [string length $users_list]-2]
 append users_list ")"
 
 set query "select email from cc_users where object_id in $users_list"