Index: openacs-4/packages/new-portal/www/element-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/www/Attic/element-add-2.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/new-portal/www/element-add-2.tcl	3 Oct 2001 20:11:45 -0000	1.9
+++ openacs-4/packages/new-portal/www/element-add-2.tcl	5 Oct 2001 02:35:10 -0000	1.10
@@ -12,13 +12,13 @@
 # XXX permisson read filter on ds_id?
 
 set ds_id $datasource_id
-set layout_id [portal_get_layout_id $portal_id]
+set layout_id [portal::get_layout_id $portal_id]
 
 # this is required to execute the query that initializes the
 # datastructures used by portal_region_immutable_p
-portal_get_regions $layout_id
+portal::get_regions $layout_id
 
-if { [portal_region_immutable_p $region] && ! [portal_default_p $portal_id] } {
+if { [portal::region_immutable_p $region] } {
     ad_return_complaint 1 "You don't have permission to edit this region."
     return
 }
Index: openacs-4/packages/new-portal/www/element-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/www/Attic/element-add.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/new-portal/www/element-add.tcl	2 Oct 2001 15:31:53 -0000	1.2
+++ openacs-4/packages/new-portal/www/element-add.tcl	5 Oct 2001 02:34:55 -0000	1.3
@@ -14,13 +14,13 @@
 # descriptions and stuff.  (at least, on the JavaScript-heavy version)
 # also, a "show me all the elements, even the ones I'm using" button.
 
-set layout_id [portal_get_layout_id $portal_id]
+set layout_id [portal::get_layout_id $portal_id]
 
 # this is required to execute the query that initializes the
 # datastructures used by portal_region_immutable_p
-portal_get_regions $layout_id
+portal::get_regions $layout_id
 
-if { [portal_region_immutable_p $region] } {
+if { [portal::region_immutable_p $region] } {
     ad_return_complaint 1 "You don't have permission to edit this region."
     return
 }
Index: openacs-4/packages/new-portal/www/element-layout-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/www/Attic/element-layout-2.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/new-portal/www/element-layout-2.tcl	29 Sep 2001 00:11:29 -0000	1.2
+++ openacs-4/packages/new-portal/www/element-layout-2.tcl	5 Oct 2001 02:35:03 -0000	1.3
@@ -18,10 +18,10 @@
     ad_return_complaint 1 "No mode.  (region $region, mode $mode, match $match, query [ad_conn query])"
 } else { ns_log Notice "AKS: mode is $mode" }
 
-set layout_id [portal_get_layout_id $portal_id]
-portal_get_regions $layout_id
+set layout_id [portal::get_layout_id $portal_id]
+portal::get_regions $layout_id
 
-if { [portal_region_immutable_p $region] } {
+if { [portal::region_immutable_p $region] } {
     ad_return_complaint 1 "You don't have permission to manipulate this region."
     return
 }