Index: openacs-4/packages/dotlrn/www/preferences.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/Attic/preferences.adp,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn/www/preferences.adp	21 Jan 2002 06:30:11 -0000	1.3
+++ openacs-4/packages/dotlrn/www/preferences.adp	21 Jan 2002 08:17:27 -0000	1.4
@@ -15,5 +15,5 @@
 <p></p>
 
 <blockquote>
-  <include src="my-communities" title="My Groups">
+  <include src="my-communities" title="Groups" referer="preferences">
 </blockquote>
Index: openacs-4/packages/dotlrn/www/spam.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/spam.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/www/spam.tcl	21 Jan 2002 07:12:02 -0000	1.2
+++ openacs-4/packages/dotlrn/www/spam.tcl	21 Jan 2002 08:17:27 -0000	1.3
@@ -110,6 +110,7 @@
     regsub -all {<community_url>} $message $community_url message
 
     # loop through all the recepeints and send them the spam
+    set errors ""
     db_foreach select_recepient_info {
         select parties.email,
                decode(acs_objects.object_type,
@@ -149,7 +150,6 @@
         regsub -all {<last_name>} $message $last_name message
 
         # send the email
-        set errors ""
         if {[catch {ns_sendmail $email $sender_email $subject $message} errmsg]} {
             append errors "
 <p>
@@ -167,11 +167,15 @@
     if {![empty_string_p $errors]} {
         set error_subject "There were errors spamming community \"$community_name\""
         set error_message "
-There were errors spamming community \"$community_name\". The attempted
-message was:
+<p>
+There were errors spamming community \"$community_name\".
+</p>
 
-<p></p>
+<p>
+The attempted message was:
+</p>
 
+<p>
 <table width=\"50%\">
   <tr>
     <th align=\"left\">Subject</th>
@@ -182,10 +186,15 @@
     <td align=\"left\">$message</td>
   </tr>
 </table>
+</p>
 
-<p></p>
+<p>
+The errors were:
+</p>
 
-The errors were: $errors
+<p>
+$errors
+</p>
         "
 
         if {[catch {ns_sendmail $sender_email $sender_email $error_subject $error_message} errmsg]} {