Index: openacs-4/packages/project-manager-portlet/project-manager-portlet.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager-portlet/project-manager-portlet.info,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/project-manager-portlet/project-manager-portlet.info 10 Jun 2005 18:27:34 -0000 1.1
+++ openacs-4/packages/project-manager-portlet/project-manager-portlet.info 21 Jul 2005 21:16:35 -0000 1.2
@@ -7,15 +7,15 @@
f
f
-
+
Bjoern Kiesbye
Malte Sussdorff
Portlet for the Project Manager.
Cognovis
Portlet for the Project Manager.
0
-
+
Index: openacs-4/packages/project-manager-portlet/sql/postgresql/project-manager-calendar-portlet-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager-portlet/sql/postgresql/project-manager-calendar-portlet-create.sql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/project-manager-portlet/sql/postgresql/project-manager-calendar-portlet-create.sql 21 Jul 2005 21:17:15 -0000 1.1
@@ -0,0 +1,232 @@
+--
+-- Copyright (C) 2001, 2002 MIT
+--
+-- This file is part of dotLRN.
+--
+-- dotLRN is free software; you can redistribute it and/or modify it under the
+-- terms of the GNU General Public License as published by the Free Software
+-- Foundation; either version 2 of the License, or (at your option) any later
+-- version.
+--
+-- dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+-- WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+-- FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+-- details.
+--
+
+--
+-- /project-manager-portlet/sql/oracle/project-manager-portlet-create.sql
+--
+
+-- Creates Project Manager portlet
+
+-- Copyright (C) 2005 Cognovis
+-- @author Bjoern Kiesbye (kiesbye@theservice.de)
+-- @creation-date 2005-08-06
+
+
+-- 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
+
+create function inline_0()
+returns integer as '
+declare
+ ds_id portal_datasources.datasource_id%TYPE;
+begin
+ ds_id := portal_datasource__new(
+ ''project_manager_calendar_portlet'',
+ ''Displays the Project Manager''
+ );
+
+
+ -- the standard 4 params
+
+ -- shadeable_p
+ perform portal_datasource__set_def_param (
+ ds_id,
+ ''t'',
+ ''t'',
+ ''shadeable_p'',
+ ''t''
+);
+
+
+ -- hideable_p
+ perform portal_datasource__set_def_param (
+ ds_id,
+ ''t'',
+ ''t'',
+ ''hideable_p'',
+ ''t''
+);
+
+ -- user_editable_p
+ perform portal_datasource__set_def_param (
+ ds_id,
+ ''t'',
+ ''t'',
+ ''user_editable_p'',
+ ''t''
+);
+
+ -- shaded_p
+ perform portal_datasource__set_def_param (
+ ds_id,
+ ''t'',
+ ''t'',
+ ''shaded_p'',
+ ''f''
+);
+
+ -- link_hideable_p
+ perform portal_datasource__set_def_param (
+ ds_id,
+ ''t'',
+ ''t'',
+ ''link_hideable_p'',
+ ''t''
+);
+
+
+ perform portal_datasource__set_def_param(
+ ds_id,
+ ''t'',
+ ''f'',
+ ''scoped_p'',
+ ''t''
+ );
+
+
+ -- Project-Manager-Calendar-specific params
+
+ -- Project_manager_id must be configured
+
+ perform portal_datasource__set_def_param (
+ ds_id,
+ ''t'',
+ ''f'',
+ ''project_manager_id'',
+ ''''
+ );
+
+
+
+
+ return 0;
+
+end;' language 'plpgsql';
+select inline_0();
+drop function inline_0();
+
+
+create function inline_0()
+returns integer as '
+declare
+ foo integer;
+begin
+ -- create the implementation
+ foo := acs_sc_impl__new (
+ ''portal_datasource'',
+ ''project_manager_calendar_portlet'',
+ ''project_manager_calendar_portlet''
+ );
+
+ return 0;
+
+end;' language 'plpgsql';
+select inline_0();
+drop function inline_0();
+
+
+
+create function inline_0()
+returns integer as '
+declare
+ foo integer;
+begin
+
+ -- add all the hooks
+ foo := acs_sc_impl_alias__new (
+ ''portal_datasource'',
+ ''project_manager_calendar_portlet'',
+ ''GetMyName'',
+ ''project_manager_calendar_portlet::get_my_name'',
+ ''TCL''
+ );
+
+ foo := acs_sc_impl_alias__new (
+ ''portal_datasource'',
+ ''project_manager_calendar_portlet'',
+ ''GetPrettyName'',
+ ''project_manager_calendar_portlet::get_pretty_name'',
+ ''TCL''
+ );
+
+ foo := acs_sc_impl_alias__new (
+ ''portal_datasource'',
+ ''project_manager_calendar_portlet'',
+ ''Link'',
+ ''project_manager_calendar_portlet::link'',
+ ''TCL''
+ );
+
+ foo := acs_sc_impl_alias__new (
+ ''portal_datasource'',
+ ''project_manager_calendar_portlet'',
+ ''AddSelfToPage'',
+ ''project_manager_calendar_portlet::add_self_to_page'',
+ ''TCL''
+ );
+
+ foo := acs_sc_impl_alias__new (
+ ''portal_datasource'',
+ ''project_manager_calendar_portlet'',
+ ''Show'',
+ ''project_manager_calendar_portlet::show'',
+ ''TCL''
+ );
+
+ foo := acs_sc_impl_alias__new (
+ ''portal_datasource'',
+ ''project_manager_calendar_portlet'',
+ ''Edit'',
+ ''project_manager_calendar_portlet::edit'',
+ ''TCL''
+ );
+
+ foo := acs_sc_impl_alias__new (
+ ''portal_datasource'',
+ ''project_manager_calendar_portlet'',
+ ''RemoveSelfFromPage'',
+ ''project_manager_calendar_portlet::remove_self_from_page'',
+ ''TCL''
+ );
+
+ return 0;
+
+end;' language 'plpgsql';
+select inline_0();
+drop function inline_0();
+
+
+
+create function inline_0()
+returns integer as '
+declare
+ foo integer;
+begin
+
+ -- Add the binding
+ perform acs_sc_binding__new (
+ ''portal_datasource'',
+ ''project_manager_calendar_portlet''
+ );
+
+ return 0;
+
+end;' language 'plpgsql';
+select inline_0();
+drop function inline_0();
+
+
Index: openacs-4/packages/project-manager-portlet/sql/postgresql/upgrade/upgrade-0.2d-0.3d.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager-portlet/sql/postgresql/upgrade/upgrade-0.2d-0.3d.sql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/project-manager-portlet/sql/postgresql/upgrade/upgrade-0.2d-0.3d.sql 21 Jul 2005 21:17:15 -0000 1.1
@@ -0,0 +1,232 @@
+--
+-- Copyright (C) 2001, 2002 MIT
+--
+-- This file is part of dotLRN.
+--
+-- dotLRN is free software; you can redistribute it and/or modify it under the
+-- terms of the GNU General Public License as published by the Free Software
+-- Foundation; either version 2 of the License, or (at your option) any later
+-- version.
+--
+-- dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+-- WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+-- FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+-- details.
+--
+
+--
+-- /project-manager-portlet/sql/oracle/project-manager-portlet-create.sql
+--
+
+-- Creates Project Manager portlet
+
+-- Copyright (C) 2005 Cognovis
+-- @author Bjoern Kiesbye (kiesbye@theservice.de)
+-- @creation-date 2005-08-06
+
+
+-- 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
+
+create function inline_0()
+returns integer as '
+declare
+ ds_id portal_datasources.datasource_id%TYPE;
+begin
+ ds_id := portal_datasource__new(
+ ''project_manager_calendar_portlet'',
+ ''Displays the Project Manager''
+ );
+
+
+ -- the standard 4 params
+
+ -- shadeable_p
+ perform portal_datasource__set_def_param (
+ ds_id,
+ ''t'',
+ ''t'',
+ ''shadeable_p'',
+ ''t''
+);
+
+
+ -- hideable_p
+ perform portal_datasource__set_def_param (
+ ds_id,
+ ''t'',
+ ''t'',
+ ''hideable_p'',
+ ''t''
+);
+
+ -- user_editable_p
+ perform portal_datasource__set_def_param (
+ ds_id,
+ ''t'',
+ ''t'',
+ ''user_editable_p'',
+ ''t''
+);
+
+ -- shaded_p
+ perform portal_datasource__set_def_param (
+ ds_id,
+ ''t'',
+ ''t'',
+ ''shaded_p'',
+ ''f''
+);
+
+ -- link_hideable_p
+ perform portal_datasource__set_def_param (
+ ds_id,
+ ''t'',
+ ''t'',
+ ''link_hideable_p'',
+ ''t''
+);
+
+
+ perform portal_datasource__set_def_param(
+ ds_id,
+ ''t'',
+ ''f'',
+ ''scoped_p'',
+ ''t''
+ );
+
+
+ -- Project-Manager-Calendar-specific params
+
+ -- Project_manager_id must be configured
+
+ perform portal_datasource__set_def_param (
+ ds_id,
+ ''t'',
+ ''f'',
+ ''project_manager_id'',
+ ''''
+ );
+
+
+
+
+ return 0;
+
+end;' language 'plpgsql';
+select inline_0();
+drop function inline_0();
+
+
+create function inline_0()
+returns integer as '
+declare
+ foo integer;
+begin
+ -- create the implementation
+ foo := acs_sc_impl__new (
+ ''portal_datasource'',
+ ''project_manager_calendar_portlet'',
+ ''project_manager_calendar_portlet''
+ );
+
+ return 0;
+
+end;' language 'plpgsql';
+select inline_0();
+drop function inline_0();
+
+
+
+create function inline_0()
+returns integer as '
+declare
+ foo integer;
+begin
+
+ -- add all the hooks
+ foo := acs_sc_impl_alias__new (
+ ''portal_datasource'',
+ ''project_manager_calendar_portlet'',
+ ''GetMyName'',
+ ''project_manager_calendar_portlet::get_my_name'',
+ ''TCL''
+ );
+
+ foo := acs_sc_impl_alias__new (
+ ''portal_datasource'',
+ ''project_manager_calendar_portlet'',
+ ''GetPrettyName'',
+ ''project_manager_calendar_portlet::get_pretty_name'',
+ ''TCL''
+ );
+
+ foo := acs_sc_impl_alias__new (
+ ''portal_datasource'',
+ ''project_manager_calendar_portlet'',
+ ''Link'',
+ ''project_manager_calendar_portlet::link'',
+ ''TCL''
+ );
+
+ foo := acs_sc_impl_alias__new (
+ ''portal_datasource'',
+ ''project_manager_calendar_portlet'',
+ ''AddSelfToPage'',
+ ''project_manager_calendar_portlet::add_self_to_page'',
+ ''TCL''
+ );
+
+ foo := acs_sc_impl_alias__new (
+ ''portal_datasource'',
+ ''project_manager_calendar_portlet'',
+ ''Show'',
+ ''project_manager_calendar_portlet::show'',
+ ''TCL''
+ );
+
+ foo := acs_sc_impl_alias__new (
+ ''portal_datasource'',
+ ''project_manager_calendar_portlet'',
+ ''Edit'',
+ ''project_manager_calendar_portlet::edit'',
+ ''TCL''
+ );
+
+ foo := acs_sc_impl_alias__new (
+ ''portal_datasource'',
+ ''project_manager_calendar_portlet'',
+ ''RemoveSelfFromPage'',
+ ''project_manager_calendar_portlet::remove_self_from_page'',
+ ''TCL''
+ );
+
+ return 0;
+
+end;' language 'plpgsql';
+select inline_0();
+drop function inline_0();
+
+
+
+create function inline_0()
+returns integer as '
+declare
+ foo integer;
+begin
+
+ -- Add the binding
+ perform acs_sc_binding__new (
+ ''portal_datasource'',
+ ''project_manager_calendar_portlet''
+ );
+
+ return 0;
+
+end;' language 'plpgsql';
+select inline_0();
+drop function inline_0();
+
+
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/project-manager-portlet/tcl/apm-callback-procs.tcl'.
Fisheye: No comparison available. Pass `N' to diff?
Index: openacs-4/packages/project-manager-portlet/tcl/project-manager-calendar-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager-portlet/tcl/project-manager-calendar-portlet-procs.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/project-manager-portlet/tcl/project-manager-calendar-portlet-procs.tcl 21 Jul 2005 21:17:15 -0000 1.1
@@ -0,0 +1,126 @@
+#
+# Copyright (C) 2005 Cognovis
+# Author: Bjoern Kiesbye (kiesbye@theservice.de)
+
+# 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 {
+
+ Procedures to support the Project Manager
+
+
+ @author kiesbye@theservice.de
+ @cvs-id $Id: project-manager-portlet-procs.tcl
+
+}
+
+namespace eval project_manager_calendar_portlet {
+
+ ad_proc -private my_package_key {
+ } {
+ return "project-manager-portlet"
+ }
+
+ ad_proc -private get_my_name {
+ } {
+ return "project_manager_calendar_portlet"
+ }
+
+ ad_proc -public get_pretty_name {
+ } {
+ return "Project Manager Calendar Portlet"
+ }
+
+ ad_proc -public link {
+ } {
+ return "project-manager"
+ }
+
+ ad_proc -public add_self_to_page {
+ {-portal_id:required}
+ {-project_manager_id:required}
+ {-package_id:required}
+ {-page_name ""}
+ {-pretty_name ""}
+ {-force_region ""}
+ {-scoped_p ""}
+ {-param_action "overwrite"}
+
+ } {
+ Adds a Project Manager Calendar Portlet to the given page.
+
+ @param portal_id The page to add self to
+ @param project_manager_id The Project Manager instance to add
+
+ @return element_id The new element's id
+ } {
+
+ # allow overrides of pretty_name and force_region
+ if {[empty_string_p $pretty_name]} {
+ set pretty_name [get_pretty_name]
+ }
+
+ if {[empty_string_p $force_region]} {
+ set force_region [parameter::get_from_package_key \
+ -package_key [my_package_key] \
+ -parameter "force_region"
+ ]
+ }
+
+ set extra_params ""
+
+ if {![empty_string_p $scoped_p]} {
+ set extra_params [list scoped_p $scoped_p project_manager_id $project_manager_id]
+ }
+
+ return [portal::add_element_parameters \
+ -portal_id $portal_id \
+ -page_name $page_name \
+ -portlet_name [get_my_name] \
+ -pretty_name $pretty_name \
+ -force_region $force_region \
+ -key project_manager_id \
+ -value $project_manager_id \
+ -param_action $param_action \
+ -extra_params $extra_params
+ ]
+ }
+
+ ad_proc -public remove_self_from_page {
+ {-portal_id:required}
+ {-project_manager_id:required}
+ } {
+ Removes a Project Manager from the given page.
+
+ @param portal_id The page to remove self from
+ @param project_manager_id
+ } {
+ portal::remove_element_parameters \
+ -portal_id $portal_id \
+ -portlet_name [get_my_name] \
+ -key project_manager_id \
+ -value $project_manager_id
+ }
+
+ ad_proc -public show {
+ cf
+ } {
+ } {
+ portal::show_proc_helper \
+ -package_key [my_package_key] \
+ -config_list $cf \
+ -template_src "project-manager-calendar-portlet"
+ }
+
+}
Index: openacs-4/packages/project-manager-portlet/www/project-manager-calendar-portlet.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager-portlet/www/project-manager-calendar-portlet.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/project-manager-portlet/www/project-manager-calendar-portlet.adp 21 Jul 2005 21:17:15 -0000 1.1
@@ -0,0 +1 @@
+
\ No newline at end of file
Index: openacs-4/packages/project-manager-portlet/www/project-manager-calendar-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager-portlet/www/project-manager-calendar-portlet.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/project-manager-portlet/www/project-manager-calendar-portlet.tcl 21 Jul 2005 21:17:15 -0000 1.1
@@ -0,0 +1,12 @@
+ad_page_contract {
+} {
+ {view "month"}
+ {date ""}
+ {julian_date ""}
+ {hide_closed_p "t"}
+
+}
+
+set user_id [ad_conn user_id]
+
+