Index: openacs-4/packages/bboard-portlet/bboard-portlet.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/bboard-portlet/bboard-portlet.info,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/bboard-portlet/bboard-portlet.info 4 Oct 2001 17:12:15 -0000 1.1 @@ -0,0 +1,36 @@ + + + + + Bboard portlet + Bboard portlet + f + t + + + + oracle + + url="mailto:arjun@openforce.net">Arjun Sanyal + Creates bboard datasources for portal portlets. + OpenForce, Inc. + + + + + + + + + + + + + + + + + + + + Fisheye: Tag 1.3 refers to a dead (removed) revision in file `openacs-4/packages/bboard-portlet/bboard-portlets.info'. Fisheye: No comparison available. Pass `N' to diff? Index: openacs-4/packages/bboard-portlet/sql/oracle/bboard-portlet-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/bboard-portlet/sql/oracle/bboard-portlet-create.sql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/bboard-portlet/sql/oracle/bboard-portlet-create.sql 4 Oct 2001 17:15:02 -0000 1.1 @@ -0,0 +1,41 @@ +-- +-- packages/bboard-portlet/sql/bboard-portlets-create.sql +-- + +-- Creates bboard datasources for portal portlets + +-- Copyright (C) 2001 OpenForce, Inc. +-- @author Arjun Sanyal (arjun@openforce.net) +-- @creation-date 2001-30-09 + +-- $Id: bboard-portlet-create.sql,v 1.1 2001/10/04 17:15:02 oracle Exp $ + +-- This is free software distributed under the terms of the GNU Public +-- License version 2 or higher. Full text of the license is available +-- from the GNU Project: http://www.fsf.org/copyleft/gpl.html + +declare + ds_id portal_datasources.datasource_id%TYPE; +begin + ds_id := portal_datasource.new( + data_type => 'raw', + mime_type => 'application/x-ats', + name => 'bboard-portlet', + description => 'Displays the bboard for a given instance_id ', + content_varchar => '/packages/bboard-portlet/www/display' + configurable_p => 't' + ); + + -- Instance_id must be configured + portal_datasource.set_def_param ( + datasource_id => ds_id, + config_required_p => 't', + configured_p => 'f', + key => 'instance_id', + value => '' +); + +end; +/ +show errors + Index: openacs-4/packages/bboard-portlet/sql/oracle/bboard-portlet-drop.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/bboard-portlet/sql/oracle/bboard-portlet-drop.sql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/bboard-portlet/sql/oracle/bboard-portlet-drop.sql 4 Oct 2001 17:15:32 -0000 1.1 @@ -0,0 +1,36 @@ +-- +-- packages/bboard-portlets/sql/bboard-portlets-drop.sql +-- + +-- Drops bboard datasources for portal portlets + +-- Copyright (C) 2001 Openforce, Inc. +-- @author Arjun Sanyal (arjun@openforce.net) +-- @creation-date 2001-30-09 + +-- $Id: bboard-portlet-drop.sql,v 1.1 2001/10/04 17:15:32 oracle Exp $ + +-- This is free software distributed under the terms of the GNU Public +-- License version 2 or higher. Full text of the license is available +-- from the GNU Project: http://www.fsf.org/copyleft/gpl.html + +declare + ds_id portal_datasources.datasource_id%TYPE; +begin + + begin + select datasource_id into ds_id + from portal_datasources + where name = 'bboard-portlet'; + exception when no_data_found then + ds_id := null; + end; + + if ds_id is not null then + portal_datasource.delete(ds_id); + end if; + +end; +/ +show errors; + Fisheye: Tag 1.6 refers to a dead (removed) revision in file `openacs-4/packages/bboard-portlet/sql/oracle/bboard-portlets-create.sql'. Fisheye: No comparison available. Pass `N' to diff? Fisheye: Tag 1.5 refers to a dead (removed) revision in file `openacs-4/packages/bboard-portlet/sql/oracle/bboard-portlets-drop.sql'. Fisheye: No comparison available. Pass `N' to diff? 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 --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/bboard-portlet/tcl/bboard-portlet-procs.tcl 4 Oct 2001 17:18:27 -0000 1.1 @@ -0,0 +1,70 @@ +# /packages/bboard-portlets/tcl/bboard-portlets-procs.tcl + +ad_page_contract { + + Procedures to supports bboard portlets + + @author arjun@openforce.net + @creation-date September 30 2001 + @$Id: bboard-portlet-procs.tcl,v 1.1 2001/10/04 17:18:27 oracle Exp $ +} + +namespace eval bboard_portlet { + + + ad_proc -private name {} { + This datasource's name + + @author arjun@openforce.net + @creation-date Sept 2001 + } { + return "bboard-portlet" + } + + ad_proc add_self_to_page { page_id instance_id } { + Adds a bboard PE to the given page with the instance key being + opaque data in the portal configuration. + + @param page_id The page to add self to + @param instance_id The bboard instace to show + @author arjun@openforce.net + @creation-date Sept 2001 + } { + # Tell portal to add this element to the page + set element_id [portal::add_element {$page_id [name]}] + + # The default param "instance_id" must be configured + 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 + + } + + ad_proc 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 + @author arjun@openforce.net + @creation-date Sept 2001 + } { + # Find out the element_id that corresponds to this instance_id + if { [db0or1row get_element_id " + select pem.element_id as element_id + from portal_element_parameters pep, portal_element_map pem + 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 + } else { + ad_return_complaint 1 "bboard_portlet::remove_self_from_page: Invalid portal_id and/or instance_id given." + ad_script_abort + } + + # this call removes the PEs params too + set element_id [portal::remove_element {$portal_id $element_id}] + } +} # namespace Fisheye: Tag 1.4 refers to a dead (removed) revision in file `openacs-4/packages/bboard-portlet/tcl/bboard-portlets-procs.tcl'. Fisheye: No comparison available. Pass `N' to diff? Index: openacs-4/packages/bboard-portlet/www/show.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/bboard-portlet/www/Attic/show.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/bboard-portlet/www/show.adp 4 Oct 2001 17:21:06 -0000 1.1 @@ -0,0 +1,25 @@ +