Index: openacs-4/contrib/packages/dotlrn-research/dotlrn-research.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/dotlrn-research/Attic/dotlrn-research.info,v diff -u -N --- openacs-4/contrib/packages/dotlrn-research/dotlrn-research.info 29 Mar 2004 09:49:03 -0000 1.2 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,29 +0,0 @@ - - - - - dotLRN Research Paper - dotLRN Research Papers - f - t - - - - oracle - postgresql - - Yonatan Feldman - OpenForce - Code delivered to Sloan by OpenForce. As far as we know it is not finished, and certainly needs much updating. - - - - - - - - - - - - Index: openacs-4/contrib/packages/dotlrn-research/sql/oracle/dotlrn-research-applet-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/dotlrn-research/sql/oracle/Attic/dotlrn-research-applet-create.sql,v diff -u -N --- openacs-4/contrib/packages/dotlrn-research/sql/oracle/dotlrn-research-applet-create.sql 14 Nov 2003 20:57:06 -0000 1.1 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,146 +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. --- - --- --- Creates the research paper module dotLRN applet --- --- @author yon (yon@openforce.net) --- @creation-date 2002-02-24 --- @version $Id: dotlrn-research-applet-create.sql,v 1.1 2003/11/14 20:57:06 janines Exp $ --- - -declare - foo integer; -begin - - foo := acs_sc_impl.new( - impl_contract_name => 'dotlrn_applet', - impl_name => 'dotlrn_research', - impl_owner_name => 'dotlrn_research' - ); - - foo := acs_sc_impl.new_alias( - impl_contract_name => 'dotlrn_applet', - impl_name => 'dotlrn_research', - impl_operation_name => 'GetPrettyName', - impl_alias => 'dotlrn_research::get_pretty_name', - impl_pl => 'TCL' - ); - - foo := acs_sc_impl.new_alias( - impl_contract_name => 'dotlrn_applet', - impl_name => 'dotlrn_research', - impl_operation_name => 'AddApplet', - impl_alias => 'dotlrn_research::add_applet', - impl_pl => 'TCL' - ); - - foo := acs_sc_impl.new_alias( - impl_contract_name => 'dotlrn_applet', - impl_name => 'dotlrn_research', - impl_operation_name => 'RemoveApplet', - impl_alias => 'dotlrn_research::remove_applet', - impl_pl => 'TCL' - ); - - foo := acs_sc_impl.new_alias( - impl_contract_name => 'dotlrn_applet', - impl_name => 'dotlrn_research', - impl_operation_name => 'AddAppletToCommunity', - impl_alias => 'dotlrn_research::add_applet_to_community', - impl_pl => 'TCL' - ); - - foo := acs_sc_impl.new_alias( - impl_contract_name => 'dotlrn_applet', - impl_name => 'dotlrn_research', - impl_operation_name => 'RemoveAppletFromCommunity', - impl_alias => 'dotlrn_research::remove_applet_from_community', - impl_pl => 'TCL' - ); - - foo := acs_sc_impl.new_alias( - impl_contract_name => 'dotlrn_applet', - impl_name => 'dotlrn_research', - impl_operation_name => 'AddUser', - impl_alias => 'dotlrn_research::add_user', - impl_pl => 'TCL' - ); - - foo := acs_sc_impl.new_alias( - impl_contract_name => 'dotlrn_applet', - impl_name => 'dotlrn_research', - impl_operation_name => 'RemoveUser', - impl_alias => 'dotlrn_research::remove_user', - impl_pl => 'TCL' - ); - - foo := acs_sc_impl.new_alias( - impl_contract_name => 'dotlrn_applet', - impl_name => 'dotlrn_research', - impl_operation_name => 'AddUserToCommunity', - impl_alias => 'dotlrn_research::add_user_to_community', - impl_pl => 'TCL' - ); - - foo := acs_sc_impl.new_alias( - impl_contract_name => 'dotlrn_applet', - impl_name => 'dotlrn_research', - impl_operation_name => 'RemoveUserFromCommunity', - impl_alias => 'dotlrn_research::remove_user_from_community', - impl_pl => 'TCL' - ); - - foo := acs_sc_impl.new_alias( - impl_contract_name => 'dotlrn_applet', - impl_name => 'dotlrn_research', - impl_operation_name => 'AddPortlet', - impl_alias => 'dotlrn_research::add_portlet', - impl_pl => 'TCL' - ); - - foo := acs_sc_impl.new_alias( - impl_contract_name => 'dotlrn_applet', - impl_name => 'dotlrn_research', - impl_operation_name => 'RemovePortlet', - impl_alias => 'dotlrn_research::remove_portlet', - impl_pl => 'TCL' - ); - - foo := acs_sc_impl.new_alias( - impl_contract_name => 'dotlrn_applet', - impl_name => 'dotlrn_research', - impl_operation_name => 'Clone', - impl_alias => 'dotlrn_research::clone', - impl_pl => 'TCL' - ); - - foo := acs_sc_impl.new_alias( - impl_contract_name => 'dotlrn_applet', - impl_name => 'dotlrn_research', - impl_operation_name => 'ChangeEventHandler', - impl_alias => 'dotlrn_research::change_event_handler', - impl_pl => 'TCL' - ); - - acs_sc_binding.new( - contract_name => 'dotlrn_applet', - impl_name => 'dotlrn_research' - ); - -end; -/ -show errors Index: openacs-4/contrib/packages/dotlrn-research/sql/oracle/dotlrn-research-applet-drop.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/dotlrn-research/sql/oracle/Attic/dotlrn-research-applet-drop.sql,v diff -u -N --- openacs-4/contrib/packages/dotlrn-research/sql/oracle/dotlrn-research-applet-drop.sql 14 Nov 2003 20:57:06 -0000 1.1 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,113 +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. --- - --- --- Drops the research paper module dotLRN applet --- --- @author yon (yon@openforce.net) --- @creation-date 2002-02-24 --- @version $Id: dotlrn-research-applet-drop.sql,v 1.1 2003/11/14 20:57:06 janines Exp $ --- - -declare - foo integer; -begin - - acs_sc_binding.delete( - contract_name => 'dotlrn_applet', - impl_name => 'dotlrn_research' - ); - - foo := acs_sc_impl.delete_alias( - impl_contract_name => 'dotlrn_applet', - impl_name => 'dotlrn_research', - impl_operation_name => 'GetPrettyName' - ); - - foo := acs_sc_impl.delete_alias( - impl_contract_name => 'dotlrn_applet', - impl_name => 'dotlrn_research', - impl_operation_name => 'AddApplet' - ); - - foo := acs_sc_impl.delete_alias( - impl_contract_name => 'dotlrn_applet', - impl_name => 'dotlrn_research', - impl_operation_name => 'RemoveApplet' - ); - - foo := acs_sc_impl.delete_alias( - impl_contract_name => 'dotlrn_applet', - impl_name => 'dotlrn_research', - impl_operation_name => 'AddAppletToCommunity' - ); - - foo := acs_sc_impl.delete_alias( - impl_contract_name => 'dotlrn_applet', - impl_name => 'dotlrn_research', - impl_operation_name => 'RemoveAppletFromCommunity' - ); - - foo := acs_sc_impl.delete_alias( - impl_contract_name => 'dotlrn_applet', - impl_name => 'dotlrn_research', - impl_operation_name => 'AddUser' - ); - - foo := acs_sc_impl.delete_alias( - impl_contract_name => 'dotlrn_applet', - impl_name => 'dotlrn_research', - impl_operation_name => 'RemoveUser' - ); - - foo := acs_sc_impl.delete_alias( - impl_contract_name => 'dotlrn_applet', - impl_name => 'dotlrn_research', - impl_operation_name => 'AddUserToCommunity' - ); - - foo := acs_sc_impl.delete_alias( - impl_contract_name => 'dotlrn_applet', - impl_name => 'dotlrn_research', - impl_operation_name => 'RemoveUserFromCommunity' - ); - - foo := acs_sc_impl.delete_alias( - impl_contract_name => 'dotlrn_applet', - impl_name => 'dotlrn_research', - impl_operation_name => 'AddPortlet' - ); - - foo := acs_sc_impl.delete_alias( - impl_contract_name => 'dotlrn_applet', - impl_name => 'dotlrn_research', - impl_operation_name => 'RemovePortlet' - ); - - foo := acs_sc_impl.delete_alias( - impl_contract_name => 'dotlrn_applet', - impl_name => 'dotlrn_research', - impl_operation_name => 'Clone' - ); - - acs_sc_impl.delete( - impl_contract_name => 'dotlrn_applet', - impl_name => 'dotlrn_research' - ); - -end; -/ -show errors Index: openacs-4/contrib/packages/dotlrn-research/sql/oracle/dotlrn-research-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/dotlrn-research/sql/oracle/Attic/dotlrn-research-create.sql,v diff -u -N --- openacs-4/contrib/packages/dotlrn-research/sql/oracle/dotlrn-research-create.sql 14 Nov 2003 20:57:06 -0000 1.1 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,25 +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. --- - --- --- Creates the dotLRN research paper module --- --- @author yon (yon@openforce.net) --- @creation-date 2002-02-24 --- @version $Id: dotlrn-research-create.sql,v 1.1 2003/11/14 20:57:06 janines Exp $ --- - -@@ dotlrn-research-applet-create.sql Index: openacs-4/contrib/packages/dotlrn-research/sql/oracle/dotlrn-research-drop.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/dotlrn-research/sql/oracle/Attic/dotlrn-research-drop.sql,v diff -u -N --- openacs-4/contrib/packages/dotlrn-research/sql/oracle/dotlrn-research-drop.sql 14 Nov 2003 20:57:06 -0000 1.1 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,25 +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. --- - --- --- Creates the dotLRN research paper module --- --- @author yon (yon@openforce.net) --- @creation-date 2002-02-24 --- @version $Id: dotlrn-research-drop.sql,v 1.1 2003/11/14 20:57:06 janines Exp $ --- - -@@ dotlrn-research-applet-drop.sql Index: openacs-4/contrib/packages/dotlrn-research/sql/postgresql/dotlrn-research-applet-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/dotlrn-research/sql/postgresql/Attic/dotlrn-research-applet-create.sql,v diff -u -N --- openacs-4/contrib/packages/dotlrn-research/sql/postgresql/dotlrn-research-applet-create.sql 14 Nov 2003 20:57:06 -0000 1.1 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,142 +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. --- - --- --- Creates the research paper module dotLRN applet --- --- @author yon (yon@openforce.net) --- @creation-date 2002-02-24 --- @version $Id: dotlrn-research-applet-create.sql,v 1.1 2003/11/14 20:57:06 janines Exp $ --- --- postgresql port adarsh@symphinity.com --- --- 11th July 2002 --- - -select acs_sc_impl__new ( - 'dotlrn_applet', - 'dotlrn_research', - 'dotlrn_research' -); - -select acs_sc_impl_alias__new ( - 'dotlrn_applet', - 'dotlrn_research', - 'GetPrettyName', - 'dotlrn_research::get_pretty_name', - 'TCL' -); - -select acs_sc_impl_alias__new ( - 'dotlrn_applet', - 'dotlrn_research', - 'AddApplet', - 'dotlrn_research::add_applet', - 'TCL' -); - -select acs_sc_impl_alias__new ( - 'dotlrn_applet', - 'dotlrn_research', - 'RemoveApplet', - 'dotlrn_research::remove_applet', - 'TCL' -); - -select acs_sc_impl_alias__new ( - 'dotlrn_applet', - 'dotlrn_research', - 'AddAppletToCommunity', - 'dotlrn_research::add_applet_to_community', - 'TCL' -); - -select acs_sc_impl_alias__new ( - 'dotlrn_applet', - 'dotlrn_research', - 'RemoveAppletFromCommunity', - 'dotlrn_research::remove_applet_from_community', - 'TCL' -); - -select acs_sc_impl_alias__new ( - 'dotlrn_applet', - 'dotlrn_research', - 'AddUser', - 'dotlrn_research::add_user', - 'TCL' -); - -select acs_sc_impl_alias__new ( - 'dotlrn_applet', - 'dotlrn_research', - 'RemoveUser', - 'dotlrn_research::remove_user', - 'TCL' -); - -select acs_sc_impl_alias__new ( - 'dotlrn_applet', - 'dotlrn_research', - 'AddUserToCommunity', - 'dotlrn_research::add_user_to_community', - 'TCL' -); - -select acs_sc_impl_alias__new ( - 'dotlrn_applet', - 'dotlrn_research', - 'RemoveUserFromCommunity', - 'dotlrn_research::remove_user_from_community', - 'TCL' -); - -select acs_sc_impl_alias__new ( - 'dotlrn_applet', - 'dotlrn_research', - 'AddPortlet', - 'dotlrn_research::add_portlet', - 'TCL' -); - -select acs_sc_impl_alias__new ( - 'dotlrn_applet', - 'dotlrn_research', - 'RemovePortlet', - 'dotlrn_research::remove_portlet', - 'TCL' -); - -select acs_sc_impl_alias__new ( - 'dotlrn_applet', - 'dotlrn_research', - 'Clone', - 'dotlrn_research::clone', - 'TCL' -); - -select acs_sc_impl_alias__new ( - 'dotlrn_applet', - 'dotlrn_research', - 'ChangeEventHandler', - 'dotlrn_research::change_event_handler', - 'TCL' -); - -select acs_sc_binding__new ( - 'dotlrn_applet', - 'dotlrn_research' -); Index: openacs-4/contrib/packages/dotlrn-research/sql/postgresql/dotlrn-research-applet-drop.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/dotlrn-research/sql/postgresql/Attic/dotlrn-research-applet-drop.sql,v diff -u -N --- openacs-4/contrib/packages/dotlrn-research/sql/postgresql/dotlrn-research-applet-drop.sql 14 Nov 2003 20:57:06 -0000 1.1 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,109 +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. --- - --- --- Drops the research paper module dotLRN applet --- --- @author yon (yon@openforce.net) --- @creation-date 2002-02-24 --- @version $Id: dotlrn-research-applet-drop.sql,v 1.1 2003/11/14 20:57:06 janines Exp $ --- --- postgresql port adarsh@symphinity.com --- --- 11th July 2002 --- - -select acs_sc_binding__delete ( - 'dotlrn_applet', - 'dotlrn_research' -); - -select acs_sc_impl_alias__delete ( - 'dotlrn_applet', - 'dotlrn_research', - 'GetPrettyName' -); - -select acs_sc_impl_alias__delete ( - 'dotlrn_applet', - 'dotlrn_research', - 'AddApplet' -); - -select acs_sc_impl_alias__delete ( - 'dotlrn_applet', - 'dotlrn_research', - 'RemoveApplet' -); - -select acs_sc_impl_alias__delete ( - 'dotlrn_applet', - 'dotlrn_research', - 'AddAppletToCommunity' -); - -select acs_sc_impl_alias__delete ( - 'dotlrn_applet', - 'dotlrn_research', - 'RemoveAppletFromCommunity' -); - -select acs_sc_impl_alias__delete ( - 'dotlrn_applet', - 'dotlrn_research', - 'AddUser' -); - -select acs_sc_impl_alias__delete ( - 'dotlrn_applet', - 'dotlrn_research', - 'RemoveUser' -); - -select acs_sc_impl_alias__delete ( - 'dotlrn_applet', - 'dotlrn_research', - 'AddUserToCommunity' -); - -select acs_sc_impl_alias__delete ( - 'dotlrn_applet', - 'dotlrn_research', - 'RemoveUserFromCommunity' -); - -select acs_sc_impl_alias__delete ( - 'dotlrn_applet', - 'dotlrn_research', - 'AddPortlet' -); - -select acs_sc_impl_alias__delete ( - 'dotlrn_applet', - 'dotlrn_research', - 'RemovePortlet' -); - -select acs_sc_impl_alias__delete ( - 'dotlrn_applet', - 'dotlrn_research', - 'Clone' -); - -select acs_sc_impl__delete ( - 'dotlrn_applet', - 'dotlrn_research' -); Index: openacs-4/contrib/packages/dotlrn-research/sql/postgresql/dotlrn-research-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/dotlrn-research/sql/postgresql/Attic/dotlrn-research-create.sql,v diff -u -N --- openacs-4/contrib/packages/dotlrn-research/sql/postgresql/dotlrn-research-create.sql 14 Nov 2003 20:57:06 -0000 1.1 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,29 +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. --- - --- --- Creates the dotLRN research paper module --- --- @author yon (yon@openforce.net) --- @creation-date 2002-02-24 --- @version $Id: dotlrn-research-create.sql,v 1.1 2003/11/14 20:57:06 janines Exp $ --- --- postgresql port adarsh@symphinity.com --- --- 11th July 2002 --- - -\i dotlrn-research-applet-create.sql Index: openacs-4/contrib/packages/dotlrn-research/sql/postgresql/dotlrn-research-drop.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/dotlrn-research/sql/postgresql/Attic/dotlrn-research-drop.sql,v diff -u -N --- openacs-4/contrib/packages/dotlrn-research/sql/postgresql/dotlrn-research-drop.sql 14 Nov 2003 20:57:06 -0000 1.1 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,29 +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. --- - --- --- Creates the dotLRN research paper module --- --- @author yon (yon@openforce.net) --- @creation-date 2002-02-24 --- @version $Id: dotlrn-research-drop.sql,v 1.1 2003/11/14 20:57:06 janines Exp $ --- --- postgresql port adarsh@symphinity.com --- --- 11th July 2002 --- - -\i dotlrn-research-applet-drop.sql Index: openacs-4/contrib/packages/dotlrn-research/tcl/dotlrn-research-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/dotlrn-research/tcl/Attic/dotlrn-research-procs.tcl,v diff -u -N --- openacs-4/contrib/packages/dotlrn-research/tcl/dotlrn-research-procs.tcl 14 Nov 2003 20:57:06 -0000 1.1 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,173 +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. -# - -ad_library { - - Procs to set up the dotLRN research module applet - - @author yon (yon@openforce.net) - @creation-date 2002-02-25 - @version $Id: dotlrn-research-procs.tcl,v 1.1 2003/11/14 20:57:06 janines Exp $ - -} - -namespace eval dotlrn_research { - - ad_proc -public applet_key { - } { - What's my applet key? - } { - return dotlrn_research - } - - ad_proc -public package_key { - } { - What package do I deal with? - } { - return dotlrn-research - } - - ad_proc -public get_pretty_name { - } { - returns the pretty name - } { - return "Research Papers" - } - - ad_proc -public add_applet { - } { - Used for one-time init - must be repeatable! - } { - dotlrn_applet::add_applet_to_dotlrn \ - -applet_key [applet_key] \ - -package_key [package_key] - } - - ad_proc -public remove_applet { - } { - Used for one-time destroy - must be repeatable! - } { - ad_return_complaint 1 "[applet_key] remove_applet not implimented!" - } - - ad_proc -public add_applet_to_community { - community_id - } { - Add the research paper applet to a specifc dotlrn community - } { - set node_id [site_node::new \ - -name [research_paper::get_url] \ - -parent_id [site_node::get_node_id_from_object_id -object_id [dotlrn_community::get_package_id $community_id]] - ] - - set package_id [apm_package_id_from_key "research-papers"] - set admins [dotlrn_community::get_admin_rel_id -community_id $community_id] - permission::grant -party_id $admins -object_id $package_id -privilege admin - - site_node::mount \ - -node_id $node_id \ - -object_id $package_id - - set type [dotlrn_community::get_toplevel_community_type_from_community_id $community_id] - - set portal_id [dotlrn_community::get_portal_id -community_id $community_id] - add_portlet_helper $portal_id - set admin_portal_id [dotlrn_community::get_admin_portal_id -community_id $community_id] - - # Only add the admin portlet if it's a personal community - if {$type == "dotlrn_pers_community"} { - research_admin_portlet::add_self_to_page -portal_id $admin_portal_id - } - - research_admin_approval_portlet::add_self_to_page -portal_id $admin_portal_id - - } - - ad_proc -public remove_applet_from_community { - community_id - } { - remove the applet from the community - } { - ad_return_complaint 1 "[applet_key] remove_applet_from_community not implimented!" - } - - ad_proc -public add_user { - user_id - } { - # no-op - } - - ad_proc -public remove_user { - user_id - } { - # no-op - } - - ad_proc -public add_user_to_community { - community_id - user_id - } { - # no-op - } - - ad_proc -public remove_user_from_community { - community_id - user_id - } { - # no-op - } - - ad_proc -public add_portlet { - portal_id - } { - set type [dotlrn::get_type_from_portal_id -portal_id $portal_id] - - if {[string equal $type dotlrn_class_instance] || [string equal $type dotlrn_pers_community]} { - add_portlet_helper $portal_id - } - } - - ad_proc -public add_portlet_helper { - portal_id - } { - research_portlet::add_self_to_page -portal_id $portal_id - } - - ad_proc -public remove_portlet { - portal_id - } { - # no-op - } - - ad_proc -public clone { - old_community_id - new_community_id - } { - ns_log notice "Cloning: [applet_key]" - add_applet_to_community $new_community_id - } - - ad_proc -public change_event_handler { - community_id - event - old_value - new_value - } { - listens for the following events: - } { - } - -}