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.41 -r1.42
--- openacs-4/packages/bboard-portlet/tcl/bboard-portlet-procs.tcl	9 May 2002 23:59:51 -0000	1.41
+++ openacs-4/packages/bboard-portlet/tcl/bboard-portlet-procs.tcl	12 May 2002 18:15:04 -0000	1.42
@@ -19,18 +19,18 @@
     Procedures to supports bboard portlets
 
     @creation-date September 30 2001
-    @author arjun@openforce.net 
+    @author arjun@openforce.net
     @version $Id$
 
 }
 
 namespace eval bboard_portlet {
-    
+
     ad_proc -private get_my_name {
     } {
 	return "bboard_portlet"
     }
-    
+
     ad_proc -public get_pretty_name {
     } {
 	return "Bboards"
@@ -45,48 +45,45 @@
     } {
 	return ""
     }
-    
-    ad_proc -public add_self_to_page { 
-	portal_id 
-	bboard_instance_id 
+
+    ad_proc -public add_self_to_page {
+	{-portal_id:required}
+	{-package_id:required}
     } {
-	Adds a bboard PE to the given portal or appends the given bboard instance_id
+	Adds a bboard PE to the given portal or appends the given bboard package_id
         to the bboard PE that already on the portal
     } {
-
         return [portal::add_element_or_append_id \
-                -portal_id $portal_id \
-                -portlet_name [get_my_name] \
-                -pretty_name [get_pretty_name] \
-                -value_id $bboard_instance_id \
-                -force_region [ad_parameter "bboard_portlet_region" [my_package_key]]
-        ]        
+            -portal_id $portal_id \
+            -portlet_name [get_my_name] \
+            -pretty_name [get_pretty_name] \
+            -value_id $package_id \
+            -force_region [ad_parameter "bboard_portlet_region" [my_package_key]] \
+        ]
     }
-    
 
-    ad_proc -public remove_self_from_page { 
-	portal_id 
-	bboard_instance_id 
+
+    ad_proc -public remove_self_from_page {
+	portal_id
+	package_id
     } {
-	Removes a bboard PE from the given page or just the given bboard's instance_id
+	Removes a bboard PE from the given page or just the given bboard's package_id
     } {
         portal::remove_element_or_remove_id \
-                -portal_id $portal_id \
-                -portlet_name [get_my_name] \
-                -value_id $bboard_instance_id
+            -portal_id $portal_id \
+            -portlet_name [get_my_name] \
+            -value_id $package_id
     }
 
-    ad_proc -public show { 
-	cf 
+    ad_proc -public show {
+	cf
     } {
     } {
         # no return call required with the helper proc
         portal::show_proc_helper \
-                -package_key [my_package_key] \
-                -config_list $cf \
-                -template_src "bboard-portlet"
-    }   
+            -package_key [my_package_key] \
+            -config_list $cf \
+            -template_src "bboard-portlet"
+    }
 
 }
- 
-