Index: openacs-4/packages/new-portal/tcl/portal-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-procs-oracle.xql,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/new-portal/tcl/portal-procs-oracle.xql	18 Feb 2002 19:54:52 -0000	1.9
+++ openacs-4/packages/new-portal/tcl/portal-procs-oracle.xql	18 Feb 2002 20:53:42 -0000	1.10
@@ -86,7 +86,7 @@
     insert into portal_element_map
     (element_id, name, pretty_name, page_id, datasource_id, region, sort_key)
     values
-    (:new_element_id, :ds_name, :ds_name, :page_id, :ds_id, :region,  
+    (:new_element_id, :ds_name, :pretty_name, :page_id, :ds_id, :region,  
     nvl((select max(sort_key) + 1 
          from portal_element_map
          where region = :region
Index: openacs-4/packages/new-portal/tcl/portal-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-procs.tcl,v
diff -u -r1.113 -r1.114
--- openacs-4/packages/new-portal/tcl/portal-procs.tcl	18 Feb 2002 19:54:52 -0000	1.113
+++ openacs-4/packages/new-portal/tcl/portal-procs.tcl	18 Feb 2002 20:53:42 -0000	1.114
@@ -1072,6 +1072,16 @@
             set config(link_hideable_p) "f"
         }
 
+        # If user has no permissions to edit this portal, cancel out
+        # some of the config parameters
+        set portal_id [db_string select_portal_id "select portal_id from portal_pages where page_id = (select page_id from portal_element_map where element_id= :element_id)"]
+
+        if {![ad_permission_p $portal_id portal_edit_portal]} {
+            set config(shadeable_p) "f"
+            set config(hideable_p) "f"
+            set config(user_editable_p) "f"
+        }
+
         # do the callback for the ::show proc
         # evaulate the datasource.
         if { [catch {        set element(content) \