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.6 -r1.7
--- openacs-4/packages/bboard-portlet/tcl/bboard-portlet-procs.tcl 5 Oct 2001 00:34:13 -0000 1.6
+++ openacs-4/packages/bboard-portlet/tcl/bboard-portlet-procs.tcl 5 Oct 2001 01:11:48 -0000 1.7
@@ -38,8 +38,6 @@
set key "instance_id"
set value [portal::get_element_param $element_id $key]
- ns_log Notice "AKSbboard-portlet: instance_id's value: $value"
-
portal::set_element_param $element_id $key $instance_id
return $element_id
@@ -52,10 +50,10 @@
@creation-date Sept 2001
} {
- ns_log notice "AKS28 [array get cf]"
-
- return "[array get cf]"
+ array set config $cf
+ return "This is the instance_id $config(instance_id)"
+
}
ad_proc -public remove_self_from_page { portal_id instance_id } {
@@ -88,5 +86,12 @@
set element_id [portal::remove_element {$portal_id $element_id}]
}
+ ad_proc -private dummy {} {
+ This is very strange. If this proc is not here, the one above
+ dosen't show up.
+ }
+ {
+ return 1
+ }
} # namespace