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 -r1.1.2.3 -r1.1.2.4 --- openacs-4/packages/dotlrn/www/spam-recipients.tcl 2 Aug 2004 10:14:04 -0000 1.1.2.3 +++ openacs-4/packages/dotlrn/www/spam-recipients.tcl 19 Aug 2005 10:17:24 -0000 1.1.2.4 @@ -5,8 +5,9 @@ } set spam_name [bulk_mail::parameter -parameter PrettyName -default 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 { ![exists_and_not_null community_id] } { set community_id [dotlrn_community::get_community_id] }