Index: openacs-4/packages/dotlrn-dotlrn/dotlrn-dotlrn.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-dotlrn/dotlrn-dotlrn.info,v diff -u -N -r1.4 -r1.5 --- openacs-4/packages/dotlrn-dotlrn/dotlrn-dotlrn.info 9 Oct 2001 06:49:19 -0000 1.4 +++ openacs-4/packages/dotlrn-dotlrn/dotlrn-dotlrn.info 6 Mar 2002 23:22:29 -0000 1.5 @@ -16,13 +16,17 @@ blah blah - + + + + + 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 -N -r1.4 -r1.5 --- openacs-4/packages/dotlrn-dotlrn/sql/oracle/dotlrn-dotlrn-create.sql 25 Feb 2002 14:21:12 -0000 1.4 +++ openacs-4/packages/dotlrn-dotlrn/sql/oracle/dotlrn-dotlrn-create.sql 6 Mar 2002 23:22:29 -0000 1.5 @@ -106,3 +106,6 @@ end; / show errors + +@dotlrn-members-create.sql +@dotlrn-members-staff-create.sql 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 -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-dotlrn/sql/oracle/dotlrn-members-create.sql 6 Mar 2002 23:22:29 -0000 1.1 @@ -0,0 +1,108 @@ + +-- +-- The "dotLRN members" applet for dotLRN +-- copyright 2001, OpenForce +-- distributed under GPL v2.0 +-- +-- +-- ben,arjun@openforce.net +-- +-- 10/05/2001 +-- + + +declare + foo integer; +begin + -- create the implementation + foo := acs_sc_impl.new ( + 'dotlrn_applet', + 'dotlrn_members', + 'dotlrn_members' + ); + + -- add all the hooks + + -- GetPrettyName + foo := acs_sc_impl.new_alias ( + 'dotlrn_applet', + 'dotlrn_members', + 'GetPrettyName', + 'dotlrn_members::get_pretty_name', + 'TCL' + ); + + -- AddApplet + foo := acs_sc_impl.new_alias ( + 'dotlrn_applet', + 'dotlrn_members', + 'AddApplet', + 'dotlrn_members::add_applet', + 'TCL' + ); + + + -- AddAppletToCommunity + foo := acs_sc_impl.new_alias ( + 'dotlrn_applet', + 'dotlrn_members', + 'AddAppletToCommunity', + 'dotlrn_members::add_applet_to_community', + 'TCL' + ); + + + -- RemoveApplet + foo := acs_sc_impl.new_alias ( + 'dotlrn_applet', + 'dotlrn_members', + 'RemoveApplet', + 'dotlrn_members::remove_applet', + 'TCL' + ); + + -- AddUser + foo := acs_sc_impl.new_alias ( + 'dotlrn_applet', + 'dotlrn_members', + 'AddUser', + 'dotlrn_members::add_user', + 'TCL' + ); + + + -- AddUserToCommunity + foo := acs_sc_impl.new_alias ( + 'dotlrn_applet', + 'dotlrn_members', + 'AddUserToCommunity', + 'dotlrn_members::add_user_to_community', + 'TCL' + ); + + -- RemoveUser + foo := acs_sc_impl.new_alias ( + 'dotlrn_applet', + 'dotlrn_members', + 'RemoveUser', + 'dotlrn_members::remove_user', + 'TCL' + ); + + -- RemoveUserFromCommunity + foo := acs_sc_impl.new_alias ( + 'dotlrn_applet', + 'dotlrn_members', + 'RemoveUserFromCommunity', + 'dotlrn_members::remove_user_from_community', + 'TCL' + ); + + -- Add the binding + acs_sc_binding.new ( + contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_members' + ); +end; +/ +show errors 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 -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-dotlrn/sql/oracle/dotlrn-members-staff-create.sql 6 Mar 2002 23:22:29 -0000 1.1 @@ -0,0 +1,108 @@ + +-- +-- The "dotLRN members" applet for dotLRN +-- copyright 2001, OpenForce +-- distributed under GPL v2.0 +-- +-- +-- ben,arjun@openforce.net +-- +-- 10/05/2001 +-- + + +declare + foo integer; +begin + -- create the implementation + foo := acs_sc_impl.new ( + 'dotlrn_applet', + 'dotlrn_members_staff', + 'dotlrn_members_staff' + ); + + -- add all the hooks + + -- GetPrettyName + foo := acs_sc_impl.new_alias ( + 'dotlrn_applet', + 'dotlrn_members_staff', + 'GetPrettyName', + 'dotlrn_members_staff::get_pretty_name', + 'TCL' + ); + + -- AddApplet + foo := acs_sc_impl.new_alias ( + 'dotlrn_applet', + 'dotlrn_members_staff', + 'AddApplet', + 'dotlrn_members_staff::add_applet', + 'TCL' + ); + + + -- AddAppletToCommunity + foo := acs_sc_impl.new_alias ( + 'dotlrn_applet', + 'dotlrn_members_staff', + 'AddAppletToCommunity', + 'dotlrn_members_staff::add_applet_to_community', + 'TCL' + ); + + + -- RemoveApplet + foo := acs_sc_impl.new_alias ( + 'dotlrn_applet', + 'dotlrn_members_staff', + 'RemoveApplet', + 'dotlrn_members_staff::remove_applet', + 'TCL' + ); + + -- AddUser + foo := acs_sc_impl.new_alias ( + 'dotlrn_applet', + 'dotlrn_members_staff', + 'AddUser', + 'dotlrn_members_staff::add_user', + 'TCL' + ); + + + -- AddUserToCommunity + foo := acs_sc_impl.new_alias ( + 'dotlrn_applet', + 'dotlrn_members_staff', + 'AddUserToCommunity', + 'dotlrn_members_staff::add_user_to_community', + 'TCL' + ); + + -- RemoveUser + foo := acs_sc_impl.new_alias ( + 'dotlrn_applet', + 'dotlrn_members_staff', + 'RemoveUser', + 'dotlrn_members_staff::remove_user', + 'TCL' + ); + + -- RemoveUserFromCommunity + foo := acs_sc_impl.new_alias ( + 'dotlrn_applet', + 'dotlrn_members_staff', + 'RemoveUserFromCommunity', + 'dotlrn_members_staff::remove_user_from_community', + 'TCL' + ); + + -- Add the binding + acs_sc_binding.new ( + contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_members_staff' + ); +end; +/ +show errors 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 -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-members-procs.tcl 6 Mar 2002 23:22:29 -0000 1.1 @@ -0,0 +1,134 @@ +# +# Procs for DOTLRN members Applet +# Copyright 2001 OpenForce, inc. +# Distributed under the GNU GPL v2 +# +# $Id: dotlrn-members-procs.tcl,v 1.1 2002/03/06 23:22:29 arjun Exp $ +# + +ad_library { + + Procs to set up the dotLRN "members" applet + + @author ben@openforce.net,arjun@openforce.net +} + +namespace eval dotlrn_members { + + # aks - don't need this, I think + # ad_proc -public package_key { + # } { + # get the package_key this applet deals with + # } { + # return "dotlrn" + # } + + ad_proc portal_element_key { + } { + Returns the key for the portal element this applet uses + } { + return "dotlrn-members-portlet" + } + + ad_proc -public get_pretty_name { + } { + Returns the pretty name of the applet + } { + return "dotLRN Members Info" + } + + ad_proc -public add_applet { + } { + Add the dotlrn applet to dotlrn - one time init - must be repeatable! + } { + dotlrn_applet::add_applet_to_dotlrn -applet_key "dotlrn_members" + } + + ad_proc -public get_community_default_page {} { + Returns the user default page to add the portlet to. + FIXME Should be a ad_param. + } { + return "People" + } + + ad_proc -public add_applet_to_community { + community_id + } { + Add the dotlrn applet to a specific community + } { + # Not shown on the Non-member page for a comm + + # portal template stuff + set pt_id [dotlrn_community::get_portal_template_id $community_id] + + # set up the DS for the portal template + dotlrn_members_portlet::make_self_available $pt_id + + # add the portlet to the correct page for this comm + set page_id [portal::get_page_id \ + -portal_id $pt_id \ + -page_name [get_community_default_page] \ + ] + + dotlrn_members_portlet::add_self_to_page \ + -page_id $page_id \ + $pt_id \ + $community_id + + return $community_id + } + + ad_proc -public remove_applet { + community_id + package_id + } { + remove the applet from the community + } { + } + + ad_proc -public add_user { + user_id + } { + Called for one time init when this user is added to dotlrn + } { + return + } + + + ad_proc -public add_user_to_community { + community_id + user_id + } { + Called when a user is added to a spceific dotlrn community + } { + } + + ad_proc -public remove_user { + user_id + } { + } { + } + + ad_proc -public remove_user_from_community { + community_id + user_id + } { + Remove a user from a community + } { + # Get the portal_id + set portal_id [dotlrn_community::get_portal_id $community_id $user_id] + + # Get the package_id by callback + # set package_id [dotlrn_community::get_package_id $community_id] + + # Remove the portal element + dotlrn_members_portlet::remove_self_from_page $portal_id $community_id + + # Buh Bye. + dotlrn_members_portlet::make_self_unavailable $portal_id + + # remove user permissions to see dotlrns + # nothing to do here + } + +} 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 -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-members-staff-procs.tcl 6 Mar 2002 23:22:29 -0000 1.1 @@ -0,0 +1,119 @@ +# +# Procs for DOTLRN "staff list" Applet +# Copyright 2001 OpenForce, inc. +# Distributed under the GNU GPL v2 +# +# $Id: dotlrn-members-staff-procs.tcl,v 1.1 2002/03/06 23:22:29 arjun Exp $ +# + +ad_library { + + Procs to set up the dotLRN "staff list" applet + + @author ben@openforce.net,arjun@openforce.net +} + +namespace eval dotlrn_members_staff { + + # aks - don't need this, I think + # ad_proc -public package_key { + # } { + # get the package_key this applet deals with + # } { + # return "dotlrn" + # } + + ad_proc portal_element_key { + } { + Returns the key for the portal element this applet uses + } { + return "dotlrn-members-staff-portlet" + } + + ad_proc -public get_pretty_name { + } { + Returns the pretty name of the applet + } { + return "dotLRN Staff List Info" + } + + ad_proc -public add_applet { + } { + Add the dotlrn applet to dotlrn - one time init - must be repeatable! + } { + dotlrn_applet::add_applet_to_dotlrn -applet_key "dotlrn_members_staff" + } + + ad_proc -public add_applet_to_community { + community_id + } { + Add the dotlrn applet to a specific community + } { + # Not shown on the Non-member page for a comm + + # portal template stuff + set pt_id [dotlrn_community::get_portal_template_id $community_id] + + # set up the DS for the portal template + dotlrn_members_staff_portlet::make_self_available $pt_id + + # add the portlet to the first page + dotlrn_members_staff_portlet::add_self_to_page $pt_id $community_id + + return $community_id + } + + ad_proc -public remove_applet { + community_id + package_id + } { + remove the applet from the community + } { + } + + ad_proc -public add_user { + user_id + } { + Called for one time init when this user is added to dotlrn + } { + return + } + + + ad_proc -public add_user_to_community { + community_id + user_id + } { + Called when a user is added to a spceific dotlrn community + } { + } + + ad_proc -public remove_user { + user_id + } { + } { + } + + ad_proc -public remove_user_from_community { + community_id + user_id + } { + Remove a user from a community + } { + # Get the portal_id + set portal_id [dotlrn_community::get_portal_id $community_id $user_id] + + # Get the package_id by callback + # set package_id [dotlrn_community::get_package_id $community_id] + + # Remove the portal element + dotlrn_members_staff_portlet::remove_self_from_page $portal_id $community_id + + # Buh Bye. + dotlrn_members_staff_portlet::make_self_unavailable $portal_id + + # remove user permissions to see dotlrns + # nothing to do here + } + +} Index: openacs-4/packages/dotlrn-portlet/dotlrn-portlet.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-portlet/dotlrn-portlet.info,v diff -u -N -r1.8 -r1.9 --- openacs-4/packages/dotlrn-portlet/dotlrn-portlet.info 4 Mar 2002 22:11:09 -0000 1.8 +++ openacs-4/packages/dotlrn-portlet/dotlrn-portlet.info 6 Mar 2002 23:21:16 -0000 1.9 @@ -23,14 +23,24 @@ + + + + + + + + + + Index: openacs-4/packages/dotlrn-portlet/sql/oracle/dotlrn-members-portlet-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-portlet/sql/oracle/dotlrn-members-portlet-create.sql,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-portlet/sql/oracle/dotlrn-members-portlet-create.sql 6 Mar 2002 23:21:16 -0000 1.1 @@ -0,0 +1,194 @@ +-- +-- Creates dotlrn datasource for showing members of a community +-- +-- Copyright (C) 2001 OpenForce, Inc. +-- @author Arjun Sanyal (arjun@openforce.net) +-- @creation-date 2001-30-09 + +-- $Id: dotlrn-members-portlet-create.sql,v 1.1 2002/03/06 23:21:16 arjun Exp $ + +-- This is free software distributed under the terms of the GNU Public +-- License version 2 or higher. Full text of the license is available +-- from the GNU Project: http://www.fsf.org/copyleft/gpl.html + +declare + ds_id portal_datasources.datasource_id%TYPE; +begin + ds_id := portal_datasource.new( + name => 'dotlrn_members_portlet', + description => 'Displays the members of this community ' + ); + + + + -- 4 defaults procs + + -- shadeable_p + portal_datasource.set_def_param ( + datasource_id => ds_id, + config_required_p => 't', + configured_p => 't', + key => 'shadeable_p', + value => 't' +); + + -- shaded_p + portal_datasource.set_def_param ( + datasource_id => ds_id, + config_required_p => 't', + configured_p => 't', + key => 'shaded_p', + value => 'f' +); + + -- hideable_p + portal_datasource.set_def_param ( + datasource_id => ds_id, + config_required_p => 't', + configured_p => 't', + key => 'hideable_p', + value => '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' +); + + -- 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' +); + + -- portlet-specific procs + + -- community_id must be configured! + portal_datasource.set_def_param ( + datasource_id => ds_id, + config_required_p => 't', + configured_p => 'f', + key => 'community_id', + value => '' +); + +end; +/ +show errors + +declare + foo integer; +begin + -- create the implementation + foo := acs_sc_impl.new ( + 'portal_datasource', + 'dotlrn_members_portlet', + 'dotlrn_members_portlet' + ); + +end; +/ +show errors + +declare + foo integer; +begin + + -- add all the hooks + foo := acs_sc_impl.new_alias ( + 'portal_datasource', + 'dotlrn_members_portlet', + 'MyName', + 'dotlrn_members_portlet::my_name', + 'TCL' + ); + + foo := acs_sc_impl.new_alias ( + 'portal_datasource', + 'dotlrn_members_portlet', + 'GetPrettyName', + 'dotlrn_members_portlet::get_pretty_name', + 'TCL' + ); + + foo := acs_sc_impl.new_alias ( + 'portal_datasource', + 'dotlrn_members_portlet', + 'Link', + 'dotlrn_members_portlet::link', + 'TCL' + ); + + foo := acs_sc_impl.new_alias ( + 'portal_datasource', + 'dotlrn_members_portlet', + 'AddSelfToPage', + 'dotlrn_members_portlet::add_self_to_page', + 'TCL' + ); + + foo := acs_sc_impl.new_alias ( + 'portal_datasource', + 'dotlrn_members_portlet', + 'Show', + 'dotlrn_members_portlet::show', + 'TCL' + ); + + foo := acs_sc_impl.new_alias ( + 'portal_datasource', + 'dotlrn_members_portlet', + 'Edit', + 'dotlrn_members_portlet::edit', + 'TCL' + ); + + foo := acs_sc_impl.new_alias ( + 'portal_datasource', + 'dotlrn_members_portlet', + 'RemoveSelfFromPage', + 'dotlrn_members_portlet::remove_self_from_page', + 'TCL' + ); + + foo := acs_sc_impl.new_alias ( + 'portal_datasource', + 'dotlrn_members_portlet', + 'MakeSelfAvailable', + 'dotlrn_members_portlet::make_self_available', + 'TCL' + ); + + foo := acs_sc_impl.new_alias ( + 'portal_datasource', + 'dotlrn_members_portlet', + 'MakeSelfUnavailable', + 'dotlrn_members_portlet::make_self_unavailable', + 'TCL' + ); + +end; +/ +show errors + +declare + foo integer; +begin + + -- Add the binding + acs_sc_binding.new ( + contract_name => 'portal_datasource', + impl_name => 'dotlrn_members_portlet' + ); +end; +/ +show errors + + Index: openacs-4/packages/dotlrn-portlet/sql/oracle/dotlrn-members-staff-portlet-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-portlet/sql/oracle/dotlrn-members-staff-portlet-create.sql,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-portlet/sql/oracle/dotlrn-members-staff-portlet-create.sql 6 Mar 2002 23:21:16 -0000 1.1 @@ -0,0 +1,194 @@ +-- + +-- Creates dotlrn datasource for showing staff members for a comunity + +-- Copyright (C) 2001 OpenForce, Inc. +-- @author Arjun Sanyal (arjun@openforce.net) +-- @creation-date 2001-30-09 + +-- $Id: dotlrn-members-staff-portlet-create.sql,v 1.1 2002/03/06 23:21:16 arjun Exp $ + +-- This is free software distributed under the terms of the GNU Public +-- License version 2 or higher. Full text of the license is available +-- from the GNU Project: http://www.fsf.org/copyleft/gpl.html + +declare + ds_id portal_datasources.datasource_id%TYPE; +begin + ds_id := portal_datasource.new( + name => 'dotlrn_members_staff_portlet', + description => 'Displays the dotlrn community info ' + ); + + + + -- 4 defaults procs + + -- shadeable_p + portal_datasource.set_def_param ( + datasource_id => ds_id, + config_required_p => 't', + configured_p => 't', + key => 'shadeable_p', + value => 't' +); + + -- shaded_p + portal_datasource.set_def_param ( + datasource_id => ds_id, + config_required_p => 't', + configured_p => 't', + key => 'shaded_p', + value => 'f' +); + + -- hideable_p + portal_datasource.set_def_param ( + datasource_id => ds_id, + config_required_p => 't', + configured_p => 't', + key => 'hideable_p', + value => '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' +); + + -- 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' +); + + -- portlet-specific procs + + -- community_id must be configured! + portal_datasource.set_def_param ( + datasource_id => ds_id, + config_required_p => 't', + configured_p => 'f', + key => 'community_id', + value => '' +); + +end; +/ +show errors + +declare + foo integer; +begin + -- create the implementation + foo := acs_sc_impl.new ( + 'portal_datasource', + 'dotlrn_members_staff_portlet', + 'dotlrn_members_staff_portlet' + ); + +end; +/ +show errors + +declare + foo integer; +begin + + -- add all the hooks + foo := acs_sc_impl.new_alias ( + 'portal_datasource', + 'dotlrn_members_staff_portlet', + 'MyName', + 'dotlrn_members_staff_portlet::my_name', + 'TCL' + ); + + foo := acs_sc_impl.new_alias ( + 'portal_datasource', + 'dotlrn_members_staff_portlet', + 'GetPrettyName', + 'dotlrn_members_staff_portlet::get_pretty_name', + 'TCL' + ); + + foo := acs_sc_impl.new_alias ( + 'portal_datasource', + 'dotlrn_members_staff_portlet', + 'Link', + 'dotlrn_members_staff_portlet::link', + 'TCL' + ); + + foo := acs_sc_impl.new_alias ( + 'portal_datasource', + 'dotlrn_members_staff_portlet', + 'AddSelfToPage', + 'dotlrn_members_staff_portlet::add_self_to_page', + 'TCL' + ); + + foo := acs_sc_impl.new_alias ( + 'portal_datasource', + 'dotlrn_members_staff_portlet', + 'Show', + 'dotlrn_members_staff_portlet::show', + 'TCL' + ); + + foo := acs_sc_impl.new_alias ( + 'portal_datasource', + 'dotlrn_members_staff_portlet', + 'Edit', + 'dotlrn_members_staff_portlet::edit', + 'TCL' + ); + + foo := acs_sc_impl.new_alias ( + 'portal_datasource', + 'dotlrn_members_staff_portlet', + 'RemoveSelfFromPage', + 'dotlrn_members_staff_portlet::remove_self_from_page', + 'TCL' + ); + + foo := acs_sc_impl.new_alias ( + 'portal_datasource', + 'dotlrn_members_staff_portlet', + 'MakeSelfAvailable', + 'dotlrn_members_staff_portlet::make_self_available', + 'TCL' + ); + + foo := acs_sc_impl.new_alias ( + 'portal_datasource', + 'dotlrn_members_staff_portlet', + 'MakeSelfUnavailable', + 'dotlrn_members_staff_portlet::make_self_unavailable', + 'TCL' + ); + +end; +/ +show errors + +declare + foo integer; +begin + + -- Add the binding + acs_sc_binding.new ( + contract_name => 'portal_datasource', + impl_name => 'dotlrn_members_staff_portlet' + ); +end; +/ +show errors + Index: openacs-4/packages/dotlrn-portlet/sql/oracle/dotlrn-portlet-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-portlet/sql/oracle/dotlrn-portlet-create.sql,v diff -u -N -r1.9 -r1.10 --- openacs-4/packages/dotlrn-portlet/sql/oracle/dotlrn-portlet-create.sql 19 Jan 2002 21:14:19 -0000 1.9 +++ openacs-4/packages/dotlrn-portlet/sql/oracle/dotlrn-portlet-create.sql 6 Mar 2002 23:21:16 -0000 1.10 @@ -195,3 +195,5 @@ show errors @dotlrn-admin-portlet-create.sql +@dotlrn-members-portlet-create.sql +@dotlrn-members-staff-portlet-create.sql Index: openacs-4/packages/dotlrn-portlet/tcl/dotlrn-members-portlet-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-portlet/tcl/dotlrn-members-portlet-procs.tcl,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-portlet/tcl/dotlrn-members-portlet-procs.tcl 6 Mar 2002 23:21:16 -0000 1.1 @@ -0,0 +1,107 @@ +ad_library { + + Procedures to supports the dotlrn "members" portlet + + Copyright Openforce, Inc. + Licensed under GNU GPL v2 + + @author arjun@openforce.net + @cvs-id $Id: dotlrn-members-portlet-procs.tcl,v 1.1 2002/03/06 23:21:16 arjun Exp $ + +} + +namespace eval dotlrn_members_portlet { + + ad_proc -private my_name { + } { + return "dotlrn_members_portlet" + } + + ad_proc -private my_package_key { + } { + return "dotlrn-portlet" + } + + + ad_proc -public get_pretty_name { + } { + return "Members" + } + + ad_proc -public link { + } { + return "" + } + + ad_proc -public add_self_to_page { + {-page_id ""} + portal_id + community_id + } { + + } { + return [portal::add_element_or_append_id \ + -portal_id $portal_id \ + -page_id $page_id \ + -portlet_name [my_name] \ + -value_id $community_id \ + -key community_id ] + } + + ad_proc -public show { + cf + } { + Call the template to display + + @param cf A config array + } { + portal::show_proc_helper \ + -package_key [my_package_key] \ + -config_list $cf \ + -template_src "dotlrn-members-portlet" + } + + ad_proc -public remove_self_from_page { + portal_id + community_id + } { + Removes the PE from the given page + } { + # get the element IDs (could be more than one!) + set element_ids [portal::get_element_ids_by_ds $portal_id [my_name]] + + # remove all elements + db_transaction { + foreach element_id $element_ids { + portal::remove_element $element_id + } + } + } + + ad_proc -public edit { + nothing here, move along + } { + return "" + } + + ad_proc -public make_self_available { + portal_id + } { + wrapper + } { + portal::make_datasource_available \ + $portal_id [portal::get_datasource_id [my_name]] + } + + ad_proc -public make_self_unavailable { + portal_id + } { + wrapper + } { + portal::make_datasource_unavailable \ + $portal_id [portal::get_datasource_id [my_name]] + } +} + + + Index: openacs-4/packages/dotlrn-portlet/tcl/dotlrn-members-staff-portlet-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-portlet/tcl/dotlrn-members-staff-portlet-procs.tcl,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-portlet/tcl/dotlrn-members-staff-portlet-procs.tcl 6 Mar 2002 23:21:16 -0000 1.1 @@ -0,0 +1,106 @@ +ad_library { + + Procedures to supports the dotlrn "members staff" portlet + + Copyright Openforce, Inc. + Licensed under GNU GPL v2 + + @author arjun@openforce.net + @cvs-id $Id: dotlrn-members-staff-portlet-procs.tcl,v 1.1 2002/03/06 23:21:16 arjun Exp $ + +} + +namespace eval dotlrn_members_staff_portlet { + + ad_proc -private my_name { + } { + return "dotlrn_members_staff_portlet" + } + + ad_proc -private my_package_key { + } { + return "dotlrn-portlet" + } + + + ad_proc -public get_pretty_name { + } { + return "Staff List" + } + + + ad_proc -public link { + } { + return "" + } + + + ad_proc -public add_self_to_page { + portal_id + community_id + } { + + } { + 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 show { + cf + } { + Call the template to display + + @param cf A config array + } { + portal::show_proc_helper \ + -package_key [my_package_key] \ + -config_list $cf \ + -template_src "dotlrn-members-staff-portlet" + } + + ad_proc -public remove_self_from_page { + portal_id + community_id + } { + Removes the PE from the given page + } { + # get the element IDs (could be more than one!) + set element_ids [portal::get_element_ids_by_ds $portal_id [my_name]] + + # remove all elements + db_transaction { + foreach element_id $element_ids { + portal::remove_element $element_id + } + } + } + + ad_proc -public edit { + nothing here, move along + } { + return "" + } + + ad_proc -public make_self_available { + portal_id + } { + wrapper + } { + portal::make_datasource_available \ + $portal_id [portal::get_datasource_id [my_name]] + } + + ad_proc -public make_self_unavailable { + portal_id + } { + wrapper + } { + portal::make_datasource_unavailable \ + $portal_id [portal::get_datasource_id [my_name]] + } +} + + + Index: openacs-4/packages/dotlrn-portlet/tcl/dotlrn-portlet-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-portlet/tcl/dotlrn-portlet-procs.tcl,v diff -u -N -r1.21 -r1.22 --- openacs-4/packages/dotlrn-portlet/tcl/dotlrn-portlet-procs.tcl 14 Feb 2002 19:47:44 -0000 1.21 +++ openacs-4/packages/dotlrn-portlet/tcl/dotlrn-portlet-procs.tcl 6 Mar 2002 23:21:16 -0000 1.22 @@ -27,7 +27,7 @@ ad_proc -public get_pretty_name { } { - return "Group Information" + return "FIXME name Information" } Index: openacs-4/packages/dotlrn-portlet/www/dotlrn-members-portlet.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-portlet/www/dotlrn-members-portlet.adp,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-portlet/www/dotlrn-members-portlet.adp 6 Mar 2002 23:21:16 -0000 1.1 @@ -0,0 +1,8 @@ + + +@member_data@ + + + +
+ Index: openacs-4/packages/dotlrn-portlet/www/dotlrn-members-portlet.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-portlet/www/dotlrn-members-portlet.tcl,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-portlet/www/dotlrn-members-portlet.tcl 6 Mar 2002 23:21:16 -0000 1.1 @@ -0,0 +1,19 @@ +ad_page_contract { + The display logic for the dotrn members portlet + + @author Arjun Sanyal (arjun@openforce.net) + @cvs_id $Id: dotlrn-members-portlet.tcl,v 1.1 2002/03/06 23:21:16 arjun Exp $ +} -properties { + +} + +array set config $cf +set community_id $config(community_id) + +if {[dotlrn::user_can_read_private_data_p]} { + set member_data "FIXME: here's where the list of members will go

role, first name, last name, email

+List of Members" +} else { + set member_data "" +} + Index: openacs-4/packages/dotlrn-portlet/www/dotlrn-members-staff-portlet.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-portlet/www/dotlrn-members-staff-portlet.adp,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-portlet/www/dotlrn-members-staff-portlet.adp 6 Mar 2002 23:21:16 -0000 1.1 @@ -0,0 +1,12 @@ + + + @staff_data@ + +

+ + @student_list_link@ + + + +
+ Index: openacs-4/packages/dotlrn-portlet/www/dotlrn-members-staff-portlet.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-portlet/www/dotlrn-members-staff-portlet.tcl,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-portlet/www/dotlrn-members-staff-portlet.tcl 6 Mar 2002 23:21:16 -0000 1.1 @@ -0,0 +1,24 @@ +ad_page_contract { + The display logic for the dotrn "staff list" PE + + @author Arjun Sanyal (arjun@openforce.net) + @cvs_id $Id: dotlrn-members-staff-portlet.tcl,v 1.1 2002/03/06 23:21:16 arjun Exp $ +} -properties { + +} + +array set config $cf +set community_id $config(community_id) + +set staff_data "FIXME: here's where the staff data will go:

+profs

+ta's

+ca's

+" + +if {[dotlrn::user_can_read_private_data_p]} { + set student_list_link "show student list

+

List of Members" +} else { + set student_list_link "" +} Index: openacs-4/packages/dotlrn-portlet/www/dotlrn-portlet.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-portlet/www/dotlrn-portlet.adp,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/dotlrn-portlet/www/dotlrn-portlet.adp 18 Feb 2002 05:53:29 -0000 1.2 +++ openacs-4/packages/dotlrn-portlet/www/dotlrn-portlet.adp 6 Mar 2002 23:21:16 -0000 1.3 @@ -4,10 +4,6 @@

- @member_link@ - -

- @subcomm_data@ Index: openacs-4/packages/dotlrn-portlet/www/dotlrn-portlet.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-portlet/www/dotlrn-portlet.tcl,v diff -u -N -r1.1 -r1.2 --- openacs-4/packages/dotlrn-portlet/www/dotlrn-portlet.tcl 14 Feb 2002 19:47:44 -0000 1.1 +++ openacs-4/packages/dotlrn-portlet/www/dotlrn-portlet.tcl 6 Mar 2002 23:21:16 -0000 1.2 @@ -14,11 +14,12 @@ set pretty_name [dotlrn_community::get_community_name $community_id] set description [dotlrn_community::get_community_description $community_id] -if {[dotlrn::user_can_read_private_data_p]} { - set member_link "

List of Members" -} else { - set member_link "" -} +# aks move to "members" portlets +#if {[dotlrn::user_can_read_private_data_p]} { +# set member_link "

List of Members" +#} else { +# set member_link "" +#} set subcomm_list [dotlrn_community::get_subcomm_list -community_id $community_id]