Index: openacs-4/packages/fs-portlet/tcl/fs-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/fs-portlet/tcl/fs-portlet-procs.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/fs-portlet/tcl/fs-portlet-procs.tcl	1 Nov 2001 21:05:47 -0000	1.9
+++ openacs-4/packages/fs-portlet/tcl/fs-portlet-procs.tcl	1 Nov 2001 23:12:31 -0000	1.10
@@ -167,8 +167,21 @@
  	@creation-date Nov 2001
     } {
  	portal::make_datasource_available \
- 		$page_id [get_datasource_id [my_name]]
+ 		$page_id [portal::get_datasource_id [my_name]]
     }
+
+    ad_proc -public make_self_unavailable { 
+	page_id 
+    } {
+	Wrapper for the portal:: proc
+	
+	@param page_id
+	@author arjun@openforce.net
+	@creation-date Nov 2001
+    } {
+	portal::make_datasource_unavailable \
+		$page_id [portal::get_datasource_id [my_name]]
+    }
 }