Index: openacs-4/packages/dotlrn/www/spam-recipients.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/spam-recipients.adp,v
diff -u -N -r1.8.2.1 -r1.8.2.2
--- openacs-4/packages/dotlrn/www/spam-recipients.adp	15 Feb 2007 15:42:44 -0000	1.8.2.1
+++ openacs-4/packages/dotlrn/www/spam-recipients.adp	1 Mar 2007 20:36:03 -0000	1.8.2.2
@@ -26,62 +26,17 @@
 <h3>#dotlrn.Choose_members_to_receive#</h3>
 
 <form method="post" action="spam">
-<p>
 
-
-
 <input type=checkbox name=spam_all> #dotlrn.Send_to_all#
 <p>
 #dotlrn.Send_to_the_following_roles# <p>
 @rel_types_html;noquote@
 
-<p>
-
-#dotlrn.Send_to_the_following_members#:<p>
-
-<table  width="85%" class="table-display" cellpadding="5" cellspacing="0">
-    <tr class="table-header">
-      <td>&nbsp;</td>
-      <td>#dotlrn.First_Name#</td>	
-      <td>#dotlrn.Last_Name#</td>
-      <td>#dotlrn.Email_1#</td>
-    </tr>
-<multiple name="current_members">
-<if @current_members.rownum@ odd>
-    <tr class="odd">
-</if>
-<else>
-    <tr class="even">
-</else>
-  <td>
-    <input type=checkbox name=recipients value=@current_members.user_id@>
-  </td>
-  <td><%=[acs_community_member_link -user_id  @current_members.user_id@ -label @current_members.first_names@] %></td>
-  <td><%=[acs_community_member_link -user_id  @current_members.user_id@ -label @current_members.last_name@]%></td>
-  <td>
-    <if @read_private_data_p@ eq 1>
-        <a href="mailto:@current_members.email@">
-	@current_members.email@</a>	
-    </if>
-    <else>
-	<if @my_user_id@ eq @current_members.user_id@>
-    	    <a href="mailto:@current_members.email@">
-	@current_members.email@</a>
-	</if>
-        <else>
-           &nbsp;
-        </else>
-    </else>
-   </td>
-</tr>
-</multiple>
-</table>
-
 @exported_vars;noquote@
-<center>
-<input type=submit value="#dotlrn.Compose_bulk_message#">
-</center>
+<p><input type=submit value="#dotlrn.Compose_bulk_message#"></p>
+#dotlrn.Send_to_the_following_members#:<p>
 </form>
 
-<p>
+<listtemplate name="current_members"></listtemplate>
 
+
Index: openacs-4/packages/dotlrn/www/spam-recipients.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/spam-recipients.tcl,v
diff -u -N -r1.4.6.1 -r1.4.6.2
--- openacs-4/packages/dotlrn/www/spam-recipients.tcl	15 Feb 2007 15:42:44 -0000	1.4.6.1
+++ openacs-4/packages/dotlrn/www/spam-recipients.tcl	1 Mar 2007 20:36:03 -0000	1.4.6.2
@@ -1,7 +1,7 @@
 ad_page_contract {
 } -query {
     {community_id ""}
-    {referer "control-panel"}
+    {referer ""}
 }
 
 set spam_name [bulk_mail::parameter -parameter PrettyName -default [_ dotlrn.Spam]]
@@ -50,8 +50,38 @@
 
 }
 
-db_multirow current_members select_current_members {}
+db_multirow -extend {recipients url} current_members select_current_members {} {
+    set url "/dotlrn/admin/user?user_id=$user_id"
+    set recipients $user_id
+}
 
+template::list::create \
+    -name current_members \
+    -multirow current_members \
+    -key recipients \
+    -bulk_actions {
+            "\#dotlrn.Compose_bulk_message\#" "spam" "\#dotlrn.Compose_bulk_message\#"
+    } \
+    -elements {
+        first_names {
+            label "\\#dotlrn.First_Name\\#"
+            html { width 200 }
+            link_url_eval {$url}
+        }
+        last_name {
+            label "\\#dotlrn.Last_Name\\#"
+            html { width 200 }
+            link_url_eval {$url}
+        }
+        email {
+            label "\\#dotlrn.Email_1\\#"
+            html { width 200 }
+            display_template {
+                <a href="mailto:@current_members.email@">@current_members.email@</a>
+            }
+        }
+    }
+
 set exported_vars [export_vars -form { referer }]
 
 ad_return_template
Index: openacs-4/packages/dotlrn/www/spam.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/spam.tcl,v
diff -u -N -r1.25 -r1.25.2.1
--- openacs-4/packages/dotlrn/www/spam.tcl	8 Aug 2006 21:26:24 -0000	1.25
+++ openacs-4/packages/dotlrn/www/spam.tcl	1 Mar 2007 20:36:03 -0000	1.25.2.1
@@ -24,7 +24,7 @@
     {community_id ""}
     {rel_types:multiple "" }
     {rel_types_str ""}
-    {referer "control-panel"}
+    {referer ""}
     {spam_all 0}
 } -validate {