Index: openacs-4/packages/bboard-portlet/tcl/bboard-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bboard-portlet/tcl/bboard-portlet-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/bboard-portlet/tcl/bboard-portlet-procs.tcl	4 Oct 2001 20:36:35 -0000	1.5
+++ openacs-4/packages/bboard-portlet/tcl/bboard-portlet-procs.tcl	5 Oct 2001 00:34:13 -0000	1.6
@@ -44,11 +44,25 @@
 
 	return $element_id
     }
+    ad_proc -public show { cf }  {
+	Display the PE
+    
+	@param cf A config array
+	@author arjun@openforce.net
+	@creation-date Sept 2001
+    } {
 
-    ad_proc remove_self_from_page { portal_id instance_id }  {
+	ns_log notice "AKS28 [array get cf]"
+	
+	return "<b>[array get cf]</b>"
+
+    }
+
+    ad_proc -public remove_self_from_page { portal_id instance_id }  {
 	Removes a bboard PE from the given page 
     
 	@param page_id The page to remove self from
+	@param instance_id
 	@author arjun@openforce.net
 	@creation-date Sept 2001
     } {
@@ -59,8 +73,12 @@
 	where pem.portal_id = $portal_id and
 	pep.element_id = pem.element_id and
 	pep.key = 'instance_id' and
-	pep.value = $instance_id"] } {
-	    # do it
+	pep.value = $instance_id"]  } {
+	    
+	    # delete the params
+	    # delete the element from the map
+	    ns_log Notice "foo"
+
 	} else {
 	    ad_return_complaint 1 "bboard_portlet::remove_self_from_page: Invalid portal_id and/or instance_id given."
 	    ad_script_abort
@@ -70,18 +88,5 @@
 	set element_id [portal::remove_element {$portal_id $element_id}]
     }
 
-    ad_proc show { cf }  {
-	Display the PE
-    
-	@param cf A config array
-	@author arjun@openforce.net
-	@creation-date Sept 2001
-    } {
 
-	ns_log notice "AKS28 [array get cf]"
-	
-	return "<b>[array get cf]</b>"
-
-    }
-
 } # namespace