Index: openacs-4/packages/attendance/www/admin/spam.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/attendance/www/admin/spam.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/attendance/www/admin/spam.adp	16 Jul 2005 13:06:32 -0000	1.1
+++ openacs-4/packages/attendance/www/admin/spam.adp	20 Jul 2005 09:33:15 -0000	1.2
@@ -3,5 +3,11 @@
 <property name="context">"@context;noquote@"</property>
 
 Select the users to whom you would like to send an email.
+<br /><br />
 
-<listtemplate name="email_members"></listtemplate>
\ No newline at end of file
+<form name="mark_attendance" action="@community_url@/spam" method="POST">
+	<input type="hidden" name="referer" value="@return_url@">
+	<listtemplate name="email_members"></listtemplate>
+	<br />
+	<input type="submit" value="Continue"> <input type=button onclick="history.back()" value="Cancel">
+</form>
Index: openacs-4/packages/attendance/www/admin/spam.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/attendance/www/admin/spam.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/attendance/www/admin/spam.tcl	16 Jul 2005 13:06:32 -0000	1.1
+++ openacs-4/packages/attendance/www/admin/spam.tcl	20 Jul 2005 09:33:15 -0000	1.2
@@ -24,47 +24,33 @@
 
 template::list::create \
     -name email_members \
-    -key user_id \
+    -key recipients \
     -multirow email_members \
-    -bulk_actions { 
-	"Email Checked" "" "Send Email to Checked Attendees"
-    } \
     -elements {
 	member_name { 
 		label "Name"
 	}
 	attendance {
 		label "Attendance"
 	}
+	send_email {
+		label "Send Email"
+	    	display_template { <input type=checkbox name=\"recipients\" value=\"@email_members.user_id@\">  }
+	}
      }
 
-template::multirow create email_members user_id member_name attendance
+template::multirow create email_members user_id member_name attendance send_email
 
 set users [dotlrn_community::list_users  $community_id]
 set cal_item_id $item_id
 
 foreach user $users {	
 	if { [db_0or1row "checkattendance" "select user_id from attendance_cal_item_map where cal_item_id = :cal_item_id and user_id = [ns_set get $user user_id]"] } {
-		set attendance "Present"
+		set attendance "Present"		
 	} else {
 		set attendance "Absent"
 	}
-	template::multirow append email_members "[ns_set get $user user_id]" "[ns_set get $user first_names] [ns_set get $user last_name]" "$attendance"
+	template::multirow append email_members "[ns_set get $user user_id]" "[ns_set get $user first_names] [ns_set get $user last_name]" "$attendance" ""
 }
 
-# set query
-
-#if { $who == "present" } {
-#	set query "select user_id from attendance_cal_item_map where cal_item_id=:cal_item_id"
-#}
-
-#set recipients "?recipients="
-
-#db_foreach "get_ids" $query {
-#	append recipients "$user_id,"
-#}
-
-#append spam_url $recipients
-#append spam_url "&recipients_str=,&referrer=$return_url"
-
 #ad_returnredirect $spam_url