Index: openacs-4/packages/dotlrn/sql/oracle/applet-sc-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/oracle/applet-sc-create.sql,v diff -u -r1.2 -r1.3 --- openacs-4/packages/dotlrn/sql/oracle/applet-sc-create.sql 7 May 2002 22:06:11 -0000 1.2 +++ openacs-4/packages/dotlrn/sql/oracle/applet-sc-create.sql 10 May 2002 06:35:14 -0000 1.3 @@ -17,9 +17,6 @@ -- -- The DotLRN applet service contract -- --- copyright 2001, OpenForce, Inc. --- distributed under the GNU GPL v2 --- -- started October 1st, 2001 -- we remember September 11th -- @@ -37,7 +34,7 @@ contract_desc => 'dotLRN Applet contract' ); - -- A simple proc to return the pretty name of the applet + -- GetPrettyName: A simple proc to return the pretty name of the applet foo := acs_sc_msg_type.new ( msg_type_name => 'dotlrn_applet.GetPrettyName.InputType', msg_type_spec => '' @@ -58,7 +55,7 @@ 'dotlrn_applet.GetPrettyName.OutputType' ); - -- Adds the applet to dotlrn (used for one-time initialization) + -- AddApplet: Adds the applet to dotlrn (used for one-time initialization) -- Call in the the dotlrn-init sequence foo := acs_sc_msg_type.new( msg_type_name => 'dotlrn_applet.AddApplet.InputType', @@ -80,7 +77,7 @@ 'dotlrn_applet.AddApplet.OutputType' ); - -- Removes the applet from dotlrn (used for one-time destroy) + -- RemoveApplet: Removes the applet from dotlrn (used for one-time destroy) -- ** Not yet implimented ** foo := acs_sc_msg_type.new( msg_type_name => 'dotlrn_applet.RemoveApplet.InputType', @@ -102,7 +99,7 @@ 'dotlrn_applet.RemoveApplet.OutputType' ); - -- Adds the applet to a community + -- AddAppletToCommunity: Adds the applet to a community -- Called at community creation time. Adding applets after creation time -- is ** not implimented yet ** foo := acs_sc_msg_type.new( @@ -125,7 +122,7 @@ 'dotlrn_applet.AddAppletToCommunity.OutputType' ); - -- Removes the applet from a community + -- RemoveAppletFromCommunity: Removes the applet from a community -- Called at community delete time. Deleting applets before that time -- ** not implimented yet ** foo := acs_sc_msg_type.new( @@ -194,9 +191,9 @@ 'dotlrn_applet.RemoveUser.OutputType' ); - -- Adds a user to the a specfic dotlrn community. An example of this - -- is to make the community's calendar items visable on user's personal - -- calendar + -- AddUserToCommunity: Adds a user to the a specfic dotlrn community. + -- An example of this is to make the community's calendar items + -- visable on user's personal calendar foo := acs_sc_msg_type.new( msg_type_name => 'dotlrn_applet.AddUserToCommunity.InputType', msg_type_spec => 'community_id:integer,user_id:integer' @@ -217,8 +214,8 @@ 'dotlrn_applet.AddUserToCommunity.OutputType' ); - -- Removes a user from a specfic dotlrn community. Just like above, - -- but removal. + -- RemoveUserFromCommunity: Removes a user from a specfic dotlrn + -- community. Just like above, but removal. foo := acs_sc_msg_type.new( msg_type_name => 'dotlrn_applet.RemoveUserFromCommunity.InputType', msg_type_spec => 'community_id:integer,user_id:integer' @@ -239,9 +236,74 @@ 'dotlrn_applet.RemoveUserFromCommunity.OutputType' ); + -- AddPortlet: Adds the underlying portlet to the given portal + -- with the given args. Why do we need this when we have AddAppletToCommunity? + -- Because besides communities there are per-commnuity portal templates that + -- need to call all dotlrn applets and have the underlying portlet added to + -- them. This way code is not duplicated. + foo := acs_sc_msg_type.new( + msg_type_name => 'dotlrn_applet.AddPortlet.InputType', + msg_type_spec => 'args:string' + ); + foo := acs_sc_msg_type.new( + msg_type_name => 'dotlrn_applet.AddPortlet.OutputType', + msg_type_spec => 'success_p:boolean,error_message:string' + ); + + foo := acs_sc_operation.new ( + 'dotlrn_applet', + 'AddPortlet', + 'Adds the underlying portlet to the portal specified', + 'f', -- not cacheable + 1, -- n_args + 'dotlrn_applet.AddPortlet.InputType', + 'dotlrn_applet.AddPortlet.OutputType' + ); + -- RemovePortlet: the remove corollary of above + foo := acs_sc_msg_type.new( + msg_type_name => 'dotlrn_applet.RemovePortlet.InputType', + msg_type_spec => 'portal_id:integer' + ); + foo := acs_sc_msg_type.new( + msg_type_name => 'dotlrn_applet.RemovePortlet.OutputType', + msg_type_spec => 'success_p:boolean,error_message:string' + ); + + foo := acs_sc_operation.new ( + 'dotlrn_applet', + 'RemovePortlet', + 'Removes the underlying portlet from the given portal', + 'f', -- not cacheable + 1, -- n_args + 'dotlrn_applet.RemovePortlet.InputType', + 'dotlrn_applet.RemovePortlet.OutputType' + ); + + -- Clone: Attack of the Clones! + foo := acs_sc_msg_type.new( + msg_type_name => 'dotlrn_applet.Clone.InputType', + msg_type_spec => 'old_community_id:integer,new_community_id:integer' + ); + + foo := acs_sc_msg_type.new( + msg_type_name => 'dotlrn_applet.Clone.OutputType', + msg_type_spec => 'success_p:boolean,error_message:string' + ); + + foo := acs_sc_operation.new ( + 'dotlrn_applet', + 'Clone', + 'Clone this applets content from the old to the new community', + 'f', -- not cacheable + 2, -- n_args + 'dotlrn_applet.Clone.InputType', + 'dotlrn_applet.Clone.OutputType' + ); + + end; / show errors Index: openacs-4/packages/dotlrn/sql/postgresql/dotlrn-applet-sc-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/postgresql/Attic/dotlrn-applet-sc-create.sql,v diff -u -r1.2 -r1.3 --- openacs-4/packages/dotlrn/sql/postgresql/dotlrn-applet-sc-create.sql 29 Mar 2002 19:14:44 -0000 1.2 +++ openacs-4/packages/dotlrn/sql/postgresql/dotlrn-applet-sc-create.sql 10 May 2002 06:35:14 -0000 1.3 @@ -17,11 +17,6 @@ -- -- The DotLRN applet service contract -- --- copyright 2001, OpenForce, Inc. --- distributed under the GNU GPL v2 --- --- for Oracle 8/8i. (We're guessing 9i works, too). --- -- ben@openforce.net, arjun@openforce.net -- ported to PG by Yon and Ben -- @@ -32,6 +27,9 @@ -- This is the service contract for dotLRN applets. A dotlrn applet MUST -- have AT LEAST the procs (with the proper arguments) defined below to work -- as a dotlrn applet. +-- +-- **** SEE THE ORACLE VERSION FOR FULL DESCRIPTIONS **** +-- begin select acs_sc_contract__new ( @@ -229,4 +227,67 @@ 'dotlrn_applet.RemoveAppletFromCommunity.OutputType' ); + -- addportlet + select acs_sc_msg_type__new( + 'dotlrn_applet.AddPortlet.InputType', + 'args:string' + ); + + select acs_sc_msg_type__new( + 'dotlrn_applet.AddPortlet.OutputType', + 'success_p:boolean,error_message:string' + ); + + select acs_sc_operation__new ( + 'dotlrn_applet', + 'AddPortlet', + 'Adds the underlying portlet to the portal specified', + 'f', -- not cacheable + 1, -- n_args + 'dotlrn_applet.AddPortlet.InputType', + 'dotlrn_applet.AddPortlet.OutputType' + ); + + -- removeportlet + select acs_sc_msg_type__new( + 'dotlrn_applet.RemovePortlet.InputType', + 'portal_id:integer' + ); + + select acs_sc_msg_type__new( + 'dotlrn_applet.RemovePortlet.OutputType', + 'success_p:boolean,error_message:string' + ); + + select acs_sc_operation__new ( + 'dotlrn_applet', + 'RemovePortlet', + 'Removes the underlying portlet from the given portal', + 'f', -- not cacheable + 1, -- n_args + 'dotlrn_applet.RemovePortlet.InputType', + 'dotlrn_applet.RemovePortlet.OutputType' + ); + + -- clone + select acs_sc_msg_type__new( + 'dotlrn_applet.Clone.InputType', + 'old_community_id:integer,new_community_id:integer' + ); + + select acs_sc_msg_type__new( + 'dotlrn_applet.Clone.OutputType', + 'success_p:boolean,error_message:string' + ); + + select acs_sc_operation__new ( + 'dotlrn_applet', + 'Clone', + 'Clone this applets content from the old to the new community', + 'f', -- not cacheable + 2, -- n_args + 'dotlrn_applet.Clone.InputType', + 'dotlrn_applet.Clone.OutputType' + ); + end; Index: openacs-4/packages/dotlrn-bboard/sql/oracle/dotlrn-bboard-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-bboard/sql/oracle/dotlrn-bboard-create.sql,v diff -u -r1.7 -r1.8 --- openacs-4/packages/dotlrn-bboard/sql/oracle/dotlrn-bboard-create.sql 7 May 2002 22:06:11 -0000 1.7 +++ openacs-4/packages/dotlrn-bboard/sql/oracle/dotlrn-bboard-create.sql 10 May 2002 06:35:14 -0000 1.8 @@ -119,6 +119,33 @@ 'TCL' ); + -- AddPortlet + foo := acs_sc_impl.new_alias ( + impl_contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_bboard', + impl_operation_name => 'AddPortlet', + impl_alias => 'dotlrn_bboard::add_portlet', + impl_pl => 'TCL' + ); + + -- RemovePortlet + foo := acs_sc_impl.new_alias ( + impl_contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_bboard', + impl_operation_name => 'RemovePortlet', + impl_alias => 'dotlrn_bboard::remove_portlet', + impl_pl => 'TCL' + ); + + -- Clone + foo := acs_sc_impl.new_alias ( + impl_contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_bboard', + impl_operation_name => 'Clone', + impl_alias => 'dotlrn_bboard::clone', + impl_pl => 'TCL' + ); + -- Add the binding acs_sc_binding.new ( contract_name => 'dotlrn_applet', Index: openacs-4/packages/dotlrn-bboard/tcl/dotlrn-bboard-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-bboard/tcl/dotlrn-bboard-procs.tcl,v diff -u -r1.34 -r1.35 --- openacs-4/packages/dotlrn-bboard/tcl/dotlrn-bboard-procs.tcl 9 May 2002 23:59:52 -0000 1.34 +++ openacs-4/packages/dotlrn-bboard/tcl/dotlrn-bboard-procs.tcl 10 May 2002 06:35:14 -0000 1.35 @@ -182,4 +182,39 @@ bboard_portlet::remove_self_from_page $portal_id $package_id } + ad_proc -public add_portlet { + args + } { + A helper proc to add the underlying portlet to the given portal. + + @param args a list-ified array of args defined in add_applet_to_community + } { + ns_log notice "** Error in [get_pretty_name]: 'add_portlet' not implemented!" + ad_return_complaint 1 "Please notifiy the administrator of this error: + ** Error in [get_pretty_name]: 'add_portlet' not implemented!" + } + + ad_proc -public remove_portlet { + args + } { + A helper proc to remove the underlying portlet from the given portal. + + @param args a list-ified array of args defined in remove_applet_from_community + } { + ns_log notice "** Error in [get_pretty_name]: 'remove_portlet' not implemented!" + ad_return_complaint 1 "Please notifiy the administrator of this error: + ** Error in [get_pretty_name]: 'remove_portlet' not implemented!" + } + + ad_proc -public clone { + old_community_id + new_community_id + } { + Clone this applet's content from the old community to the new one + } { + ns_log notice "** Error in [get_pretty_name] 'clone' not implemented!" + ad_return_complaint 1 "Please notifiy the administrator of this error: + ** Error in [get_pretty_name]: 'clone' not implemented!" + } + } Index: openacs-4/packages/dotlrn-calendar/sql/oracle/dotlrn-calendar-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-calendar/sql/oracle/dotlrn-calendar-create.sql,v diff -u -r1.5 -r1.6 --- openacs-4/packages/dotlrn-calendar/sql/oracle/dotlrn-calendar-create.sql 6 May 2002 22:06:18 -0000 1.5 +++ openacs-4/packages/dotlrn-calendar/sql/oracle/dotlrn-calendar-create.sql 10 May 2002 06:35:14 -0000 1.6 @@ -113,6 +113,33 @@ 'TCL' ); + -- AddPortlet + foo := acs_sc_impl.new_alias ( + impl_contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_calendar', + impl_operation_name => 'AddPortlet', + impl_alias => 'dotlrn_calendar::add_portlet', + impl_pl => 'TCL' + ); + + -- RemovePortlet + foo := acs_sc_impl.new_alias ( + impl_contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_calendar', + impl_operation_name => 'RemovePortlet', + impl_alias => 'dotlrn_calendar::remove_portlet', + impl_pl => 'TCL' + ); + + -- Clone + foo := acs_sc_impl.new_alias ( + impl_contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_calendar', + impl_operation_name => 'Clone', + impl_alias => 'dotlrn_calendar::clone', + impl_pl => 'TCL' + ); + -- Add the binding acs_sc_binding.new ( contract_name => 'dotlrn_applet', Index: openacs-4/packages/dotlrn-calendar/tcl/dotlrn-calendar-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-calendar/tcl/dotlrn-calendar-procs.tcl,v diff -u -r1.47 -r1.48 --- openacs-4/packages/dotlrn-calendar/tcl/dotlrn-calendar-procs.tcl 9 May 2002 23:59:52 -0000 1.47 +++ openacs-4/packages/dotlrn-calendar/tcl/dotlrn-calendar-procs.tcl 10 May 2002 06:35:14 -0000 1.48 @@ -364,6 +364,41 @@ calendar_full_portlet::remove_self_from_page $workspace_portal_id $g_cal_id } + ad_proc -public add_portlet { + args + } { + A helper proc to add the underlying portlet to the given portal. + + @param args a list-ified array of args defined in add_applet_to_community + } { + ns_log notice "** Error in [get_pretty_name]: 'add_portlet' not implemented!" + ad_return_complaint 1 "Please notifiy the administrator of this error: + ** Error in [get_pretty_name]: 'add_portlet' not implemented!" + } + + ad_proc -public remove_portlet { + args + } { + A helper proc to remove the underlying portlet from the given portal. + + @param args a list-ified array of args defined in remove_applet_from_community + } { + ns_log notice "** Error in [get_pretty_name]: 'remove_portlet' not implemented!" + ad_return_complaint 1 "Please notifiy the administrator of this error: + ** Error in [get_pretty_name]: 'remove_portlet' not implemented!" + } + + ad_proc -public clone { + old_community_id + new_community_id + } { + Clone this applet's content from the old community to the new one + } { + ns_log notice "** Error in [get_pretty_name] 'clone' not implemented!" + ad_return_complaint 1 "Please notifiy the administrator of this error: + ** Error in [get_pretty_name]: 'clone' not implemented!" + } + # # Some dotlrn_calendar specific procs # Index: openacs-4/packages/dotlrn-dotlrn/sql/oracle/dotlrn-dotlrn-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-dotlrn/sql/oracle/dotlrn-dotlrn-create.sql,v diff -u -r1.7 -r1.8 --- openacs-4/packages/dotlrn-dotlrn/sql/oracle/dotlrn-dotlrn-create.sql 7 May 2002 22:06:11 -0000 1.7 +++ openacs-4/packages/dotlrn-dotlrn/sql/oracle/dotlrn-dotlrn-create.sql 10 May 2002 06:35:14 -0000 1.8 @@ -121,6 +121,32 @@ 'TCL' ); + -- AddPortlet + foo := acs_sc_impl.new_alias ( + impl_contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_dotlrn', + impl_operation_name => 'AddPortlet', + impl_alias => 'dotlrn_dotlrn::add_portlet', + impl_pl => 'TCL' + ); + + -- RemovePortlet + foo := acs_sc_impl.new_alias ( + impl_contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_dotlrn', + impl_operation_name => 'RemovePortlet', + impl_alias => 'dotlrn_dotlrn::remove_portlet', + impl_pl => 'TCL' + ); + + -- Clone + foo := acs_sc_impl.new_alias ( + impl_contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_dotlrn', + impl_operation_name => 'Clone', + impl_alias => 'dotlrn_dotlrn::clone', + impl_pl => 'TCL' + ); -- Add the binding acs_sc_binding.new ( contract_name => 'dotlrn_applet', Index: openacs-4/packages/dotlrn-dotlrn/sql/oracle/dotlrn-members-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-dotlrn/sql/oracle/dotlrn-members-create.sql,v diff -u -r1.3 -r1.4 --- openacs-4/packages/dotlrn-dotlrn/sql/oracle/dotlrn-members-create.sql 7 May 2002 22:06:11 -0000 1.3 +++ openacs-4/packages/dotlrn-dotlrn/sql/oracle/dotlrn-members-create.sql 10 May 2002 06:35:14 -0000 1.4 @@ -120,6 +120,33 @@ 'TCL' ); + -- AddPortlet + foo := acs_sc_impl.new_alias ( + impl_contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_members', + impl_operation_name => 'AddPortlet', + impl_alias => 'dotlrn_members::add_portlet', + impl_pl => 'TCL' + ); + + -- RemovePortlet + foo := acs_sc_impl.new_alias ( + impl_contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_members', + impl_operation_name => 'RemovePortlet', + impl_alias => 'dotlrn_members::remove_portlet', + impl_pl => 'TCL' + ); + + -- Clone + foo := acs_sc_impl.new_alias ( + impl_contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_members', + impl_operation_name => 'Clone', + impl_alias => 'dotlrn_members::clone', + impl_pl => 'TCL' + ); + -- Add the binding acs_sc_binding.new ( contract_name => 'dotlrn_applet', Index: openacs-4/packages/dotlrn-dotlrn/sql/oracle/dotlrn-members-staff-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-dotlrn/sql/oracle/dotlrn-members-staff-create.sql,v diff -u -r1.3 -r1.4 --- openacs-4/packages/dotlrn-dotlrn/sql/oracle/dotlrn-members-staff-create.sql 7 May 2002 22:06:11 -0000 1.3 +++ openacs-4/packages/dotlrn-dotlrn/sql/oracle/dotlrn-members-staff-create.sql 10 May 2002 06:35:14 -0000 1.4 @@ -120,6 +120,33 @@ 'TCL' ); + -- AddPortlet + foo := acs_sc_impl.new_alias ( + impl_contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_members_staff', + impl_operation_name => 'AddPortlet', + impl_alias => 'dotlrn_members_staff::add_portlet', + impl_pl => 'TCL' + ); + + -- RemovePortlet + foo := acs_sc_impl.new_alias ( + impl_contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_members_staff', + impl_operation_name => 'RemovePortlet', + impl_alias => 'dotlrn_members_staff::remove_portlet', + impl_pl => 'TCL' + ); + + -- Clone + foo := acs_sc_impl.new_alias ( + impl_contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_members_staff', + impl_operation_name => 'Clone', + impl_alias => 'dotlrn_members_staff::clone', + impl_pl => 'TCL' + ); + -- Add the binding acs_sc_binding.new ( contract_name => 'dotlrn_applet', Index: openacs-4/packages/dotlrn-dotlrn/sql/postgresql/dotlrn-dotlrn-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-dotlrn/sql/postgresql/dotlrn-dotlrn-create.sql,v diff -u -r1.1 -r1.2 --- openacs-4/packages/dotlrn-dotlrn/sql/postgresql/dotlrn-dotlrn-create.sql 29 Mar 2002 16:59:13 -0000 1.1 +++ openacs-4/packages/dotlrn-dotlrn/sql/postgresql/dotlrn-dotlrn-create.sql 10 May 2002 06:35:14 -0000 1.2 @@ -96,6 +96,32 @@ 'TCL' ); + -- AddPortlet + select acs_sc_impl_alias__new ( + 'dotlrn_applet', + 'dotlrn_dotlrn', + 'AddPortlet', + 'dotlrn_dotlrn::add_portlet', + 'TCL' + ); + + -- RemovePortlet + select acs_sc_impl_alias__new ( + 'dotlrn_applet', + 'dotlrn_dotlrn', + 'RemovePortlet', + 'dotlrn_dotlrn::remove_portlet', + 'TCL' + ); + + -- Clone + select acs_sc_impl_alias__new ( + 'dotlrn_applet', + 'dotlrn_dotlrn', + 'Clone', + 'dotlrn_dotlrn::clone', + 'TCL' + ); -- Add the binding select acs_sc_binding__new ( contract_name => 'dotlrn_applet', Index: openacs-4/packages/dotlrn-dotlrn/sql/postgresql/dotlrn-members-staff-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-dotlrn/sql/postgresql/dotlrn-members-staff-create.sql,v diff -u -r1.1 -r1.2 --- openacs-4/packages/dotlrn-dotlrn/sql/postgresql/dotlrn-members-staff-create.sql 29 Mar 2002 16:59:13 -0000 1.1 +++ openacs-4/packages/dotlrn-dotlrn/sql/postgresql/dotlrn-members-staff-create.sql 10 May 2002 06:35:14 -0000 1.2 @@ -96,9 +96,37 @@ 'TCL' ); + + -- AddUserToCommunity + select acs_sc_impl_alias__new ( + 'dotlrn_applet', + 'dotlrn_members_staff', + 'AddUserToCommunity', + 'dotlrn_members_staff::add_user_to_community', + 'TCL' + ); + + -- RemoveUser + select acs_sc_impl_alias__new ( + 'dotlrn_applet', + 'dotlrn_members_staff', + 'RemoveUser', + 'dotlrn_members_staff::remove_user', + 'TCL' + ); + + -- RemoveUserFromCommunity + select acs_sc_impl_alias__new ( + 'dotlrn_applet', + 'dotlrn_members_staff', + 'RemoveUserFromCommunity', + 'dotlrn_members_staff::remove_user_from_community', + 'TCL' + ); + -- Add the binding select acs_sc_binding__new ( contract_name => 'dotlrn_applet', - impl_name => 'dotlrn_members_staff' + impl_name => 'dotlrn_members_staff_staff' ); end; Index: openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-dotlrn-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-dotlrn-procs.tcl,v diff -u -r1.22 -r1.23 --- openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-dotlrn-procs.tcl 9 May 2002 23:59:52 -0000 1.22 +++ openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-dotlrn-procs.tcl 10 May 2002 06:35:14 -0000 1.23 @@ -126,4 +126,39 @@ } { } + ad_proc -public add_portlet { + args + } { + A helper proc to add the underlying portlet to the given portal. + + @param args a list-ified array of args defined in add_applet_to_community + } { + ns_log notice "** Error in [get_pretty_name]: 'add_portlet' not implemented!" + ad_return_complaint 1 "Please notifiy the administrator of this error: + ** Error in [get_pretty_name]: 'add_portlet' not implemented!" + } + + ad_proc -public remove_portlet { + args + } { + A helper proc to remove the underlying portlet from the given portal. + + @param args a list-ified array of args defined in remove_applet_from_community + } { + ns_log notice "** Error in [get_pretty_name]: 'remove_portlet' not implemented!" + ad_return_complaint 1 "Please notifiy the administrator of this error: + ** Error in [get_pretty_name]: 'remove_portlet' not implemented!" + } + + ad_proc -public clone { + old_community_id + new_community_id + } { + Clone this applet's content from the old community to the new one + } { + ns_log notice "** Error in [get_pretty_name] 'clone' not implemented!" + ad_return_complaint 1 "Please notifiy the administrator of this error: + ** Error in [get_pretty_name]: 'clone' not implemented!" + } + } Index: openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-members-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-members-procs.tcl,v diff -u -r1.6 -r1.7 --- openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-members-procs.tcl 9 May 2002 23:59:52 -0000 1.6 +++ openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-members-procs.tcl 10 May 2002 06:35:14 -0000 1.7 @@ -140,4 +140,39 @@ } { } + ad_proc -public add_portlet { + args + } { + A helper proc to add the underlying portlet to the given portal. + + @param args a list-ified array of args defined in add_applet_to_community + } { + ns_log notice "** Error in [get_pretty_name]: 'add_portlet' not implemented!" + ad_return_complaint 1 "Please notifiy the administrator of this error: + ** Error in [get_pretty_name]: 'add_portlet' not implemented!" + } + + ad_proc -public remove_portlet { + args + } { + A helper proc to remove the underlying portlet from the given portal. + + @param args a list-ified array of args defined in remove_applet_from_community + } { + ns_log notice "** Error in [get_pretty_name]: 'remove_portlet' not implemented!" + ad_return_complaint 1 "Please notifiy the administrator of this error: + ** Error in [get_pretty_name]: 'remove_portlet' not implemented!" + } + + ad_proc -public clone { + old_community_id + new_community_id + } { + Clone this applet's content from the old community to the new one + } { + ns_log notice "** Error in [get_pretty_name] 'clone' not implemented!" + ad_return_complaint 1 "Please notifiy the administrator of this error: + ** Error in [get_pretty_name]: 'clone' not implemented!" + } + } Index: openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-members-staff-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-members-staff-procs.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-members-staff-procs.tcl 9 May 2002 23:59:52 -0000 1.4 +++ openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-members-staff-procs.tcl 10 May 2002 06:35:14 -0000 1.5 @@ -99,5 +99,40 @@ Remove a user from a community } { } + + ad_proc -public add_portlet { + args + } { + A helper proc to add the underlying portlet to the given portal. + + @param args a list-ified array of args defined in add_applet_to_community + } { + ns_log notice "** Error in [get_pretty_name]: 'add_portlet' not implemented!" + ad_return_complaint 1 "Please notifiy the administrator of this error: + ** Error in [get_pretty_name]: 'add_portlet' not implemented!" + } + + ad_proc -public remove_portlet { + args + } { + A helper proc to remove the underlying portlet from the given portal. + + @param args a list-ified array of args defined in remove_applet_from_community + } { + ns_log notice "** Error in [get_pretty_name]: 'remove_portlet' not implemented!" + ad_return_complaint 1 "Please notifiy the administrator of this error: + ** Error in [get_pretty_name]: 'remove_portlet' not implemented!" + } + + ad_proc -public clone { + old_community_id + new_community_id + } { + Clone this applet's content from the old community to the new one + } { + ns_log notice "** Error in [get_pretty_name] 'clone' not implemented!" + ad_return_complaint 1 "Please notifiy the administrator of this error: + ** Error in [get_pretty_name]: 'clone' not implemented!" + } } Index: openacs-4/packages/dotlrn-faq/sql/oracle/dotlrn-faq-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-faq/sql/oracle/dotlrn-faq-create.sql,v diff -u -r1.6 -r1.7 --- openacs-4/packages/dotlrn-faq/sql/oracle/dotlrn-faq-create.sql 7 May 2002 22:06:11 -0000 1.6 +++ openacs-4/packages/dotlrn-faq/sql/oracle/dotlrn-faq-create.sql 10 May 2002 06:35:14 -0000 1.7 @@ -120,6 +120,33 @@ 'TCL' ); + -- AddPortlet + foo := acs_sc_impl.new_alias ( + impl_contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_faq', + impl_operation_name => 'AddPortlet', + impl_alias => 'dotlrn_faq::add_portlet', + impl_pl => 'TCL' + ); + + -- RemovePortlet + foo := acs_sc_impl.new_alias ( + impl_contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_faq', + impl_operation_name => 'RemovePortlet', + impl_alias => 'dotlrn_faq::remove_portlet', + impl_pl => 'TCL' + ); + + -- Clone + foo := acs_sc_impl.new_alias ( + impl_contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_faq', + impl_operation_name => 'Clone', + impl_alias => 'dotlrn_faq::clone', + impl_pl => 'TCL' + ); + -- Add the binding acs_sc_binding.new ( contract_name => 'dotlrn_applet', Index: openacs-4/packages/dotlrn-faq/tcl/dotlrn-faq-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-faq/tcl/dotlrn-faq-procs.tcl,v diff -u -r1.28 -r1.29 --- openacs-4/packages/dotlrn-faq/tcl/dotlrn-faq-procs.tcl 9 May 2002 23:59:52 -0000 1.28 +++ openacs-4/packages/dotlrn-faq/tcl/dotlrn-faq-procs.tcl 10 May 2002 06:35:14 -0000 1.29 @@ -155,4 +155,39 @@ faq_portlet::remove_self_from_page $portal_id $package_id } + ad_proc -public add_portlet { + args + } { + A helper proc to add the underlying portlet to the given portal. + + @param args a list-ified array of args defined in add_applet_to_community + } { + ns_log notice "** Error in [get_pretty_name]: 'add_portlet' not implemented!" + ad_return_complaint 1 "Please notifiy the administrator of this error: + ** Error in [get_pretty_name]: 'add_portlet' not implemented!" + } + + ad_proc -public remove_portlet { + args + } { + A helper proc to remove the underlying portlet from the given portal. + + @param args a list-ified array of args defined in remove_applet_from_community + } { + ns_log notice "** Error in [get_pretty_name]: 'remove_portlet' not implemented!" + ad_return_complaint 1 "Please notifiy the administrator of this error: + ** Error in [get_pretty_name]: 'remove_portlet' not implemented!" + } + + ad_proc -public clone { + old_community_id + new_community_id + } { + Clone this applet's content from the old community to the new one + } { + ns_log notice "** Error in [get_pretty_name] 'clone' not implemented!" + ad_return_complaint 1 "Please notifiy the administrator of this error: + ** Error in [get_pretty_name]: 'clone' not implemented!" + } + } Index: openacs-4/packages/dotlrn-fs/sql/oracle/dotlrn-fs-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-fs/sql/oracle/dotlrn-fs-create.sql,v diff -u -r1.7 -r1.8 --- openacs-4/packages/dotlrn-fs/sql/oracle/dotlrn-fs-create.sql 7 May 2002 22:06:11 -0000 1.7 +++ openacs-4/packages/dotlrn-fs/sql/oracle/dotlrn-fs-create.sql 10 May 2002 06:35:15 -0000 1.8 @@ -120,6 +120,33 @@ 'TCL' ); + -- AddPortlet + foo := acs_sc_impl.new_alias ( + impl_contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_fs', + impl_operation_name => 'AddPortlet', + impl_alias => 'dotlrn_fs::add_portlet', + impl_pl => 'TCL' + ); + + -- RemovePortlet + foo := acs_sc_impl.new_alias ( + impl_contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_fs', + impl_operation_name => 'RemovePortlet', + impl_alias => 'dotlrn_fs::remove_portlet', + impl_pl => 'TCL' + ); + + -- Clone + foo := acs_sc_impl.new_alias ( + impl_contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_fs', + impl_operation_name => 'Clone', + impl_alias => 'dotlrn_fs::clone', + impl_pl => 'TCL' + ); + -- Add the binding acs_sc_binding.new ( contract_name => 'dotlrn_applet', Index: openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl,v diff -u -r1.56 -r1.57 --- openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl 10 May 2002 00:49:13 -0000 1.56 +++ openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl 10 May 2002 06:35:15 -0000 1.57 @@ -451,4 +451,39 @@ fs_portlet::remove_self_from_page $portal_id $package_id $folder_id } + ad_proc -public add_portlet { + args + } { + A helper proc to add the underlying portlet to the given portal. + + @param args a list-ified array of args defined in add_applet_to_community + } { + ns_log notice "** Error in [get_pretty_name]: 'add_portlet' not implemented!" + ad_return_complaint 1 "Please notifiy the administrator of this error: + ** Error in [get_pretty_name]: 'add_portlet' not implemented!" + } + + ad_proc -public remove_portlet { + args + } { + A helper proc to remove the underlying portlet from the given portal. + + @param args a list-ified array of args defined in remove_applet_from_community + } { + ns_log notice "** Error in [get_pretty_name]: 'remove_portlet' not implemented!" + ad_return_complaint 1 "Please notifiy the administrator of this error: + ** Error in [get_pretty_name]: 'remove_portlet' not implemented!" + } + + ad_proc -public clone { + old_community_id + new_community_id + } { + Clone this applet's content from the old community to the new one + } { + ns_log notice "** Error in [get_pretty_name] 'clone' not implemented!" + ad_return_complaint 1 "Please notifiy the administrator of this error: + ** Error in [get_pretty_name]: 'clone' not implemented!" + } + } Index: openacs-4/packages/dotlrn-news/sql/oracle/dotlrn-news-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-news/sql/oracle/dotlrn-news-create.sql,v diff -u -r1.5 -r1.6 --- openacs-4/packages/dotlrn-news/sql/oracle/dotlrn-news-create.sql 7 May 2002 22:06:11 -0000 1.5 +++ openacs-4/packages/dotlrn-news/sql/oracle/dotlrn-news-create.sql 10 May 2002 06:35:15 -0000 1.6 @@ -120,6 +120,33 @@ 'TCL' ); + -- AddPortlet + foo := acs_sc_impl.new_alias ( + impl_contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_news', + impl_operation_name => 'AddPortlet', + impl_alias => 'dotlrn_news::add_portlet', + impl_pl => 'TCL' + ); + + -- RemovePortlet + foo := acs_sc_impl.new_alias ( + impl_contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_news', + impl_operation_name => 'RemovePortlet', + impl_alias => 'dotlrn_news::remove_portlet', + impl_pl => 'TCL' + ); + + -- Clone + foo := acs_sc_impl.new_alias ( + impl_contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_news', + impl_operation_name => 'Clone', + impl_alias => 'dotlrn_news::clone', + impl_pl => 'TCL' + ); + -- Add the binding acs_sc_binding.new ( contract_name => 'dotlrn_applet', Index: openacs-4/packages/dotlrn-news/tcl/dotlrn-news-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-news/tcl/dotlrn-news-procs.tcl,v diff -u -r1.18 -r1.19 --- openacs-4/packages/dotlrn-news/tcl/dotlrn-news-procs.tcl 9 May 2002 23:59:52 -0000 1.18 +++ openacs-4/packages/dotlrn-news/tcl/dotlrn-news-procs.tcl 10 May 2002 06:35:15 -0000 1.19 @@ -142,4 +142,39 @@ news_portlet::remove_self_from_page $portal_id $package_id } + ad_proc -public add_portlet { + args + } { + A helper proc to add the underlying portlet to the given portal. + + @param args a list-ified array of args defined in add_applet_to_community + } { + ns_log notice "** Error in [get_pretty_name]: 'add_portlet' not implemented!" + ad_return_complaint 1 "Please notifiy the administrator of this error: + ** Error in [get_pretty_name]: 'add_portlet' not implemented!" + } + + ad_proc -public remove_portlet { + args + } { + A helper proc to remove the underlying portlet from the given portal. + + @param args a list-ified array of args defined in remove_applet_from_community + } { + ns_log notice "** Error in [get_pretty_name]: 'remove_portlet' not implemented!" + ad_return_complaint 1 "Please notifiy the administrator of this error: + ** Error in [get_pretty_name]: 'remove_portlet' not implemented!" + } + + ad_proc -public clone { + old_community_id + new_community_id + } { + Clone this applet's content from the old community to the new one + } { + ns_log notice "** Error in [get_pretty_name] 'clone' not implemented!" + ad_return_complaint 1 "Please notifiy the administrator of this error: + ** Error in [get_pretty_name]: 'clone' not implemented!" + } + } Index: openacs-4/packages/dotlrn-portlet/tcl/dotlrn-admin-portlet-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-portlet/tcl/dotlrn-admin-portlet-procs.tcl,v diff -u -r1.6 -r1.7 --- openacs-4/packages/dotlrn-portlet/tcl/dotlrn-admin-portlet-procs.tcl 9 May 2002 23:59:52 -0000 1.6 +++ openacs-4/packages/dotlrn-portlet/tcl/dotlrn-admin-portlet-procs.tcl 10 May 2002 06:35:15 -0000 1.7 @@ -29,7 +29,7 @@ ad_proc -private get_my_name { } { - return "dotlrn_admin_portlet" + return "dotlrn_admin_portlet" } ad_proc -public get_pretty_name { Index: openacs-4/packages/dotlrn-static/sql/oracle/dotlrn-static-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-static/sql/oracle/dotlrn-static-create.sql,v diff -u -r1.4 -r1.5 --- openacs-4/packages/dotlrn-static/sql/oracle/dotlrn-static-create.sql 7 May 2002 22:06:12 -0000 1.4 +++ openacs-4/packages/dotlrn-static/sql/oracle/dotlrn-static-create.sql 10 May 2002 06:35:15 -0000 1.5 @@ -118,6 +118,33 @@ 'TCL' ); + -- AddPortlet + foo := acs_sc_impl.new_alias ( + impl_contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_static', + impl_operation_name => 'AddPortlet', + impl_alias => 'dotlrn_static::add_portlet', + impl_pl => 'TCL' + ); + + -- RemovePortlet + foo := acs_sc_impl.new_alias ( + impl_contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_static', + impl_operation_name => 'RemovePortlet', + impl_alias => 'dotlrn_static::remove_portlet', + impl_pl => 'TCL' + ); + + -- Clone + foo := acs_sc_impl.new_alias ( + impl_contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_static', + impl_operation_name => 'Clone', + impl_alias => 'dotlrn_static::clone', + impl_pl => 'TCL' + ); + -- Add the binding acs_sc_binding.new ( contract_name => 'dotlrn_applet', Index: openacs-4/packages/dotlrn-static/tcl/dotlrn-static-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-static/tcl/dotlrn-static-procs.tcl,v diff -u -r1.15 -r1.16 --- openacs-4/packages/dotlrn-static/tcl/dotlrn-static-procs.tcl 9 May 2002 23:59:52 -0000 1.15 +++ openacs-4/packages/dotlrn-static/tcl/dotlrn-static-procs.tcl 10 May 2002 06:35:15 -0000 1.16 @@ -176,4 +176,39 @@ } { } + ad_proc -public add_portlet { + args + } { + A helper proc to add the underlying portlet to the given portal. + + @param args a list-ified array of args defined in add_applet_to_community + } { + ns_log notice "** Error in [get_pretty_name]: 'add_portlet' not implemented!" + ad_return_complaint 1 "Please notifiy the administrator of this error: + ** Error in [get_pretty_name]: 'add_portlet' not implemented!" + } + + ad_proc -public remove_portlet { + args + } { + A helper proc to remove the underlying portlet from the given portal. + + @param args a list-ified array of args defined in remove_applet_from_community + } { + ns_log notice "** Error in [get_pretty_name]: 'remove_portlet' not implemented!" + ad_return_complaint 1 "Please notifiy the administrator of this error: + ** Error in [get_pretty_name]: 'remove_portlet' not implemented!" + } + + ad_proc -public clone { + old_community_id + new_community_id + } { + Clone this applet's content from the old community to the new one + } { + ns_log notice "** Error in [get_pretty_name] 'clone' not implemented!" + ad_return_complaint 1 "Please notifiy the administrator of this error: + ** Error in [get_pretty_name]: 'clone' not implemented!" + } + } Index: openacs-4/packages/dotlrn-syllabus/sql/oracle/dotlrn-syllabus-applet-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-syllabus/sql/oracle/dotlrn-syllabus-applet-create.sql,v diff -u -r1.2 -r1.3 --- openacs-4/packages/dotlrn-syllabus/sql/oracle/dotlrn-syllabus-applet-create.sql 7 May 2002 22:06:12 -0000 1.2 +++ openacs-4/packages/dotlrn-syllabus/sql/oracle/dotlrn-syllabus-applet-create.sql 10 May 2002 06:35:15 -0000 1.3 @@ -114,6 +114,33 @@ impl_pl => 'TCL' ); + -- AddPortlet + foo := acs_sc_impl.new_alias ( + impl_contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_syllabus', + impl_operation_name => 'AddPortlet', + impl_alias => 'dotlrn_syllabus::add_portlet', + impl_pl => 'TCL' + ); + + -- RemovePortlet + foo := acs_sc_impl.new_alias ( + impl_contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_syllabus', + impl_operation_name => 'RemovePortlet', + impl_alias => 'dotlrn_syllabus::remove_portlet', + impl_pl => 'TCL' + ); + + -- Clone + foo := acs_sc_impl.new_alias ( + impl_contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_syllabus', + impl_operation_name => 'Clone', + impl_alias => 'dotlrn_syllabus::clone', + impl_pl => 'TCL' + ); + -- Add the binding acs_sc_binding.new ( contract_name => 'dotlrn_applet', Index: openacs-4/packages/dotlrn-syllabus/tcl/dotlrn-syllabus-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-syllabus/tcl/dotlrn-syllabus-procs.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/dotlrn-syllabus/tcl/dotlrn-syllabus-procs.tcl 9 May 2002 23:59:53 -0000 1.2 +++ openacs-4/packages/dotlrn-syllabus/tcl/dotlrn-syllabus-procs.tcl 10 May 2002 06:35:15 -0000 1.3 @@ -66,7 +66,7 @@ Used for one-time destroy - must be repeatable! } { } - + ad_proc -public add_applet_to_community { community_id } { @@ -120,4 +120,39 @@ } { } + ad_proc -public add_portlet { + args + } { + A helper proc to add the underlying portlet to the given portal. + + @param args a list-ified array of args defined in add_applet_to_community + } { + ns_log notice "** Error in [get_pretty_name]: 'add_portlet' not implemented!" + ad_return_complaint 1 "Please notifiy the administrator of this error: + ** Error in [get_pretty_name]: 'add_portlet' not implemented!" + } + + ad_proc -public remove_portlet { + args + } { + A helper proc to remove the underlying portlet from the given portal. + + @param args a list-ified array of args defined in remove_applet_from_community + } { + ns_log notice "** Error in [get_pretty_name]: 'remove_portlet' not implemented!" + ad_return_complaint 1 "Please notifiy the administrator of this error: + ** Error in [get_pretty_name]: 'remove_portlet' not implemented!" + } + + ad_proc -public clone { + old_community_id + new_community_id + } { + Clone this applet's content from the old community to the new one + } { + ns_log notice "** Error in [get_pretty_name] 'clone' not implemented!" + ad_return_complaint 1 "Please notifiy the administrator of this error: + ** Error in [get_pretty_name]: 'clone' not implemented!" + } + }