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.38 -r1.39
--- openacs-4/packages/new-portal/tcl/portal-procs.tcl	30 Oct 2001 20:34:06 -0000	1.38
+++ openacs-4/packages/new-portal/tcl/portal-procs.tcl	30 Oct 2001 20:35:59 -0000	1.39
@@ -48,6 +48,7 @@
     @author Arjun Sanyal (arjun@openforce.net)
     @creation-date 10/30/2001
 } {
+    ad_require_permission $portal_id portal_admin_portal
 
     set new_p_ds_id [db_nextval acs_object_id_seq]
 
@@ -67,6 +68,8 @@
     @creation-date 10/30/2001
 } {
 
+    ad_require_permission $portal_id portal_admin_portal
+
     db_dml delete_from_portal_datasource_avail_map "
     delete from portal_datasource_avail_map
     where portal_id =  :portal_id
@@ -81,6 +84,8 @@
     @author Arjun Sanyal (arjun@openforce.net)
     @creation-date 10/30/2001
 } {
+    ad_require_permission $portal_id portal_admin_portal
+    
     if { [db_0or1row datasource_avail_check "select 1  
     from portal_datasource_avail_map
     where portal_id = :portal_id and