Index: openacs-4/packages/dotlrn/www/spam.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/spam.tcl,v
diff -u -r1.24 -r1.25
--- openacs-4/packages/dotlrn/www/spam.tcl	13 Jan 2005 13:57:21 -0000	1.24
+++ openacs-4/packages/dotlrn/www/spam.tcl	8 Aug 2006 21:26:24 -0000	1.25
@@ -53,10 +53,15 @@
 	    set recipients_p 1
 	} elseif { [info exists recipients_str] && ![empty_string_p $recipients_str] } {
 	    set recipients_p 1
-	}
+	} 
 	
 	if { $recipients_p == 0} {
-	    ad_complain "[_ dotlrn.Must_specify_recipients]"
+	    if {[exists_and_not_null community_id]} {
+		# This is call using the old URL reference
+		ad_returnredirect "spam-recipients?referer=$referer"
+	    } else {
+		ad_complain "[_ dotlrn.Must_specify_recipients]"
+	    }
 	}
     }
     if_bad_combination {
@@ -68,13 +73,13 @@
 	}
     }
 } -properties {
-    context_bar:onevalue
+    context:onevalue
     portal_id:onevalue
 }
 
 
 set spam_name [bulk_mail::parameter -parameter PrettyName -default [_ dotlrn.Spam_]]
-set context_bar [list [list $referer [_ dotlrn.Admin]] "$spam_name [_ dotlrn.Community]"]
+set context [list [list $referer [_ dotlrn.Admin]] "$spam_name [_ dotlrn.Community]"]
 
 if {[empty_string_p $community_id]} {
     set community_id [dotlrn_community::get_community_id]