Index: openacs-4/contrib/packages/mailing-lists/www/madmin/user-subscribe-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/mailing-lists/www/madmin/Attic/user-subscribe-2.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/packages/mailing-lists/www/madmin/user-subscribe-2.tcl	23 Apr 2006 11:07:54 -0000	1.1.2.1
@@ -0,0 +1,29 @@
+ad_page_contract {
+
+    Unsubscribe the users passed in from the subscription list in the multirow
+} {
+
+    user_id:integer,multiple
+    list_id:integer
+}
+
+
+set package_id [ad_conn package_id]
+set sender_id [ad_conn user_id]
+
+permission::require_permission -object_id $list_id -privilege admin
+
+db_1row get_list_mail_data {}
+set unsubscribe_link "[ad_url][ad_conn package_url]"
+
+# subscribe user. check if user already has a map entry
+foreach user $user_id {
+    if {[mailing_list::add_user -list_id $list_id -user_id $user -confirmed_p t]} {
+	# user is newly added to this list
+	# now send confirmation message to user if requested
+	mailing_list::util::send_mail -user_id $user_id -from_email [party::email -party_id $sender_id] -subject $welcome_subject -body $welcome_body -mime_type $welcome_mime_type -charset $mime_charset -link "$unsubscribe_link?[export_url_vars user_id]" -new_password $user_password
+    }
+}
+    
+ad_returnredirect "list-subscribers?[export_url_vars list_id]"
+