Index: openacs-4/packages/dotlrn/www/all-communities.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/Attic/all-communities.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/www/all-communities.tcl	21 Jan 2002 06:30:11 -0000	1.2
+++ openacs-4/packages/dotlrn/www/all-communities.tcl	23 Jan 2002 01:15:10 -0000	1.3
@@ -9,7 +9,6 @@
     context_bar:onevalue
 }
 
-set portal_id ""
 set context_bar {{All Communities}}
 
 ad_return_template
Index: openacs-4/packages/dotlrn/www/applets.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/applets.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/dotlrn/www/applets.tcl	23 Jan 2002 00:15:43 -0000	1.4
+++ openacs-4/packages/dotlrn/www/applets.tcl	23 Jan 2002 01:15:10 -0000	1.5
@@ -6,7 +6,7 @@
     @version $Id$
 } -query {
 }
-set portal_id ""
+
 set context_bar {{"one-community-admin" Admin} {Manage Applets}}
 
 ad_return_template
Index: openacs-4/packages/dotlrn/www/community-member.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/community-member.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/www/community-member.tcl	23 Jan 2002 00:15:43 -0000	1.2
+++ openacs-4/packages/dotlrn/www/community-member.tcl	23 Jan 2002 01:15:10 -0000	1.3
@@ -28,7 +28,6 @@
     user_contributions:multirow
 }
 
-set portal_id ""
 set verified_user_id [ad_verify_and_get_user_id]
 
 # XXX add portraits to this page
Index: openacs-4/packages/dotlrn/www/community-type.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/community-type.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/dotlrn/www/community-type.tcl	23 Jan 2002 00:15:43 -0000	1.4
+++ openacs-4/packages/dotlrn/www/community-type.tcl	23 Jan 2002 01:15:10 -0000	1.5
@@ -7,8 +7,6 @@
 } -query {
 }
 
-set portal_id ""
-
 # Check that this is a community type
 if {[ad_parameter community_type_level_p] != 1} {
     ad_returnredirect "./"
Index: openacs-4/packages/dotlrn/www/community.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/Attic/community.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/dotlrn/www/community.tcl	23 Jan 2002 00:15:43 -0000	1.4
+++ openacs-4/packages/dotlrn/www/community.tcl	23 Jan 2002 01:15:10 -0000	1.5
@@ -6,10 +6,6 @@
 } -query {
 }
 
-set portal_id ""
-ns_log Notice "BEN TEST!"
-
-
 # Check that this is a community type
 if {[ad_parameter community_level_p] != 1} {
     ns_returnredirect "./"
Index: openacs-4/packages/dotlrn/www/configure-element.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/configure-element.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/dotlrn/www/configure-element.tcl	23 Jan 2002 00:15:43 -0000	1.5
+++ openacs-4/packages/dotlrn/www/configure-element.tcl	23 Jan 2002 01:15:10 -0000	1.6
@@ -10,8 +10,6 @@
     op:notnull
 }
 
-set portal_id ""
-
 # Check if this is a community type level thing
 if {[ad_parameter community_type_level_p] == 1} {
     ad_returnredirect "one-community-type"
Index: openacs-4/packages/dotlrn/www/index-not-a-user.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/index-not-a-user.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/www/index-not-a-user.tcl	21 Jan 2002 06:30:11 -0000	1.2
+++ openacs-4/packages/dotlrn/www/index-not-a-user.tcl	23 Jan 2002 01:15:10 -0000	1.3
@@ -13,6 +13,5 @@
 
 set admin_p [dotlrn::admin_p]
 set admin_url [dotlrn::get_url]/admin
-set portal_id ""
 
 ad_return_template
Index: openacs-4/packages/dotlrn/www/member-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/member-add-2.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/dotlrn/www/member-add-2.tcl	23 Jan 2002 00:15:43 -0000	1.4
+++ openacs-4/packages/dotlrn/www/member-add-2.tcl	23 Jan 2002 01:15:10 -0000	1.5
@@ -11,7 +11,7 @@
 } -properties {
     roles:multirow
 }
-set portal_id ""
+
 set community_id [dotlrn_community::get_community_id]
 
 dotlrn::require_user_admin_community $community_id
Index: openacs-4/packages/dotlrn/www/member-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/member-add.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/dotlrn/www/member-add.tcl	23 Jan 2002 00:15:43 -0000	1.4
+++ openacs-4/packages/dotlrn/www/member-add.tcl	23 Jan 2002 01:15:10 -0000	1.5
@@ -9,7 +9,7 @@
     search_text
     {referer "one-community-admin"}
 }
-set portal_id ""
+
 set community_id [dotlrn_community::get_community_id]
 
 # Just search
Index: openacs-4/packages/dotlrn/www/members.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/members.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/dotlrn/www/members.tcl	22 Jan 2002 23:45:22 -0000	1.4
+++ openacs-4/packages/dotlrn/www/members.tcl	23 Jan 2002 01:15:10 -0000	1.5
@@ -7,7 +7,6 @@
 } -query {
 }
 
-set portal_id ""
 set context_bar {{"one-community-admin" Admin} {Manage Members}}
 
 ad_return_template
Index: openacs-4/packages/dotlrn/www/one-community-admin.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/one-community-admin.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/dotlrn/www/one-community-admin.tcl	23 Jan 2002 00:15:43 -0000	1.14
+++ openacs-4/packages/dotlrn/www/one-community-admin.tcl	23 Jan 2002 01:15:10 -0000	1.15
@@ -15,8 +15,6 @@
     users:multirow
 }
 
-set portal_id ""
-
 set community_id [dotlrn_community::get_community_id]
 
 # Permissions
Index: openacs-4/packages/dotlrn/www/one-community-type.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/one-community-type.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/dotlrn/www/one-community-type.tcl	23 Jan 2002 00:15:43 -0000	1.12
+++ openacs-4/packages/dotlrn/www/one-community-type.tcl	23 Jan 2002 01:15:10 -0000	1.13
@@ -17,7 +17,6 @@
     communities_title:onevalue
     title:onevalue
 }
-set portal_id ""
 
 # Check that this is a community type
 if {[ad_parameter community_type_level_p] != 1} {
Index: openacs-4/packages/dotlrn/www/preferences.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/Attic/preferences.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/dotlrn/www/preferences.tcl	23 Jan 2002 00:15:43 -0000	1.5
+++ openacs-4/packages/dotlrn/www/preferences.tcl	23 Jan 2002 01:15:10 -0000	1.6
@@ -13,7 +13,7 @@
     admin_p:onevalue
     admin_url:onevalue
 }
-set portal_id ""
+
 # Make sure user is logged in
 set user_id [ad_maybe_redirect_for_registration]
 
Index: openacs-4/packages/dotlrn/www/user-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/user-add-2.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/www/user-add-2.tcl	21 Jan 2002 06:30:12 -0000	1.2
+++ openacs-4/packages/dotlrn/www/user-add-2.tcl	23 Jan 2002 01:15:10 -0000	1.3
@@ -23,7 +23,6 @@
     administration_name:onevalue
 }
 
-set portal_id ""
 set context_bar {{"one-community-admin" Admin} {Add User}}
 
 set admin_user_id [ad_verify_and_get_user_id]
Index: openacs-4/packages/dotlrn/www/user-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/user-add.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/dotlrn/www/user-add.tcl	21 Jan 2002 06:30:12 -0000	1.4
+++ openacs-4/packages/dotlrn/www/user-add.tcl	23 Jan 2002 01:15:10 -0000	1.5
@@ -15,8 +15,6 @@
     context_bar:onevalue
 }
 
-set portal_id ""
-
 set user_id [ad_maybe_redirect_for_registration]
 
 if {![dotlrn::admin_p -user_id $user_id]} {