Index: openacs-4/packages/assessment/www/asm-admin/send-mail.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/send-mail.tcl,v
diff -u -r1.3.6.1 -r1.3.6.2
--- openacs-4/packages/assessment/www/asm-admin/send-mail.tcl	7 Jul 2007 00:27:51 -0000	1.3.6.1
+++ openacs-4/packages/assessment/www/asm-admin/send-mail.tcl	7 Jul 2007 01:13:11 -0000	1.3.6.2
@@ -10,7 +10,7 @@
 
 } -query {
     {assessment_id ""}
-    {session_id ""}
+    {session_id:multiple ""}
     {return_url ""}
 } -properties {
     context:onevalue
@@ -39,6 +39,9 @@
 }
 
 if {[llength $session_id]} {
+    if {[llength $session_id] == 1} {
+	set session_id [split [lindex $session_id 0]]
+    }
     set options [db_list_of_lists get_session_user_options "select u.last_name || ', ' || u.first_names,user_id  from acs_users_all u, as_sessions s where s.session_id in ([template::util::tcl_to_sql_list $session_id]) and u.user_id = s.subject_id"]
     ad_form -extend -name send-mail -form {
         {user_ids:text(checkbox) {label "[_ assessment.Send_mail_to_the_selected_users]"} {options $options}}
@@ -117,6 +120,4 @@
     ad_script_abort
 
     
-}
-
-m
\ No newline at end of file
+}
\ No newline at end of file