Index: openacs-4/packages/calendar-portlet/sql/oracle/calendar-portlet-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-portlet/sql/oracle/calendar-portlet-create.sql,v diff -u -r1.7 -r1.8 --- openacs-4/packages/calendar-portlet/sql/oracle/calendar-portlet-create.sql 14 Nov 2001 21:58:56 -0000 1.7 +++ openacs-4/packages/calendar-portlet/sql/oracle/calendar-portlet-create.sql 17 Nov 2001 20:40:46 -0000 1.8 @@ -19,25 +19,40 @@ begin ds_id := portal_datasource.new( name => 'calendar-portlet', - link => 'calendar', - description => 'Displays the calendar ', - content => 'calendar_portlet::show', - edit_content => 'calendar_portlet::edit', - configurable_p => 't' + description => 'Displays the calendar ' ); + + -- the standard 4 params - -- for the personal calendar + -- shadeable_p + portal_datasource.set_def_param ( + datasource_id => ds_id, + config_required_p => 't', + configured_p => 't', + key => 'shadeable_p', + value => 't' +); - -- calendar_id must be configured + + -- hideable_p portal_datasource.set_def_param ( - datasource_id => ds_id, - config_required_p => 't', - configured_p => 'f', - key => 'calendar_id', - value => '' -); + 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, @@ -48,30 +63,138 @@ ); - -- defaul_view see cal-table-create.sql + -- calendar-specific params + + -- calendar_id must be configured portal_datasource.set_def_param ( + datasource_id => ds_id, + config_required_p => 't', + configured_p => 'f', + key => 'calendar_id', + value => '' +); + + + -- default_view see cal-table-create.sql + portal_datasource.set_def_param ( datasource_id => ds_id, config_required_p => 't', configured_p => 't', key => 'default_view', value => 'day' ); - -- XXX community calendars --- --- --- portal_datasource.set_def_param ( --- datasource_id => ds_id, --- config_required_p => 't', --- configured_p => 'f', --- key => 'folder_id', --- value => '' ---); --- +end; +/ +show errors +declare + foo integer; +begin + -- create the implementation + foo := acs_sc_impl.new ( + 'portal_datasource', + 'calendar_portlet', + 'calendar_portlet' + ); + end; / show errors +declare + foo integer; +begin + + -- add all the hooks + foo := acs_sc_impl.new_alias ( + 'portal_datasource', + 'calendar_portlet', + 'MyName', + 'calendar_portlet::my_name', + 'TCL' + ); + + foo := acs_sc_impl.new_alias ( + 'portal_datasource', + 'calendar_portlet', + 'GetPrettyName', + 'calendar_portlet::get_pretty_name', + 'TCL' + ); + + foo := acs_sc_impl.new_alias ( + 'portal_datasource', + 'calendar_portlet', + 'Link', + 'calendar_portlet::link', + 'TCL' + ); + + foo := acs_sc_impl.new_alias ( + 'portal_datasource', + 'calendar_portlet', + 'AddSelfToPage', + 'calendar_portlet::add_self_to_page', + 'TCL' + ); + + foo := acs_sc_impl.new_alias ( + 'portal_datasource', + 'calendar_portlet', + 'Show', + 'calendar_portlet::show', + 'TCL' + ); + + foo := acs_sc_impl.new_alias ( + 'portal_datasource', + 'calendar_portlet', + 'Edit', + 'calendar_portlet::edit', + 'TCL' + ); + + foo := acs_sc_impl.new_alias ( + 'portal_datasource', + 'calendar_portlet', + 'RemoveSelfFromPage', + 'calendar_portlet::remove_self_from_page', + 'TCL' + ); + + foo := acs_sc_impl.new_alias ( + 'portal_datasource', + 'calendar_portlet', + 'MakeSelfAvailable', + 'calendar_portlet::make_self_available', + 'TCL' + ); + + foo := acs_sc_impl.new_alias ( + 'portal_datasource', + 'calendar_portlet', + 'MakeSelfUnavailable', + 'calendar_portlet::make_self_unavailable', + 'TCL' + ); + +end; +/ +show errors + +declare + foo integer; +begin + + -- Add the binding + acs_sc_binding.new ( + contract_name => 'portal_datasource', + impl_name => 'calendar_portlet' + ); +end; +/ +show errors + Index: openacs-4/packages/calendar-portlet/sql/oracle/calendar-portlet-drop.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-portlet/sql/oracle/calendar-portlet-drop.sql,v diff -u -r1.2 -r1.3 --- openacs-4/packages/calendar-portlet/sql/oracle/calendar-portlet-drop.sql 12 Nov 2001 18:27:18 -0000 1.2 +++ openacs-4/packages/calendar-portlet/sql/oracle/calendar-portlet-drop.sql 17 Nov 2001 20:42:40 -0000 1.3 @@ -34,3 +34,78 @@ / show errors; +declare + foo integer; +begin + + -- drop the hooks + foo := acs_sc_impl.delete_alias ( + 'portal_datasource', + 'calendar_portlet', + 'MyName' + ); + + foo := acs_sc_impl.delete_alias ( + 'portal_datasource', + 'calendar_portlet', + 'GetPrettyName' + ); + + + foo := acs_sc_impl.delete_alias ( + 'portal_datasource', + 'calendar_portlet', + 'Link' + ); + + foo := acs_sc_impl.delete_alias ( + 'portal_datasource', + 'calendar_portlet', + 'AddSelfToPage' + ); + + foo := acs_sc_impl.delete_alias ( + 'portal_datasource', + 'calendar_portlet', + 'Show' + ); + + foo := acs_sc_impl.delete_alias ( + 'portal_datasource', + 'calendar_portlet', + 'Edit' + ); + + foo := acs_sc_impl.delete_alias ( + 'portal_datasource', + 'calendar_portlet', + 'RemoveSelfFromPage' + ); + + foo := acs_sc_impl.delete_alias ( + 'portal_datasource', + 'calendar_portlet', + 'MakeSelfAvailable' + ); + + foo := acs_sc_impl.delete_alias ( + 'portal_datasource', + 'calendar_portlet', + 'MakeSelfUnavailable' + ); + + -- Drop the binding + acs_sc_binding.delete ( + contract_name => 'portal_datasource', + impl_name => 'calendar_portlet' + ); + + -- drop the impl + foo := acs_sc_impl.delete ( + 'portal_datasource', + 'calendar_portlet' + ); +end; +/ +show errors + Index: openacs-4/packages/faq-portlet/sql/oracle/faq-portlet-drop.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/faq-portlet/sql/oracle/faq-portlet-drop.sql,v diff -u -r1.1 -r1.2 --- openacs-4/packages/faq-portlet/sql/oracle/faq-portlet-drop.sql 9 Oct 2001 01:27:13 -0000 1.1 +++ openacs-4/packages/faq-portlet/sql/oracle/faq-portlet-drop.sql 17 Nov 2001 20:46:36 -0000 1.2 @@ -34,3 +34,78 @@ / show errors; +declare + foo integer; +begin + + -- drop the hooks + foo := acs_sc_impl.delete_alias ( + 'portal_datasource', + 'faq_portlet', + 'MyName' + ); + + foo := acs_sc_impl.delete_alias ( + 'portal_datasource', + 'faq_portlet', + 'GetPrettyName' + ); + + + foo := acs_sc_impl.delete_alias ( + 'portal_datasource', + 'faq_portlet', + 'Link' + ); + + foo := acs_sc_impl.delete_alias ( + 'portal_datasource', + 'faq_portlet', + 'AddSelfToPage' + ); + + foo := acs_sc_impl.delete_alias ( + 'portal_datasource', + 'faq_portlet', + 'Show' + ); + + foo := acs_sc_impl.delete_alias ( + 'portal_datasource', + 'faq_portlet', + 'Edit' + ); + + foo := acs_sc_impl.delete_alias ( + 'portal_datasource', + 'faq_portlet', + 'RemoveSelfFromPage' + ); + + foo := acs_sc_impl.delete_alias ( + 'portal_datasource', + 'faq_portlet', + 'MakeSelfAvailable' + ); + + foo := acs_sc_impl.delete_alias ( + 'portal_datasource', + 'faq_portlet', + 'MakeSelfUnavailable' + ); + + -- Drop the binding + acs_sc_binding.delete ( + contract_name => 'portal_datasource', + impl_name => 'faq_portlet' + ); + + -- drop the impl + foo := acs_sc_impl.delete ( + 'portal_datasource', + 'faq_portlet' + ); +end; +/ +show errors + Index: openacs-4/packages/faq-portlet/tcl/faq-portlet-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/faq-portlet/tcl/faq-portlet-procs.tcl,v diff -u -r1.10 -r1.11 --- openacs-4/packages/faq-portlet/tcl/faq-portlet-procs.tcl 9 Nov 2001 19:46:21 -0000 1.10 +++ openacs-4/packages/faq-portlet/tcl/faq-portlet-procs.tcl 17 Nov 2001 20:48:13 -0000 1.11 @@ -104,6 +104,12 @@ } + ad_proc -public edit { + nothing here + } { + return "" + } + ad_proc -public remove_self_from_page { portal_id package_id