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