Index: openacs-4/packages/forums/www/admin/subscribe-others.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/admin/subscribe-others.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/forums/www/admin/subscribe-others.tcl	7 Aug 2017 23:48:12 -0000	1.5
+++ openacs-4/packages/forums/www/admin/subscribe-others.tcl	24 Apr 2018 14:28:56 -0000	1.6
@@ -1,5 +1,5 @@
 ad_page_contract {
-    
+
     Subscribe a list of email addresses to a forum
 
     @author Jade Rubick (jade@rubick.com)
@@ -44,9 +44,9 @@
 set member_html ""
 foreach member_id $member_ids {
     if {$member_id in $subscribed_members_list} {
-	set checked_html "checked"
+        set checked_html "checked"
     } else {
-	set checked_html ""
+        set checked_html ""
     }
 
     append member_html "<input type=\"checkbox\" name=\"subscriber_ids\" value=\"$member_id\" id=\"subscriber,$member_id\" $checked_html> [party::name -party_id $member_id]<br>\n"
@@ -58,8 +58,7 @@
 set intervals [notification::get_intervals -type_id $type_id]
 set interval_html "<select name=\"interval\">"
 foreach interval $intervals {
-    set iname [lindex $interval 0]
-    set iid   [lindex $interval 1]
+    lassign $interval iname iid
     append interval_html "<option value=\"$iid\">$iname</option>"
 }
 append interval_html "</select>"
@@ -68,8 +67,7 @@
 
 set delivery_html "<select name=\"delivery_method\">"
 foreach dm $delivery_methods {
-    set dname [lindex $dm 0]
-    set did   [lindex $dm 1]
+    lassign $dm dname did
     append delivery_html "<option value=\"$did\">$dname</option>"
 }
 append delivery_html "</select>"