Index: openacs-4/packages/dotlrn-wps/wps-portlet.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-wps/Attic/wps-portlet.info,v diff -u -N --- openacs-4/packages/dotlrn-wps/wps-portlet.info 25 Sep 2003 16:35:41 -0000 1.1 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,25 +0,0 @@ - - - - - Wimpy Point Portlet - - f - t - - - Rocael Hernandez - - - - - - - - - - - - - - Index: openacs-4/packages/dotlrn-wps/sql/oracle/wps-admin-portlet-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-wps/sql/oracle/Attic/wps-admin-portlet-create.sql,v diff -u -N --- openacs-4/packages/dotlrn-wps/sql/oracle/wps-admin-portlet-create.sql 25 Sep 2003 16:35:41 -0000 1.1 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,194 +0,0 @@ --- --- Copyright (C) 2001, 2002, 2003 MIT --- --- This file is part of dotLRN. --- --- dotLRN is free software; you can redistribute it and/or modify it under the --- terms of the GNU General Public License as published by the Free Software --- Foundation; either version 2 of the License, or (at your option) any later --- version. --- --- dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY --- WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS --- FOR A PARTICULAR PURPOSE. See the GNU General Public License for more --- details. --- - --- --- /wps-portlet/sql/oracle/wps-admin-portlet-create.sql --- - --- Creates wps admin portlet - --- Copyright (C) 2003 MIT --- @author Rocael Hernandez (roc@viaro.net) --- @creation-date 2003-05-24 - --- $Id: wps-admin-portlet-create.sql,v 1.1 2003/09/25 16:35:41 rocaelh 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( - name => 'wps_admin_portlet', - description => 'Wimpy Point Admin portlet' - ); - - -- the standard 4 params - - -- shadeable_p - portal_datasource.set_def_param ( - datasource_id => ds_id, - config_required_p => 't', - configured_p => 't', - key => 'shadeable_p', - value => 'f' -); - - - -- hideable_p - portal_datasource.set_def_param ( - datasource_id => ds_id, - config_required_p => 't', - configured_p => 't', - key => 'hideable_p', - value => 'f' -); - - -- user_editable_p - portal_datasource.set_def_param ( - datasource_id => ds_id, - config_required_p => 't', - configured_p => 't', - key => 'user_editable_p', - value => 'f' -); - - -- shaded_p - portal_datasource.set_def_param ( - datasource_id => ds_id, - config_required_p => 't', - configured_p => 't', - key => 'shaded_p', - value => 'f' -); - - -- link_hideable_p - portal_datasource.set_def_param ( - datasource_id => ds_id, - config_required_p => 't', - configured_p => 't', - key => 'link_hideable_p', - value => 't' -); - --- wps_admin-specific params - - -- package_id must be configured - portal_datasource.set_def_param ( - datasource_id => ds_id, - config_required_p => 't', - configured_p => 'f', - key => 'package_id', - value => '' -); - - -end; -/ -show errors - -declare - foo integer; -begin - -- create the implementation - foo := acs_sc_impl.new ( - 'portal_datasource', - 'wps_admin_portlet', - 'wps_admin_portlet' - ); - -end; -/ -show errors - -declare - foo integer; -begin - -- add all the hooks - foo := acs_sc_impl.new_alias ( - 'portal_datasource', - 'wps_admin_portlet', - 'GetMyName', - 'wps_admin_portlet::get_my_name', - 'TCL' - ); - - foo := acs_sc_impl.new_alias ( - 'portal_datasource', - 'wps_admin_portlet', - 'GetPrettyName', - 'wps_admin_portlet::get_pretty_name', - 'TCL' - ); - - foo := acs_sc_impl.new_alias ( - 'portal_datasource', - 'wps_admin_portlet', - 'Link', - 'wps_admin_portlet::link', - 'TCL' - ); - - foo := acs_sc_impl.new_alias ( - 'portal_datasource', - 'wps_admin_portlet', - 'AddSelfToPage', - 'wps_admin_portlet::add_self_to_page', - 'TCL' - ); - - foo := acs_sc_impl.new_alias ( - 'portal_datasource', - 'wps_admin_portlet', - 'Show', - 'wps_admin_portlet::show', - 'TCL' - ); - - foo := acs_sc_impl.new_alias ( - 'portal_datasource', - 'wps_admin_portlet', - 'Edit', - 'wps_admin_portlet::edit', - 'TCL' - ); - - foo := acs_sc_impl.new_alias ( - 'portal_datasource', - 'wps_admin_portlet', - 'RemoveSelfFromPage', - 'wps_admin_portlet::remove_self_from_page', - 'TCL' - ); - -end; -/ -show errors - -declare - foo integer; -begin - -- Add the binding - acs_sc_binding.new ( - contract_name => 'portal_datasource', - impl_name => 'wps_admin_portlet' - ); -end; -/ -show errors - Index: openacs-4/packages/dotlrn-wps/sql/oracle/wps-portlet-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-wps/sql/oracle/Attic/wps-portlet-create.sql,v diff -u -N --- openacs-4/packages/dotlrn-wps/sql/oracle/wps-portlet-create.sql 25 Sep 2003 16:35:41 -0000 1.1 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,196 +0,0 @@ --- --- Copyright (C) 2001, 2002, 2003 MIT --- --- This file is part of dotLRN. --- --- dotLRN is free software; you can redistribute it and/or modify it under the --- terms of the GNU General Public License as published by the Free Software --- Foundation; either version 2 of the License, or (at your option) any later --- version. --- --- dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY --- WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS --- FOR A PARTICULAR PURPOSE. See the GNU General Public License for more --- details. --- - --- --- /wps-portlet/sql/oracle/wps-portlet-create.sql --- - --- Creates wps portlet - --- Copyright (C) 2003 MIT --- @author Rocael Hernandez (roc@viaro.net) --- @creation-date 2003-05-24 - --- $Id: wps-portlet-create.sql,v 1.1 2003/09/25 16:35:41 rocaelh 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( - name => 'wps_portlet', - description => 'Wimpy Point portlet' - ); - - -- the standard 4 params - - -- shadeable_p - portal_datasource.set_def_param ( - datasource_id => ds_id, - config_required_p => 't', - configured_p => 't', - key => 'shadeable_p', - value => 't' -); - - - -- hideable_p - portal_datasource.set_def_param ( - datasource_id => ds_id, - config_required_p => 't', - configured_p => 't', - key => 'hideable_p', - value => 't' -); - - -- user_editable_p - portal_datasource.set_def_param ( - datasource_id => ds_id, - config_required_p => 't', - configured_p => 't', - key => 'user_editable_p', - value => 'f' -); - - -- shaded_p - portal_datasource.set_def_param ( - datasource_id => ds_id, - config_required_p => 't', - configured_p => 't', - key => 'shaded_p', - value => 'f' -); - - -- link_hideable_p - portal_datasource.set_def_param ( - datasource_id => ds_id, - config_required_p => 't', - configured_p => 't', - key => 'link_hideable_p', - value => 't' -); - --- wps-specific params - - -- community_id must be configured - portal_datasource.set_def_param ( - datasource_id => ds_id, - config_required_p => 't', - configured_p => 'f', - key => 'package_id', - value => '' -); - - -end; -/ -show errors - -declare - foo integer; -begin - -- create the implementation - foo := acs_sc_impl.new ( - 'portal_datasource', - 'wps_portlet', - 'wps_portlet' - ); - -end; -/ -show errors - -declare - foo integer; -begin - -- add all the hooks - foo := acs_sc_impl.new_alias ( - 'portal_datasource', - 'wps_portlet', - 'GetMyName', - 'wps_portlet::get_my_name', - 'TCL' - ); - - foo := acs_sc_impl.new_alias ( - 'portal_datasource', - 'wps_portlet', - 'GetPrettyName', - 'wps_portlet::get_pretty_name', - 'TCL' - ); - - foo := acs_sc_impl.new_alias ( - 'portal_datasource', - 'wps_portlet', - 'Link', - 'wps_portlet::link', - 'TCL' - ); - - foo := acs_sc_impl.new_alias ( - 'portal_datasource', - 'wps_portlet', - 'AddSelfToPage', - 'wps_portlet::add_self_to_page', - 'TCL' - ); - - foo := acs_sc_impl.new_alias ( - 'portal_datasource', - 'wps_portlet', - 'Show', - 'wps_portlet::show', - 'TCL' - ); - - foo := acs_sc_impl.new_alias ( - 'portal_datasource', - 'wps_portlet', - 'Edit', - 'wps_portlet::edit', - 'TCL' - ); - - foo := acs_sc_impl.new_alias ( - 'portal_datasource', - 'wps_portlet', - 'RemoveSelfFromPage', - 'wps_portlet::remove_self_from_page', - 'TCL' - ); - -end; -/ -show errors - -declare - foo integer; -begin - -- Add the binding - acs_sc_binding.new ( - contract_name => 'portal_datasource', - impl_name => 'wps_portlet' - ); -end; -/ -show errors - - -@wps-admin-portlet-create.sql Index: openacs-4/packages/dotlrn-wps/sql/oracle/wps-portlet-drop.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-wps/sql/oracle/Attic/wps-portlet-drop.sql,v diff -u -N --- openacs-4/packages/dotlrn-wps/sql/oracle/wps-portlet-drop.sql 25 Sep 2003 16:35:41 -0000 1.1 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,115 +0,0 @@ --- --- Copyright (C) 2001, 2002 MIT --- --- This file is part of dotLRN. --- --- dotLRN is free software; you can redistribute it and/or modify it under the --- terms of the GNU General Public License as published by the Free Software --- Foundation; either version 2 of the License, or (at your option) any later --- version. --- --- dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY --- WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS --- FOR A PARTICULAR PURPOSE. See the GNU General Public License for more --- details. --- - --- --- /wps-portlet/sql/oracle/wps-portlet-drop.sql --- - --- Drops wps portlet - --- Copyright (C) 2003 MIT --- @author Rocael Hernandez (roc@viaro.net) --- @creation-date 2003-05-24 - --- $Id: wps-portlet-drop.sql,v 1.1 2003/09/25 16:35:41 rocaelh 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 = 'wps_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; - -declare - foo integer; -begin - - -- drop the hooks - foo := acs_sc_impl.delete_alias ( - 'portal_datasource', - 'wps_portlet', - 'GetMyName' - ); - - foo := acs_sc_impl.delete_alias ( - 'portal_datasource', - 'wps_portlet', - 'GetPrettyName' - ); - - - foo := acs_sc_impl.delete_alias ( - 'portal_datasource', - 'wps_portlet', - 'Link' - ); - - foo := acs_sc_impl.delete_alias ( - 'portal_datasource', - 'wps_portlet', - 'AddSelfToPage' - ); - - foo := acs_sc_impl.delete_alias ( - 'portal_datasource', - 'wps_portlet', - 'Show' - ); - - foo := acs_sc_impl.delete_alias ( - 'portal_datasource', - 'wps_portlet', - 'Edit' - ); - - foo := acs_sc_impl.delete_alias ( - 'portal_datasource', - 'wps_portlet', - 'RemoveSelfFromPage' - ); - - -- Drop the binding - acs_sc_binding.delete ( - contract_name => 'portal_datasource', - impl_name => 'wps_portlet' - ); - - -- drop the impl - foo := acs_sc_impl.delete ( - 'portal_datasource', - 'wps_portlet' - ); -end; -/ -show errors -