Index: openacs-4/packages/dotlrn-syllabus/dotlrn-syllabus.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-syllabus/dotlrn-syllabus.info,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-syllabus/dotlrn-syllabus.info 27 Apr 2002 17:20:15 -0000 1.1 @@ -0,0 +1,51 @@ + + + + + dotLRN Syllabus + dotLRN Syllabi + f + f + + + + oracle + postgresql + + Arjun Sanyal + OpenForce, Inc + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-syllabus/sql/oracle/dotlrn-syllabus-applet-create.sql 27 Apr 2002 17:20:15 -0000 1.1 @@ -0,0 +1,116 @@ +-- +-- Copyright (C) 2001, 2002 OpenForce, Inc. +-- +-- 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 syllabus paper module dotLRN applet +-- +-- @author arjun (arjun@openforce.net) +-- @creation-date 2002-02-24 +-- @version $Id: dotlrn-syllabus-applet-create.sql,v 1.1 2002/04/27 17:20:15 arjun Exp $ +-- + +declare + foo integer; +begin + + -- create the implementation + foo := acs_sc_impl.new ( + impl_contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_syllabus', + impl_owner_name => 'dotlrn_syllabus' + ); + + -- GetPrettyName + foo := acs_sc_impl.new_alias ( + impl_contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_syllabus', + impl_operation_name => 'GetPrettyName', + impl_alias => 'dotlrn_syllabus::get_pretty_name', + impl_pl => 'TCL' + ); + + -- AddApplet + foo := acs_sc_impl.new_alias ( + impl_contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_syllabus', + impl_operation_name => 'AddApplet', + impl_alias => 'dotlrn_syllabus::add_applet', + impl_pl => 'TCL' + ); + + -- AddAppletToCommunity + foo := acs_sc_impl.new_alias ( + impl_contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_syllabus', + impl_operation_name => 'AddAppletToCommunity', + impl_alias => 'dotlrn_syllabus::add_applet_to_community', + impl_pl => 'TCL' + ); + + -- RemoveApplet + foo := acs_sc_impl.new_alias ( + impl_contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_syllabus', + impl_operation_name => 'RemoveApplet', + impl_alias => 'dotlrn_syllabus::remove_applet', + impl_pl => 'TCL' + ); + + -- AddUser + foo := acs_sc_impl.new_alias ( + impl_contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_syllabus', + impl_operation_name => 'AddUser', + impl_alias => 'dotlrn_syllabus::add_user', + impl_pl => 'TCL' + ); + + -- AddUserToCommunity + foo := acs_sc_impl.new_alias ( + impl_contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_syllabus', + impl_operation_name => 'AddUserToCommunity', + impl_alias => 'dotlrn_syllabus::add_user_to_community', + impl_pl => 'TCL' + ); + + -- RemoveUser + foo := acs_sc_impl.new_alias ( + impl_contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_syllabus', + impl_operation_name => 'RemoveUser', + impl_alias => 'dotlrn_syllabus::remove_user', + impl_pl => 'TCL' + ); + + -- RemoveUserFromCommunity + foo := acs_sc_impl.new_alias ( + impl_contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_syllabus', + impl_operation_name => 'RemoveUserFromCommunity', + impl_alias => 'dotlrn_syllabus::remove_user_from_community', + impl_pl => 'TCL' + ); + + -- Add the binding + acs_sc_binding.new ( + contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_syllabus' + ); + +end; +/ +show errors Index: openacs-4/packages/dotlrn-syllabus/sql/oracle/dotlrn-syllabus-applet-drop.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-syllabus/sql/oracle/dotlrn-syllabus-applet-drop.sql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-syllabus/sql/oracle/dotlrn-syllabus-applet-drop.sql 27 Apr 2002 17:20:15 -0000 1.1 @@ -0,0 +1,97 @@ +-- +-- Copyright (C) 2001, 2002 OpenForce, Inc. +-- +-- 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 syllabus module dotLRN applet +-- +-- @author yon (yon@openforce.net) +-- @creation-date 2002-02-24 +-- @version $Id: dotlrn-syllabus-applet-drop.sql,v 1.1 2002/04/27 17:20:15 arjun Exp $ +-- + +declare + foo integer; +begin + + acs_sc_binding.delete ( + contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_syllabus' + ); + + -- GetPrettyName + foo := acs_sc_impl.delete_alias ( + impl_contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_syllabus', + impl_operation_name => 'GetPrettyName' + ); + + -- AddApplet + foo := acs_sc_impl.delete_alias ( + impl_contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_syllabus', + impl_operation_name => 'AddApplet' + ); + + -- AddAppletToCommunity + foo := acs_sc_impl.delete_alias ( + impl_contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_syllabus', + impl_operation_name => 'AddAppletToCommunity' + ); + + -- RemoveApplet + foo := acs_sc_impl.delete_alias ( + impl_contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_syllabus', + impl_operation_name => 'RemoveApplet' + ); + + -- AddUser + foo := acs_sc_impl.delete_alias ( + impl_contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_syllabus', + impl_operation_name => 'AddUser' + ); + + -- AddUserToCommunity + foo := acs_sc_impl.delete_alias ( + impl_contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_syllabus', + impl_operation_name => 'AddUserToCommunity' + ); + + -- RemoveUser + foo := acs_sc_impl.delete_alias ( + impl_contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_syllabus', + impl_operation_name => 'RemoveUser' + ); + + -- RemoveUserFromCommunity + foo := acs_sc_impl.delete_alias ( + impl_contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_syllabus', + impl_operation_name => 'RemoveUserFromCommunity' + ); + + acs_sc_impl.delete ( + impl_contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_syllabus' + ); + +end; +/ +show errors Index: openacs-4/packages/dotlrn-syllabus/sql/oracle/dotlrn-syllabus-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-syllabus/sql/oracle/dotlrn-syllabus-create.sql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-syllabus/sql/oracle/dotlrn-syllabus-create.sql 27 Apr 2002 17:20:15 -0000 1.1 @@ -0,0 +1,26 @@ +-- +-- Copyright (C) 2001, 2002 OpenForce, Inc. +-- +-- 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 syllabus module +-- +-- @author arjun (arjun@openforce.net) +-- @version $Id: dotlrn-syllabus-create.sql,v 1.1 2002/04/27 17:20:15 arjun Exp $ +-- + +@@ syllabus-portlet-create.sql; +@@ syllabus-admin-portlet-create.sql; +@@ dotlrn-syllabus-applet-create.sql Index: openacs-4/packages/dotlrn-syllabus/sql/oracle/dotlrn-syllabus-drop.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-syllabus/sql/oracle/dotlrn-syllabus-drop.sql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-syllabus/sql/oracle/dotlrn-syllabus-drop.sql 27 Apr 2002 17:20:15 -0000 1.1 @@ -0,0 +1,27 @@ +-- +-- Copyright (C) 2001, 2002 OpenForce, Inc. +-- +-- 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 syllabus module +-- +-- @author arjun (arjun@openforce.net) +-- @creation-date 2002-02-24 +-- @version $Id: dotlrn-syllabus-drop.sql,v 1.1 2002/04/27 17:20:15 arjun Exp $ +-- + +@@ dotlrn-syllabus-applet-drop.sql +@@ syllabus-admin-portlet-drop.sql; +@@ syllabus-portlet-drop.sql; Index: openacs-4/packages/dotlrn-syllabus/sql/oracle/syllabus-admin-portlet-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-syllabus/sql/oracle/syllabus-admin-portlet-create.sql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-syllabus/sql/oracle/syllabus-admin-portlet-create.sql 27 Apr 2002 17:20:15 -0000 1.1 @@ -0,0 +1,168 @@ +-- +-- Copyright (C) 2001, 2002 OpenForce, Inc. +-- +-- 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 syllabus module portlet +-- +-- @author arjun (arjun@openforce.net) +-- @version $Id: syllabus-admin-portlet-create.sql,v 1.1 2002/04/27 17:20:15 arjun Exp $ +-- + +declare + ds_id portal_datasources.datasource_id%TYPE; + foo integer; +begin + + ds_id := portal_datasource.new( + name => 'syllabus_admin_portlet', + description => 'A syllabus' + ); + + -- 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' + ); + + -- create the implementation + foo := acs_sc_impl.new( + 'portal_datasource', + 'syllabus_admin_portlet', + 'syllabus_admin_portlet' + ); + + -- add all the hooks + foo := acs_sc_impl.new_alias( + 'portal_datasource', + 'syllabus_admin_portlet', + 'MyName', + 'syllabus_admin_portlet::my_name', + 'TCL' + ); + + foo := acs_sc_impl.new_alias( + 'portal_datasource', + 'syllabus_admin_portlet', + 'GetPrettyName', + 'syllabus_admin_portlet::get_pretty_name', + 'TCL' + ); + + foo := acs_sc_impl.new_alias( + 'portal_datasource', + 'syllabus_admin_portlet', + 'Link', + 'syllabus_admin_portlet::link', + 'TCL' + ); + + foo := acs_sc_impl.new_alias( + 'portal_datasource', + 'syllabus_admin_portlet', + 'AddSelfToPage', + 'syllabus_admin_portlet::add_self_to_page', + 'TCL' + ); + + foo := acs_sc_impl.new_alias( + 'portal_datasource', + 'syllabus_admin_portlet', + 'Show', + 'syllabus_admin_portlet::show', + 'TCL' + ); + + foo := acs_sc_impl.new_alias( + 'portal_datasource', + 'syllabus_admin_portlet', + 'Edit', + 'syllabus_admin_portlet::edit', + 'TCL' + ); + + foo := acs_sc_impl.new_alias( + 'portal_datasource', + 'syllabus_admin_portlet', + 'RemoveSelfFromPage', + 'syllabus_admin_portlet::remove_self_from_page', + 'TCL' + ); + + foo := acs_sc_impl.new_alias( + 'portal_datasource', + 'syllabus_admin_portlet', + 'MakeSelfAvailable', + 'syllabus_admin_portlet::make_self_available', + 'TCL' + ); + + foo := acs_sc_impl.new_alias( + 'portal_datasource', + 'syllabus_admin_portlet', + 'MakeSelfUnavailable', + 'syllabus_admin_portlet::make_self_unavailable', + 'TCL' + ); + + -- Add the binding + acs_sc_binding.new( + contract_name => 'portal_datasource', + impl_name => 'syllabus_admin_portlet' + ); + +end; +/ +show errors Index: openacs-4/packages/dotlrn-syllabus/sql/oracle/syllabus-admin-portlet-drop.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-syllabus/sql/oracle/syllabus-admin-portlet-drop.sql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-syllabus/sql/oracle/syllabus-admin-portlet-drop.sql 27 Apr 2002 17:20:15 -0000 1.1 @@ -0,0 +1,108 @@ +-- +-- Copyright (C) 2001, 2002 OpenForce, Inc. +-- +-- 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 syllabus module portlet +-- +-- @author arjun (arjun@openforce.net) +-- @creation-date 2002-02-24 +-- @version $Id: syllabus-admin-portlet-drop.sql,v 1.1 2002/04/27 17:20:15 arjun Exp $ +-- + +declare + ds_id portal_datasources.datasource_id%TYPE; + foo integer; +begin + + begin + select datasource_id + into ds_id + from portal_datasources + where name = 'syllabus_admin_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; + + acs_sc_binding.delete( + contract_name => 'portal_datasource', + impl_name => 'syllabus_admin_portlet' + ); + + foo := acs_sc_impl.delete_alias( + impl_contract_name => 'portal_datasource', + impl_name => 'syllabus_admin_portlet', + impl_operation_name => 'MyName' + ); + + foo := acs_sc_impl.delete_alias( + impl_contract_name => 'portal_datasource', + impl_name => 'syllabus_admin_portlet', + impl_operation_name => 'GetPrettyName' + ); + + foo := acs_sc_impl.delete_alias( + impl_contract_name => 'portal_datasource', + impl_name => 'syllabus_admin_portlet', + impl_operation_name => 'Link' + ); + + foo := acs_sc_impl.delete_alias( + impl_contract_name => 'portal_datasource', + impl_name => 'syllabus_admin_portlet', + impl_operation_name => 'AddSelfToPage' + ); + + foo := acs_sc_impl.delete_alias( + impl_contract_name => 'portal_datasource', + impl_name => 'syllabus_admin_portlet', + impl_operation_name => 'Show' + ); + + foo := acs_sc_impl.delete_alias( + impl_contract_name => 'portal_datasource', + impl_name => 'syllabus_admin_portlet', + impl_operation_name => 'Edit' + ); + + foo := acs_sc_impl.delete_alias( + impl_contract_name => 'portal_datasource', + impl_name => 'syllabus_admin_portlet', + impl_operation_name => 'RemoveSelfFromPage' + ); + + foo := acs_sc_impl.delete_alias( + impl_contract_name => 'portal_datasource', + impl_name => 'syllabus_admin_portlet', + impl_operation_name => 'MakeSelfAvailable' + ); + + foo := acs_sc_impl.delete_alias( + impl_contract_name => 'portal_datasource', + impl_name => 'syllabus_admin_portlet', + impl_operation_name => 'MakeSelfUnavailable' + ); + + acs_sc_impl.delete( + impl_contract_name => 'portal_datasource', + impl_name => 'syllabus_admin_portlet' + ); +end; +/ +show errors Index: openacs-4/packages/dotlrn-syllabus/sql/oracle/syllabus-portlet-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-syllabus/sql/oracle/syllabus-portlet-create.sql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-syllabus/sql/oracle/syllabus-portlet-create.sql 27 Apr 2002 17:20:15 -0000 1.1 @@ -0,0 +1,166 @@ +-- +-- Copyright (C) 2001, 2002 OpenForce, Inc. +-- +-- 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 syllabus module portlet +-- +-- @author arjun (arjun@openforce.net) +-- @version $Id: syllabus-portlet-create.sql,v 1.1 2002/04/27 17:20:15 arjun Exp $ +-- + +declare + ds_id portal_datasources.datasource_id%TYPE; + foo integer; +begin + ds_id := portal_datasource.new( + name => 'syllabus_portlet', + description => 'A portlet for a syllabus of a class' + ); + + -- 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' + ); + + -- create the implementation + foo := acs_sc_impl.new( + 'portal_datasource', + 'syllabus_portlet', + 'syllabus_portlet' + ); + + -- add all the hooks + foo := acs_sc_impl.new_alias( + 'portal_datasource', + 'syllabus_portlet', + 'MyName', + 'syllabus_portlet::my_name', + 'TCL' + ); + + foo := acs_sc_impl.new_alias( + 'portal_datasource', + 'syllabus_portlet', + 'GetPrettyName', + 'syllabus_portlet::get_pretty_name', + 'TCL' + ); + + foo := acs_sc_impl.new_alias( + 'portal_datasource', + 'syllabus_portlet', + 'Link', + 'syllabus_portlet::link', + 'TCL' + ); + + foo := acs_sc_impl.new_alias( + 'portal_datasource', + 'syllabus_portlet', + 'AddSelfToPage', + 'syllabus_portlet::add_self_to_page', + 'TCL' + ); + + foo := acs_sc_impl.new_alias( + 'portal_datasource', + 'syllabus_portlet', + 'Show', + 'syllabus_portlet::show', + 'TCL' + ); + + foo := acs_sc_impl.new_alias( + 'portal_datasource', + 'syllabus_portlet', + 'Edit', + 'syllabus_portlet::edit', + 'TCL' + ); + + foo := acs_sc_impl.new_alias( + 'portal_datasource', + 'syllabus_portlet', + 'RemoveSelfFromPage', + 'syllabus_portlet::remove_self_from_page', + 'TCL' + ); + + foo := acs_sc_impl.new_alias( + 'portal_datasource', + 'syllabus_portlet', + 'MakeSelfAvailable', + 'syllabus_portlet::make_self_available', + 'TCL' + ); + + foo := acs_sc_impl.new_alias( + 'portal_datasource', + 'syllabus_portlet', + 'MakeSelfUnavailable', + 'syllabus_portlet::make_self_unavailable', + 'TCL' + ); + + -- Add the binding + acs_sc_binding.new( + contract_name => 'portal_datasource', + impl_name => 'syllabus_portlet' + ); +end; +/ +show errors Index: openacs-4/packages/dotlrn-syllabus/sql/oracle/syllabus-portlet-drop.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-syllabus/sql/oracle/syllabus-portlet-drop.sql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-syllabus/sql/oracle/syllabus-portlet-drop.sql 27 Apr 2002 17:20:15 -0000 1.1 @@ -0,0 +1,108 @@ +-- +-- Copyright (C) 2001, 2002 OpenForce, Inc. +-- +-- 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 syllabus paper module portlet +-- +-- @author arjun (arjun@openforce.net) +-- @creation-date 2002-02-24 +-- @version $Id: syllabus-portlet-drop.sql,v 1.1 2002/04/27 17:20:15 arjun Exp $ +-- + +declare + ds_id portal_datasources.datasource_id%TYPE; + foo integer; +begin + + begin + select datasource_id + into ds_id + from portal_datasources + where name = 'syllabus_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; + + acs_sc_binding.delete( + contract_name => 'portal_datasource', + impl_name => 'syllabus_portlet' + ); + + foo := acs_sc_impl.delete_alias( + impl_contract_name => 'portal_datasource', + impl_name => 'syllabus_portlet', + impl_operation_name => 'MyName' + ); + + foo := acs_sc_impl.delete_alias( + impl_contract_name => 'portal_datasource', + impl_name => 'syllabus_portlet', + impl_operation_name => 'GetPrettyName' + ); + + foo := acs_sc_impl.delete_alias( + impl_contract_name => 'portal_datasource', + impl_name => 'syllabus_portlet', + impl_operation_name => 'Link' + ); + + foo := acs_sc_impl.delete_alias( + impl_contract_name => 'portal_datasource', + impl_name => 'syllabus_portlet', + impl_operation_name => 'AddSelfToPage' + ); + + foo := acs_sc_impl.delete_alias( + impl_contract_name => 'portal_datasource', + impl_name => 'syllabus_portlet', + impl_operation_name => 'Show' + ); + + foo := acs_sc_impl.delete_alias( + impl_contract_name => 'portal_datasource', + impl_name => 'syllabus_portlet', + impl_operation_name => 'Edit' + ); + + foo := acs_sc_impl.delete_alias( + impl_contract_name => 'portal_datasource', + impl_name => 'syllabus_portlet', + impl_operation_name => 'RemoveSelfFromPage' + ); + + foo := acs_sc_impl.delete_alias( + impl_contract_name => 'portal_datasource', + impl_name => 'syllabus_portlet', + impl_operation_name => 'MakeSelfAvailable' + ); + + foo := acs_sc_impl.delete_alias( + impl_contract_name => 'portal_datasource', + impl_name => 'syllabus_portlet', + impl_operation_name => 'MakeSelfUnavailable' + ); + + acs_sc_impl.delete( + impl_contract_name => 'portal_datasource', + impl_name => 'syllabus_portlet' + ); +end; +/ +show errors Index: openacs-4/packages/dotlrn-syllabus/tcl/dotlrn-syllabus-admin-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-syllabus/tcl/dotlrn-syllabus-admin-procs.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-syllabus/tcl/dotlrn-syllabus-admin-procs.tcl 27 Apr 2002 17:20:15 -0000 1.1 @@ -0,0 +1,113 @@ +# +# Copyright (C) 2001, 2002 OpenForce, Inc. +# +# 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 syllabus module applet + + @author arjun (arjun@openforce.net) + @version $Id: dotlrn-syllabus-admin-procs.tcl,v 1.1 2002/04/27 17:20:15 arjun Exp $ + +} + +namespace eval dotlrn_syllabus_admin { + + ad_proc -public applet_key { + } { + get the package_key this applet deals with + } { + return "dotlrn_syllabus_admin" + } + + ad_proc -public package_key { + } { + get the package_key this applet deals with + } { + return "file-storage" + } + + ad_proc portal_element_key { + } { + return the portal element key + } { + return "syllabus-portlet" + } + + ad_proc -public get_pretty_name { + } { + returns the pretty name + } { + return "dotLRN Syllabus" + } + + ad_proc -public add_applet { + } { + Used for one-time init - must be repeatable! + } { + dotlrn_applet::add_applet_to_dotlrn -applet_key [applet_key] + } + + ad_proc -public add_applet_to_community { + community_id + } { + Add the syllabus applet to a specifc dotlrn community + } { + set pt_id \ + [dotlrn_community::get_community_admin_portal_id $community_id] + + syllabus_admin_portlet::make_self_available $pt_id + syllabus_admin_portlet::add_self_to_page $pt_id $community_id + } + + ad_proc -public remove_applet { + community_id + package_id + } { + remove the applet from the community + } { + } + + ad_proc -public add_user { + user_id + } { + No user specifc actions + } { + } + + ad_proc -public add_user_to_community { + community_id + user_id + } { + No user specifc actions + } { + } + + ad_proc -public remove_user { + user_id + } { + No user specifc actions + } { + } + + ad_proc -public remove_user_from_community { + community_id + user_id + } { + No user specifc actions + } { + } + +} Index: openacs-4/packages/dotlrn-syllabus/tcl/dotlrn-syllabus-admin-procs.tcl~ =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-syllabus/tcl/Attic/dotlrn-syllabus-admin-procs.tcl~,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-syllabus/tcl/dotlrn-syllabus-admin-procs.tcl~ 27 Apr 2002 17:20:15 -0000 1.1 @@ -0,0 +1,113 @@ +# +# Copyright (C) 2001, 2002 OpenForce, Inc. +# +# 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 syllabus module applet + + @author arjun (arjun@openforce.net) + @version $Id: dotlrn-syllabus-admin-procs.tcl~,v 1.1 2002/04/27 17:20:15 arjun Exp $ + +} + +namespace eval dotlrn_syllabus_admin { + + ad_proc -public applet_key { + } { + get the package_key this applet deals with + } { + return "dotlrn_syllabus_admin" + } + + ad_proc -public package_key { + } { + get the package_key this applet deals with + } { + return "file-storage" + } + + ad_proc portal_element_key { + } { + return the portal element key + } { + return "syllabus-portlet" + } + + ad_proc -public get_pretty_name { + } { + returns the pretty name + } { + return "dotLRN Syllabus" + } + + ad_proc -public add_applet { + } { + Used for one-time init - must be repeatable! + } { + dotlrn_applet::add_applet_to_dotlrn -applet_key [applet_key] + } + + ad_proc -public add_applet_to_community { + community_id + } { + Add the syllabus applet to a specifc dotlrn community + } { + set pt_id \ + [dotlrn_community::get_community_admin_portal_id $community_id] + + syllabus_admin_portlet::make_self_available $pt_id + syllabus_admin_portlet::add_self_to_page $pt_id "" $community_id + } + + ad_proc -public remove_applet { + community_id + package_id + } { + remove the applet from the community + } { + } + + ad_proc -public add_user { + user_id + } { + No user specifc actions + } { + } + + ad_proc -public add_user_to_community { + community_id + user_id + } { + No user specifc actions + } { + } + + ad_proc -public remove_user { + user_id + } { + No user specifc actions + } { + } + + ad_proc -public remove_user_from_community { + community_id + user_id + } { + No user specifc actions + } { + } + +} 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 --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-syllabus/tcl/dotlrn-syllabus-procs.tcl 27 Apr 2002 17:20:15 -0000 1.1 @@ -0,0 +1,125 @@ +# +# Copyright (C) 2001, 2002 OpenForce, Inc. +# +# 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 syllabus applet + + @author arjun (arjun@openforce.net) + @creation-date 2002-02-25 + @version $Id: dotlrn-syllabus-procs.tcl,v 1.1 2002/04/27 17:20:15 arjun Exp $ + +} + +namespace eval dotlrn_syllabus { + + ad_proc -public applet_key { + } { + get the package_key this applet deals with + } { + return "dotlrn_syllabus" + } + + ad_proc -public package_key { + } { + get the package_key this applet deals with + } { + return "dotlrn-syllabus" + } + + ad_proc portal_element_key { + } { + return the portal element key + } { + return "syllabus-portlet" + } + + ad_proc -public get_pretty_name { + } { + returns the pretty name + } { + return "dotLRN Syllabus" + } + + ad_proc -public add_applet { + } { + Used for one-time init - must be repeatable! + } { + dotlrn_applet::add_applet_to_dotlrn -applet_key [applet_key] + } + + ad_proc -public remove_applet { + } { + Used for one-time destroy - must be repeatable! + } { + } + + ad_proc -public add_applet_to_community { + community_id + } { + Add the syllabus paper applet to a specifc dotlrn community + } { + set pt_id [dotlrn_community::get_portal_template_id $community_id] + + syllabus_portlet::make_self_available $pt_id + + if {[dotlrn_community::dummy_comm_p -community_id $community_id]} { + syllabus_portlet::add_self_to_page $pt_id $community_id + return + } + + syllabus_portlet::add_self_to_page $pt_id $community_id + + dotlrn_syllabus_admin::add_applet_to_community $community_id + } + + ad_proc -public remove_applet_from_community { + community_id + } { + } { + } + + ad_proc -public add_user { + user_id + } { + No user-specifc actions + } { + } + + ad_proc -public remove_user { + user_id + } { + No user-specifc actions + } { + } + + ad_proc -public add_user_to_community { + community_id + user_id + } { + No user-specifc actions + } { + } + + ad_proc -public remove_user_from_community { + community_id + user_id + } { + No user-specifc actions + } { + } + +} Index: openacs-4/packages/dotlrn-syllabus/tcl/dotlrn-syllabus-procs.tcl~ =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-syllabus/tcl/Attic/dotlrn-syllabus-procs.tcl~,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-syllabus/tcl/dotlrn-syllabus-procs.tcl~ 27 Apr 2002 17:20:15 -0000 1.1 @@ -0,0 +1,125 @@ +# +# Copyright (C) 2001, 2002 OpenForce, Inc. +# +# 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 syllabus applet + + @author arjun (arjun@openforce.net) + @creation-date 2002-02-25 + @version $Id: dotlrn-syllabus-procs.tcl~,v 1.1 2002/04/27 17:20:15 arjun Exp $ + +} + +namespace eval dotlrn_syllabus { + + ad_proc -public applet_key { + } { + get the package_key this applet deals with + } { + return "dotlrn_syllabus" + } + + ad_proc -public package_key { + } { + get the package_key this applet deals with + } { + return "dotlrn-syllabus" + } + + ad_proc portal_element_key { + } { + return the portal element key + } { + return "syllabus-portlet" + } + + ad_proc -public get_pretty_name { + } { + returns the pretty name + } { + return "dotLRN Syllabus" + } + + ad_proc -public add_applet { + } { + Used for one-time init - must be repeatable! + } { + dotlrn_applet::add_applet_to_dotlrn -applet_key [applet_key] + } + + ad_proc -public remove_applet { + } { + Used for one-time destroy - must be repeatable! + } { + } + + ad_proc -public add_applet_to_community { + community_id + } { + Add the syllabus paper applet to a specifc dotlrn community + } { + set pt_id [dotlrn_community::get_portal_template_id $community_id] + + syllabus_portlet::make_self_available $pt_id + + if {[dotlrn_community::dummy_comm_p -community_id $community_id]} { + syllabus_portlet::add_self_to_page $pt_id "" $community_id + return + } + + syllabus_portlet::add_self_to_page $pt_id "" $community_id + + dotlrn_syllabus_admin::add_applet_to_community $community_id + } + + ad_proc -public remove_applet_from_community { + community_id + } { + } { + } + + ad_proc -public add_user { + user_id + } { + No user-specifc actions + } { + } + + ad_proc -public remove_user { + user_id + } { + No user-specifc actions + } { + } + + ad_proc -public add_user_to_community { + community_id + user_id + } { + No user-specifc actions + } { + } + + ad_proc -public remove_user_from_community { + community_id + user_id + } { + No user-specifc actions + } { + } + +} Index: openacs-4/packages/dotlrn-syllabus/tcl/syllabus-admin-portlet-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-syllabus/tcl/syllabus-admin-portlet-procs.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-syllabus/tcl/syllabus-admin-portlet-procs.tcl 27 Apr 2002 17:20:15 -0000 1.1 @@ -0,0 +1,120 @@ +# +# Copyright (C) 2001, 2002 OpenForce, Inc. +# +# 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. +# + +# dotlrn-syllabus/tcl/syllabus-portlet-procs.tcl + +ad_library { + + Procedures to support the syllabus module portlet + + @author arjun (arjun@openforce.net) + @creation-date 2002-02-24 + @version $Id: syllabus-admin-portlet-procs.tcl,v 1.1 2002/04/27 17:20:15 arjun Exp $ + +} + +namespace eval syllabus_admin_portlet { + + ad_proc -private my_package_key { + } { + return "dotlrn-syllabus" + } + + ad_proc -private my_name { + } { + return "syllabus_admin_portlet" + } + + ad_proc -public get_pretty_name { + } { + return "Syllabus" + } + + ad_proc -public link { + } { + return + } + + ad_proc -public add_self_to_page { + {-page_id ""} + portal_id + community_id + } { + Adds a syllabus portlet element to the specified page. + } { + return [portal::add_element_or_append_id \ + -portal_id $portal_id \ + -portlet_name [my_name] \ + -value_id $community_id \ + -key "community_id" + ] + } + + ad_proc -public remove_self_from_page { + portal_id + instance_id + } { + Removes a syllabus portlet element from the specified page. + } { + portal::remove_element_or_remove_id \ + -portal_id $portal_id \ + -portlet_name [my_name] + } + + ad_proc -public make_self_available { + portal_id + } { + Wrapper for the portal:: proc + + @param portal_id + } { + portal::make_datasource_available \ + $portal_id [portal::get_datasource_id [my_name]] + } + + ad_proc -public make_self_unavailable { + portal_id + } { + Wrapper for the portal:: proc + + @param portal_id + } { + portal::make_datasource_unavailable \ + $portal_id [portal::get_datasource_id [my_name]] + } + + ad_proc -public show { + cf + } { + Display the portal element + + @param cf A config array as a list + + @return HTML string + } { + # no return call required with the helper proc + portal::show_proc_helper \ + -template_src "syllabus-admin-portlet" \ + -package_key [my_package_key] \ + -config_list $cf + } + + ad_proc -public edit { + } { + return {} + } + +} Index: openacs-4/packages/dotlrn-syllabus/tcl/syllabus-admin-portlet-procs.tcl~ =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-syllabus/tcl/Attic/syllabus-admin-portlet-procs.tcl~,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-syllabus/tcl/syllabus-admin-portlet-procs.tcl~ 27 Apr 2002 17:20:15 -0000 1.1 @@ -0,0 +1,119 @@ +# +# Copyright (C) 2001, 2002 OpenForce, Inc. +# +# 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. +# + +# dotlrn-syllabus/tcl/syllabus-portlet-procs.tcl + +ad_library { + + Procedures to support the syllabus module portlet + + @author arjun (arjun@openforce.net) + @creation-date 2002-02-24 + @version $Id: syllabus-admin-portlet-procs.tcl~,v 1.1 2002/04/27 17:20:15 arjun Exp $ + +} + +namespace eval syllabus_admin_portlet { + + ad_proc -private my_package_key { + } { + return "dotlrn-syllabus" + } + + ad_proc -private my_name { + } { + return "syllabus_admin_portlet" + } + + ad_proc -public get_pretty_name { + } { + return "Syllabus" + } + + ad_proc -public link { + } { + return + } + + ad_proc -public add_self_to_page { + {-page_id ""} + portal_id + instance_id + } { + Adds a syllabus portlet element to the specified page. + } { + return [portal::add_element_or_append_id \ + -portal_id $portal_id \ + -page_id $page_id \ + -portlet_name [my_name] + ] + } + + ad_proc -public remove_self_from_page { + portal_id + instance_id + } { + Removes a syllabus portlet element from the specified page. + } { + portal::remove_element_or_remove_id \ + -portal_id $portal_id \ + -portlet_name [my_name] + } + + ad_proc -public make_self_available { + portal_id + } { + Wrapper for the portal:: proc + + @param portal_id + } { + portal::make_datasource_available \ + $portal_id [portal::get_datasource_id [my_name]] + } + + ad_proc -public make_self_unavailable { + portal_id + } { + Wrapper for the portal:: proc + + @param portal_id + } { + portal::make_datasource_unavailable \ + $portal_id [portal::get_datasource_id [my_name]] + } + + ad_proc -public show { + cf + } { + Display the portal element + + @param cf A config array as a list + + @return HTML string + } { + # no return call required with the helper proc + portal::show_proc_helper \ + -template_src "syllabus-admin-portlet" \ + -package_key [my_package_key] \ + -config_list $cf + } + + ad_proc -public edit { + } { + return {} + } + +} Index: openacs-4/packages/dotlrn-syllabus/tcl/syllabus-portlet-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-syllabus/tcl/syllabus-portlet-procs.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-syllabus/tcl/syllabus-portlet-procs.tcl 27 Apr 2002 17:20:15 -0000 1.1 @@ -0,0 +1,166 @@ +# +# Copyright (C) 2001, 2002 OpenForce, Inc. +# +# 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. +# + +# dotlrn-syllabus/tcl/syllabus-portlet-procs.tcl + +ad_library { + + Procedures to support the syllabus portlet + + @author arjun (arjun@openforce.net) + @creation-date 2002-02-24 + @version $Id: syllabus-portlet-procs.tcl,v 1.1 2002/04/27 17:20:15 arjun Exp $ + +} + +namespace eval syllabus_portlet { + + ad_proc -private my_package_key { + } { + return "dotlrn-syllabus" + } + + ad_proc -private my_name { + } { + return "syllabus_portlet" + } + + ad_proc -public get_pretty_name { + } { + return "Syllabus" + } + + ad_proc -public link { + } { + return "" + } + + ad_proc -public add_self_to_page { + {-page_id ""} + portal_id + instance_id + } { + Adds a syllabus portlet element to the specified page. + + @param page_id The page to add self to + @param portal_id The portal to add self to + @param instance_id + @return element_id The new element's id + } { + return [portal::add_element_or_append_id \ + -portal_id $portal_id \ + -page_id $page_id \ + -portlet_name [my_name] \ + -pretty_name [get_pretty_name] \ + -key "package_id" \ + -value_id $instance_id + ] + } + + ad_proc -public remove_self_from_page { + portal_id + instance_id + } { + Removes a syllabus portlet element from the specified page. + + @param portal_id The page to remove self from + @param instance_id + @param party_id The party for which to display syllabus papers + } { + portal::remove_element_or_remove_id \ + -portal_id $portal_id \ + -portlet_name [my_name] \ + -key "package_id" \ + -value_id $instance_id + } + + ad_proc -public make_self_available { + portal_id + } { + Wrapper for the portal:: proc + + @param portal_id + } { + portal::make_datasource_available \ + $portal_id [portal::get_datasource_id [my_name]] + } + + ad_proc -public make_self_unavailable { + portal_id + } { + Wrapper for the portal:: proc + + @param portal_id + } { + portal::make_datasource_unavailable \ + $portal_id [portal::get_datasource_id [my_name]] + } + + ad_proc -public show { + cf + } { + Display the portal element + + @param cf A config array as a list + @return HTML string + } { + # no return call required with the helper proc + portal::show_proc_helper \ + -template_src "syllabus-portlet" \ + -package_key [my_package_key] \ + -config_list $cf + } + + ad_proc -public edit { + } { + return {} + } + + ad_proc -public get_syllabus_info_list { + {-community_id:required} + } { + set out_list [list] + + set community_id [dotlrn_community::get_community_id] + set element_id [portal::get_element_ids_by_ds \ + [dotlrn_community::get_portal_template_id $community_id] \ + [fs_portlet::my_name] + ] + set root_folder_id \ + [portal::get_element_param [lindex $element_id 0] "folder_id"] + set public_folder_id \ + [fs::get_folder -parent_id $root_folder_id -name "public"] + + lappend out_list $public_folder_id + + set rows [fs::get_folder_contents -folder_id $public_folder_id \ + -user_id [dotlrn::get_full_users_rel_segment_id] + ] + + # this could move to fs:: + foreach row $rows { + set name [ns_set get $row "name"] + if {[string equal -nocase $name "syllabus"]} { + lappend out_list [ns_set get $row "object_id"] + lappend out_list [ns_set get $row "type"] + lappend out_list [ns_set get $row "live_revision"] + } + } + + return $out_list + } + +} Index: openacs-4/packages/dotlrn-syllabus/tcl/syllabus-portlet-procs.tcl~ =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-syllabus/tcl/Attic/syllabus-portlet-procs.tcl~,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-syllabus/tcl/syllabus-portlet-procs.tcl~ 27 Apr 2002 17:20:15 -0000 1.1 @@ -0,0 +1,164 @@ +# +# Copyright (C) 2001, 2002 OpenForce, Inc. +# +# 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. +# + +# dotlrn-syllabus/tcl/syllabus-portlet-procs.tcl + +ad_library { + + Procedures to support the syllabus portlet + + @author arjun (arjun@openforce.net) + @creation-date 2002-02-24 + @version $Id: syllabus-portlet-procs.tcl~,v 1.1 2002/04/27 17:20:15 arjun Exp $ + +} + +namespace eval syllabus_portlet { + + ad_proc -private my_package_key { + } { + return "dotlrn-syllabus" + } + + ad_proc -private my_name { + } { + return "syllabus_portlet" + } + + ad_proc -public get_pretty_name { + } { + return "Syllabus" + } + + ad_proc -public link { + } { + return "" + } + + ad_proc -public add_self_to_page { + {-page_id ""} + portal_id + instance_id + } { + Adds a syllabus portlet element to the specified page. + + @param page_id The page to add self to + @param portal_id The portal to add self to + @param instance_id + @return element_id The new element's id + } { + return [portal::add_element_or_append_id \ + -portal_id $portal_id \ + -page_id $page_id \ + -portlet_name [my_name] \ + -pretty_name [get_pretty_name] \ + -key "package_id" \ + -value_id $instance_id + ] + } + + ad_proc -public remove_self_from_page { + portal_id + instance_id + } { + Removes a syllabus portlet element from the specified page. + + @param portal_id The page to remove self from + @param instance_id + @param party_id The party for which to display syllabus papers + } { + portal::remove_element_or_remove_id \ + -portal_id $portal_id \ + -portlet_name [my_name] \ + -key "package_id" \ + -value_id $instance_id + } + + ad_proc -public make_self_available { + portal_id + } { + Wrapper for the portal:: proc + + @param portal_id + } { + portal::make_datasource_available \ + $portal_id [portal::get_datasource_id [my_name]] + } + + ad_proc -public make_self_unavailable { + portal_id + } { + Wrapper for the portal:: proc + + @param portal_id + } { + portal::make_datasource_unavailable \ + $portal_id [portal::get_datasource_id [my_name]] + } + + ad_proc -public show { + cf + } { + Display the portal element + + @param cf A config array as a list + @return HTML string + } { + # no return call required with the helper proc + portal::show_proc_helper \ + -template_src "syllabus-portlet" \ + -package_key [my_package_key] \ + -config_list $cf + } + + ad_proc -public edit { + } { + return {} + } + + ad_proc -public get_syllabus_info_list { + {-community_id:required} + } { + set out_list [list] + + set community_id [dotlrn_community::get_community_id] + set element_id [portal::get_element_ids_by_ds \ + [dotlrn_community::get_portal_template_id $community_id] \ + [fs_portlet::my_name] + ] + set root_folder_id \ + [portal::get_element_param [lindex $element_id 0] "folder_id"] + set public_folder_id \ + [fs::get_folder -parent_id $root_folder_id -name "public"] + + set rows [fs::get_folder_contents -folder_id $public_folder_id \ + -user_id [dotlrn::get_full_users_rel_segment_id] + ] + + # this could move to fs:: + foreach row $rows { + set name [ns_set get $row "name"] + if {[string equal -nocase $name "syllabus"]} { + lappend out_list [ns_set get $row "object_id"] + lappend out_list [ns_set get $row "type"] + } + } + + lappend out_list $public_folder_id + return $out_list + } + +} Index: openacs-4/packages/dotlrn-syllabus/www/add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-syllabus/www/Attic/add.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-syllabus/www/add.tcl 27 Apr 2002 17:20:15 -0000 1.1 @@ -0,0 +1,35 @@ +# +# Copyright (C) 2001, 2002 OpenForce, Inc. +# +# 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. +# + +# dotlrn/www/research-paper-add.tcl + +ad_page_contract { + @author yon (yon@openforce.net) + @creation-date Mar 04, 2002 + @version $Id: add.tcl,v 1.1 2002/04/27 17:20:15 arjun Exp $ +} -query { + file_id:integer,notnull + {referer "../one-community-admin"} +} -properties { +} + +set community_id [dotlrn_community::get_community_id] + +dotlrn::require_user_admin_community $community_id + +db_dml add_file_to_community {} + +ad_returnredirect $referer Index: openacs-4/packages/dotlrn-syllabus/www/add.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-syllabus/www/Attic/add.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-syllabus/www/add.xql 27 Apr 2002 17:20:15 -0000 1.1 @@ -0,0 +1,15 @@ + + + + + + + insert + into dotlrn_research_papers + (community_id, file_id) + values + (:community_id, :file_id) + + + + Index: openacs-4/packages/dotlrn-syllabus/www/remove.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-syllabus/www/Attic/remove.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-syllabus/www/remove.tcl 27 Apr 2002 17:20:15 -0000 1.1 @@ -0,0 +1,34 @@ +# +# Copyright (C) 2001, 2002 OpenForce, Inc. +# +# 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. +# + +# dotlrn/www/research-paper-remove.tcl + +ad_page_contract { + @author yon (yon@openforce.net) + @creation-date Mar 04, 2002 + @version $Id: remove.tcl,v 1.1 2002/04/27 17:20:15 arjun Exp $ +} -query { + file_id:integer,notnull + {referer "../one-community-admin"} +} -properties { +} + +set community_id [dotlrn_community::get_community_id] +dotlrn::require_user_admin_community $community_id + +db_dml remove_file_from_community {} + +ad_returnredirect $referer Index: openacs-4/packages/dotlrn-syllabus/www/remove.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-syllabus/www/Attic/remove.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-syllabus/www/remove.xql 27 Apr 2002 17:20:15 -0000 1.1 @@ -0,0 +1,14 @@ + + + + + + + delete + from dotlrn_research_papers + where community_id = :community_id + and file_id = :file_id + + + + Index: openacs-4/packages/dotlrn-syllabus/www/syllabus-admin-portlet-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-syllabus/www/Attic/syllabus-admin-portlet-oracle.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-syllabus/www/syllabus-admin-portlet-oracle.xql 27 Apr 2002 17:20:15 -0000 1.1 @@ -0,0 +1,45 @@ + + + +oracle8.1.6 + + + + select fs_files.file_id, + fs_files.name, + fs_files.live_revision, + fs_files.type, + to_char(fs_files.last_modified, 'Mon DD YYYY HH24:MI') as last_modified, + fs_files.content_size, + fs_files.url + from fs_files, + acs_permissions + where acs_permissions.object_id = fs_files.live_revision + and acs_permissions.grantee_id = :party_id + and acs_permissions.privilege = 'read' + and not exists (select 1 + from dotlrn_research_papers + where dotlrn_research_papers.community_id = :community_id + and dotlrn_research_papers.file_id = fs_files.live_revision) + order by name + + + + + + select fs_files.file_id, + fs_files.name, + fs_files.live_revision, + fs_files.type, + to_char(fs_files.last_modified, 'Mon DD YYYY HH24:MI') as last_modified, + fs_files.content_size, + fs_files.url + from dotlrn_research_papers, + fs_files + where dotlrn_research_papers.community_id = :community_id + and dotlrn_research_papers.file_id = fs_files.live_revision + order by name + + + + Index: openacs-4/packages/dotlrn-syllabus/www/syllabus-admin-portlet.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-syllabus/www/syllabus-admin-portlet.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-syllabus/www/syllabus-admin-portlet.adp 27 Apr 2002 17:20:15 -0000 1.1 @@ -0,0 +1,33 @@ +<% + + # + # Copyright (C) 2001, 2002 OpenForce, Inc. + # + # 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. + # + +%> + + + + + Go to or + Edit Syllabus + + + Go to the Syllabus + + + + Upload or link to a Syllabus + Index: openacs-4/packages/dotlrn-syllabus/www/syllabus-admin-portlet.adp~ =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-syllabus/www/Attic/syllabus-admin-portlet.adp~,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-syllabus/www/syllabus-admin-portlet.adp~ 27 Apr 2002 17:20:15 -0000 1.1 @@ -0,0 +1,33 @@ +<% + + # + # Copyright (C) 2001, 2002 OpenForce, Inc. + # + # 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. + # + +%> + + + + + Goto or + Edit Syllabus + + + Go to the Syllabus + + + + Upload or link to a Syllabus + Index: openacs-4/packages/dotlrn-syllabus/www/syllabus-admin-portlet.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-syllabus/www/syllabus-admin-portlet.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-syllabus/www/syllabus-admin-portlet.tcl 27 Apr 2002 17:20:15 -0000 1.1 @@ -0,0 +1,37 @@ +# +# Copyright (C) 2001, 2002 OpenForce, Inc. +# +# 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. +# + +# dotlrn-syllabus/www/syllabus-admin-portlet.tcl + +ad_page_contract { + The display logic for the syllabus admin portlet + + @author arjun (arjun@openforce.net) + @version $Id: syllabus-admin-portlet.tcl,v 1.1 2002/04/27 17:20:15 arjun Exp $ +} -properties { + syllabus_id:onevalue + type:onevalue + public_folder_id:onevalue +} + +set syllabus_info_list [syllabus_portlet::get_syllabus_info_list \ + -community_id [dotlrn_community::get_community_id] +] +set public_folder_id [lindex $syllabus_info_list 0] +set syllabus_id [lindex $syllabus_info_list 1] +set type [lindex $syllabus_info_list 2] + + Index: openacs-4/packages/dotlrn-syllabus/www/syllabus-admin-portlet.tcl~ =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-syllabus/www/Attic/syllabus-admin-portlet.tcl~,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-syllabus/www/syllabus-admin-portlet.tcl~ 27 Apr 2002 17:20:15 -0000 1.1 @@ -0,0 +1,35 @@ +# +# Copyright (C) 2001, 2002 OpenForce, Inc. +# +# 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. +# + +# dotlrn-syllabus/www/syllabus-admin-portlet.tcl + +ad_page_contract { + The display logic for the syllabus admin portlet + + @author arjun (arjun@openforce.net) + @version $Id: syllabus-admin-portlet.tcl~,v 1.1 2002/04/27 17:20:15 arjun Exp $ +} -properties { + syllabus_id:onevalue + type:onevalue + public_folder_id:onevalue +} + +set syllabus_info_list [syllabus_portlet::get_syllabus_info_list \ + -community_id [dotlrn_community::get_community_id] +] +set syllabus_id [lindex $syllabus_info_list 0] +set type [lindex $syllabus_info_list 1] +set public_folder_id [lindex $syllabus_info_list 2] Index: openacs-4/packages/dotlrn-syllabus/www/syllabus-portlet-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-syllabus/www/Attic/syllabus-portlet-oracle.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-syllabus/www/syllabus-portlet-oracle.xql 27 Apr 2002 17:20:15 -0000 1.1 @@ -0,0 +1,23 @@ + + + +oracle8.1.6 + + + + select fs_files.file_id, + fs_files.name, + fs_files.live_revision, + fs_files.type, + to_char(fs_files.last_modified, 'Mon DD YYYY HH24:MI') as last_modified, + fs_files.content_size, + fs_files.url + from dotlrn_research_papers, + fs_files + where dotlrn_research_papers.community_id = :community_id + and dotlrn_research_papers.file_id = fs_files.live_revision + order by name + + + + Index: openacs-4/packages/dotlrn-syllabus/www/syllabus-portlet.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-syllabus/www/syllabus-portlet.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-syllabus/www/syllabus-portlet.adp 27 Apr 2002 17:20:15 -0000 1.1 @@ -0,0 +1,37 @@ +<% + + # + # Copyright (C) 2001, 2002 OpenForce, Inc. + # + # 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. + # + +%> + + + + + Go to + + + Download + + Syllabus + + + No Syllabus Found + + + +   + Index: openacs-4/packages/dotlrn-syllabus/www/syllabus-portlet.adp~ =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-syllabus/www/Attic/syllabus-portlet.adp~,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-syllabus/www/syllabus-portlet.adp~ 27 Apr 2002 17:20:15 -0000 1.1 @@ -0,0 +1,26 @@ +<% + + # + # Copyright (C) 2001, 2002 OpenForce, Inc. + # + # 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. + # + +%> + + + foo + + +   + Index: openacs-4/packages/dotlrn-syllabus/www/syllabus-portlet.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-syllabus/www/syllabus-portlet.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-syllabus/www/syllabus-portlet.tcl 27 Apr 2002 17:20:15 -0000 1.1 @@ -0,0 +1,39 @@ +# +# Copyright (C) 2001, 2002 OpenForce, Inc. +# +# 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. +# + +# dotlrn-syllabus/www/syllabus-portlet.tcl + +ad_page_contract { + The display logic for the syllabus portlet + + @author arjun (arjun@openforce.net) + @version $Id: syllabus-portlet.tcl,v 1.1 2002/04/27 17:20:15 arjun Exp $ +} -properties { + syllabus_id:onevalue + type:onevalue + public_folder_id:onevalue +} + +array set config $cf + +set syllabus_info_list [syllabus_portlet::get_syllabus_info_list \ + -community_id [dotlrn_community::get_community_id] +] +set public_folder_id [lindex $syllabus_info_list 0] +set syllabus_id [lindex $syllabus_info_list 1] +set type [lindex $syllabus_info_list 2] +set live_revision [lindex $syllabus_info_list 3] + Index: openacs-4/packages/dotlrn-syllabus/www/syllabus-portlet.tcl~ =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-syllabus/www/Attic/syllabus-portlet.tcl~,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-syllabus/www/syllabus-portlet.tcl~ 27 Apr 2002 17:20:15 -0000 1.1 @@ -0,0 +1,33 @@ +# +# Copyright (C) 2001, 2002 OpenForce, Inc. +# +# 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. +# + +# dotlrn-syllabus/www/syllabus-portlet.tcl + +ad_page_contract { + The display logic for the syllabus portlet + + @author arjun (arjun@openforce.net) + @version $Id: syllabus-portlet.tcl~,v 1.1 2002/04/27 17:20:15 arjun Exp $ +} -properties { + files:multirow +} + +array set config $cf +set community_id [dotlrn_community::get_community_id] + +#db_multirow files select_files {} + +ad_return_template