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.26 -r1.27
--- openacs-4/packages/new-portal/tcl/portal-procs.tcl	18 Oct 2001 18:27:30 -0000	1.26
+++ openacs-4/packages/new-portal/tcl/portal-procs.tcl	23 Oct 2001 19:28:16 -0000	1.27
@@ -24,7 +24,7 @@
             portal_layouts where
             name = $layout_name "
 	
-    # insert the portal and grant permission on it.    
+    # insert the portal and grant user-level permission on it.    
     return [ db_exec_plsql insert_portal {
 	begin
 	    
@@ -36,20 +36,14 @@
 	acs_permission.grant_permission ( 
 	object_id => :1,
 	grantee_id => :user_id,
-	privilege => 'read' 
+	privilege => 'portal_read_portal' 
 	);
 	
 	acs_permission.grant_permission ( 
 	object_id => :1,
 	grantee_id => :user_id,
-	privilege => 'write'
+	privilege => 'portal_edit_portal'
 	);
-	    
-	acs_permission.grant_permission ( 
-	object_id => :1,
-	grantee_id => :user_id,
-	privilege => 'admin'
-	);
 	end;
     }]
 }
@@ -212,10 +206,9 @@
     @author Arjun Sanyal (arjun@openforce.net)
     @creation-date 9/28/2001
 } {
-    set user_id [ad_conn user_id]
-    #set admin_p [ad_permission_p $package_id admin]
-    #set write_p [ad_permission_p $package_id write]
-    #set read_p [ad_permission_p $package_id read]
+    
+    ad_require_permission $portal_id read
+    set edit_p [ad_permission_p $portal_id portal_edit_portal]
     set master_template [ad_parameter master_template]
     set css_path [ad_parameter css_path]