Index: openacs-4/packages/dotlrn/www/deregister-self-confirm.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/deregister-self-confirm.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dotlrn/www/deregister-self-confirm.tcl	3 Jan 2007 02:43:15 -0000	1.1
+++ openacs-4/packages/dotlrn/www/deregister-self-confirm.tcl	14 Jul 2009 10:27:13 -0000	1.2
@@ -6,25 +6,32 @@
     {referer "./"}
 }
 
-set page_title [_ dotlrn.Confirm_Drop]
-set context [list $page_title]
+set doc(title) [_ dotlrn.Confirm_Drop]
+set context [list $doc(title)]
 
+# community name is used in the confirm_message
 set community_name [dotlrn_community::get_community_name [dotlrn_community::get_community_id]$community_id]
-set confirm_message_label "[_ dotlrn.Are_you_sure_you_want_to_drop]"
+
 ad_form -name deregister-self-confirm \
     -export {user_id community_id referer} \
     -has_submit 1 \
     -form {
-	{confirm_message:text(inform) {label $confirm_message_label}}
-	{drop_btn:text(submit) {label "[_ dotlrn.Drop_Membership]"}}
-	{cancel_btn:text(submit) {label "[_ acs-kernel.common_Cancel]"}}
+        {confirm_message:text(inform) 
+            {label "[_ dotlrn.Are_you_sure_you_want_to_drop]"}
+        }
+        {drop_btn:text(submit) 
+            {label "[_ dotlrn.Drop_Membership]"}
+        }
+        {cancel_btn:text(submit) 
+            {label "[_ acs-kernel.common_Cancel]"}
+        }
     } -on_submit {
-	if {[info exists drop_btn] && $drop_btn ne ""} {
-	    ad_returnredirect [export_vars -base deregister {user_id community_id referer}]
-	} else {
-	    ad_returnredirect $referer
-	}
-	ad_script_abort
+        if {[info exists drop_btn] && $drop_btn ne ""} {
+            ad_returnredirect [export_vars -base deregister {user_id community_id referer}]
+        } else {
+            ad_returnredirect $referer
+        }
+        ad_script_abort
     }
 
-ad_return_template
\ No newline at end of file
+ad_return_template