Index: openacs-4/packages/invoices-portlet/invoices-portlet.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/invoices-portlet/invoices-portlet.info,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/invoices-portlet/invoices-portlet.info 16 Aug 2005 20:14:55 -0000 1.1 @@ -0,0 +1,28 @@ + + + + + Invoices Portlet + Invoiices Portlets + f + f + + + Kiesbye Kiesbye + Malte Sussdorff + Invoices Portlet + Cognovis + Invoices Portlet + 0 + + + + + + + + + + + + Index: openacs-4/packages/invoices-portlet/catalog/invoices-portlet.en_US.ISO-8859-1.xml =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/invoices-portlet/catalog/invoices-portlet.en_US.ISO-8859-1.xml,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/invoices-portlet/catalog/invoices-portlet.en_US.ISO-8859-1.xml 16 Aug 2005 20:14:55 -0000 1.1 @@ -0,0 +1,11 @@ + + + + Invoice Admin + Invoices Administration + Invoices List Portlet + Offer Portlet + Invoices + Offers + Billable Projects + Index: openacs-4/packages/invoices-portlet/sql/postgresql/invoices-admin-portlet-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/invoices-portlet/sql/postgresql/invoices-admin-portlet-create.sql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/invoices-portlet/sql/postgresql/invoices-admin-portlet-create.sql 16 Aug 2005 20:14:55 -0000 1.1 @@ -0,0 +1,222 @@ +-- +-- Copyright (C) 2005 Cognovis +-- +-- 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. +-- + +-- +-- /invoices-portlet/sql/postgres/invoices-admin-portlet-create.sql +-- + +-- Creates invoices portlet + +-- Copyright (C) 2005 Cognovis +-- @author Bjoern Kiesbye (bjoern_kiesbye@web.de) +-- @creation-date 2005-16-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( + ''invoices_admin_portlet'', + ''Displays the Invoices Portlet'' + ); + + + -- 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'' + ); + + + + + + 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'', + ''invoices_admin_portlet'', + ''invoices_admin_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'', + ''invoices_admin_portlet'', + ''GetMyName'', + ''invoices_admin_portlet::get_my_name'', + ''TCL'' + ); + + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''invoices_admin_portlet'', + ''GetPrettyName'', + ''invoices_admin_portlet::get_pretty_name'', + ''TCL'' + ); + + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''invoices_admin_portlet'', + ''Link'', + ''invoices_admin_portlet::link'', + ''TCL'' + ); + + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''invoices_admin_portlet'', + ''AddSelfToPage'', + ''invoices_admin_portlet::add_self_to_page'', + ''TCL'' + ); + + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''invoices_admin_portlet'', + ''Show'', + ''invoices_admin_portlet::show'', + ''TCL'' + ); + + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''invoices_admin_portlet'', + ''Edit'', + ''invoices_admin_portlet::edit'', + ''TCL'' + ); + + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''invoices_admin_portlet'', + ''RemoveSelfFromPage'', + ''invoices_admin_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'', + ''invoices_admin_portlet'' + ); + + return 0; + +end;' language 'plpgsql'; +select inline_0(); +drop function inline_0(); + + + + Index: openacs-4/packages/invoices-portlet/sql/postgresql/invoices-list-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/invoices-portlet/sql/postgresql/invoices-list-create.sql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/invoices-portlet/sql/postgresql/invoices-list-create.sql 16 Aug 2005 20:14:55 -0000 1.1 @@ -0,0 +1,222 @@ +-- +-- Copyright (C) 2005 Cognovis +-- +-- 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. +-- + +-- +-- /invoices-portlet/sql/oracle/invoices-portlet-create.sql +-- + +-- Creates invoices portlet + +-- Copyright (C) 2005 Cognovis +-- @author Bjoern Kiesbye (bjoern_kiesbye@web.de) +-- @creation-date 2005-16-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( + ''invoices_portlet'', + ''Displays the Invoices Portlet'' + ); + + + -- 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'' + ); + + + + + + 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'', + ''invoices_portlet'', + ''invoices_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'', + ''invoices_portlet'', + ''GetMyName'', + ''invoices_portlet::get_my_name'', + ''TCL'' + ); + + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''invoices_portlet'', + ''GetPrettyName'', + ''invoices_portlet::get_pretty_name'', + ''TCL'' + ); + + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''invoices_portlet'', + ''Link'', + ''invoices_portlet::link'', + ''TCL'' + ); + + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''invoices_portlet'', + ''AddSelfToPage'', + ''invoices_portlet::add_self_to_page'', + ''TCL'' + ); + + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''invoices_portlet'', + ''Show'', + ''invoices_portlet::show'', + ''TCL'' + ); + + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''invoices_portlet'', + ''Edit'', + ''invoices_portlet::edit'', + ''TCL'' + ); + + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''invoices_portlet'', + ''RemoveSelfFromPage'', + ''invoices_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'', + ''invoices_portlet'' + ); + + return 0; + +end;' language 'plpgsql'; +select inline_0(); +drop function inline_0(); + + + + Index: openacs-4/packages/invoices-portlet/sql/postgresql/invoices-list-portlet-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/invoices-portlet/sql/postgresql/invoices-list-portlet-create.sql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/invoices-portlet/sql/postgresql/invoices-list-portlet-create.sql 16 Aug 2005 20:14:55 -0000 1.1 @@ -0,0 +1,221 @@ +-- +-- Copyright (C) 2005 Cognovis +-- +-- 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 invoices portlet + +-- Copyright (C) 2005 Cognovis +-- @author Bjoern Kiesbye (bjoern_kiesbye@web.de) +-- @creation-date 2005-16-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( + ''invoices_list_portlet'', + ''Displays the Invoices List Portlet'' + ); + + + -- 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'' + ); + + + + + + 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'', + ''invoices_list_portlet'', + ''invoices_list_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'', + ''invoices_list_portlet'', + ''GetMyName'', + ''invoices_list_portlet::get_my_name'', + ''TCL'' + ); + + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''invoices_list_portlet'', + ''GetPrettyName'', + ''invoices_list_portlet::get_pretty_name'', + ''TCL'' + ); + + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''invoices_list_portlet'', + ''Link'', + ''invoices_list_portlet::link'', + ''TCL'' + ); + + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''invoices_list_portlet'', + ''AddSelfToPage'', + ''invoices_list_portlet::add_self_to_page'', + ''TCL'' + ); + + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''invoices_list_portlet'', + ''Show'', + ''invoices_list_portlet::show'', + ''TCL'' + ); + + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''invoices_list_portlet'', + ''Edit'', + ''invoices_list_portlet::edit'', + ''TCL'' + ); + + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''invoices_list_portlet'', + ''RemoveSelfFromPage'', + ''invoices_list_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'', + ''invoices_list_portlet'' + ); + + return 0; + +end;' language 'plpgsql'; +select inline_0(); +drop function inline_0(); + + + + Index: openacs-4/packages/invoices-portlet/sql/postgresql/invoices-offers-portlet-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/invoices-portlet/sql/postgresql/invoices-offers-portlet-create.sql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/invoices-portlet/sql/postgresql/invoices-offers-portlet-create.sql 16 Aug 2005 20:14:55 -0000 1.1 @@ -0,0 +1,229 @@ +-- +-- Copyright (C) 2005 Cognovis +-- +-- 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 invoices offers portlet + +-- Copyright (C) 2005 Cognovis +-- @author Bjoern Kiesbye (bjoern_kiesbye@web.de) +-- @creation-date 2005-16-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( + ''invoices_offers_portlet'', + ''Displays the Invoices Offers Portlet'' + ); + + + -- 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'' + ); + + + perform portal_datasource__set_def_param( + ds_id, + ''t'', + ''f'', + ''project_manager_id'', + ''t'' + ); + + + + + 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'', + ''invoices_offers_portlet'', + ''invoices_offers_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'', + ''invoices_offers_portlet'', + ''GetMyName'', + ''invoices_offers_portlet::get_my_name'', + ''TCL'' + ); + + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''invoices_offers_portlet'', + ''GetPrettyName'', + ''invoices_offers_portlet::get_pretty_name'', + ''TCL'' + ); + + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''invoices_offers_portlet'', + ''Link'', + ''invoices_offers_portlet::link'', + ''TCL'' + ); + + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''invoices_offers_portlet'', + ''AddSelfToPage'', + ''invoices_offers_portlet::add_self_to_page'', + ''TCL'' + ); + + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''invoices_offers_portlet'', + ''Show'', + ''invoices_offers_portlet::show'', + ''TCL'' + ); + + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''invoices_offers_portlet'', + ''Edit'', + ''invoices_offers_portlet::edit'', + ''TCL'' + ); + + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''invoices_offers_portlet'', + ''RemoveSelfFromPage'', + ''invoices_offers_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'', + ''invoices_offers_portlet'' + ); + + return 0; + +end;' language 'plpgsql'; +select inline_0(); +drop function inline_0(); + + + + Index: openacs-4/packages/invoices-portlet/sql/postgresql/invoices-portlet-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/invoices-portlet/sql/postgresql/invoices-portlet-create.sql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/invoices-portlet/sql/postgresql/invoices-portlet-create.sql 16 Aug 2005 20:14:55 -0000 1.1 @@ -0,0 +1,224 @@ +-- +-- Copyright (C) 2005 Cognovis +-- +-- 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. +-- + +-- +-- /invoices-portlet/sql/postgresql/invoices-portlet-create.sql +-- + +-- Creates invoices portlet + +-- Copyright (C) 2005 Cognovis +-- @author Bjoern Kiesbye (bjoern_kiesbye@web.de) +-- @creation-date 2005-16-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( + ''invoices_portlet'', + ''Displays the Invoices Portlet'' + ); + + + -- 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'' + ); + + + + + + 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'', + ''invoices_portlet'', + ''invoices_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'', + ''invoices_portlet'', + ''GetMyName'', + ''invoices_portlet::get_my_name'', + ''TCL'' + ); + + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''invoices_portlet'', + ''GetPrettyName'', + ''invoices_portlet::get_pretty_name'', + ''TCL'' + ); + + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''invoices_portlet'', + ''Link'', + ''invoices_portlet::link'', + ''TCL'' + ); + + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''invoices_portlet'', + ''AddSelfToPage'', + ''invoices_portlet::add_self_to_page'', + ''TCL'' + ); + + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''invoices_portlet'', + ''Show'', + ''invoices_portlet::show'', + ''TCL'' + ); + + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''invoices_portlet'', + ''Edit'', + ''invoices_portlet::edit'', + ''TCL'' + ); + + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''invoices_portlet'', + ''RemoveSelfFromPage'', + ''invoices_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'', + ''invoices_portlet'' + ); + + return 0; + +end;' language 'plpgsql'; +select inline_0(); +drop function inline_0(); + +\i invoices-list-portlet-create.sql +\i invoices-offers-portlet-create.sql +\i invoices-admin-portlet-create.sql + + Index: openacs-4/packages/invoices-portlet/sql/postgresql/upgrade/upgrade-0.1d-0.2d.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/invoices-portlet/sql/postgresql/upgrade/upgrade-0.1d-0.2d.sql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/invoices-portlet/sql/postgresql/upgrade/upgrade-0.1d-0.2d.sql 16 Aug 2005 20:14:55 -0000 1.1 @@ -0,0 +1,229 @@ +-- +-- Copyright (C) 2005 Cognovis +-- +-- 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 invoices offers portlet + +-- Copyright (C) 2005 Cognovis +-- @author Bjoern Kiesbye (bjoern_kiesbye@web.de) +-- @creation-date 2005-16-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( + ''invoices_offers_portlet'', + ''Displays the Invoices Offers Portlet'' + ); + + + -- 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'' + ); + + + perform portal_datasource__set_def_param( + ds_id, + ''t'', + ''f'', + ''project_manager_id'', + ''t'' + ); + + + + + 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'', + ''invoices_offers_portlet'', + ''invoices_offers_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'', + ''invoices_offers_portlet'', + ''GetMyName'', + ''invoices_offers_portlet::get_my_name'', + ''TCL'' + ); + + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''invoices_offers_portlet'', + ''GetPrettyName'', + ''invoices_offers_portlet::get_pretty_name'', + ''TCL'' + ); + + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''invoices_offers_portlet'', + ''Link'', + ''invoices_offers_portlet::link'', + ''TCL'' + ); + + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''invoices_offers_portlet'', + ''AddSelfToPage'', + ''invoices_offers_portlet::add_self_to_page'', + ''TCL'' + ); + + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''invoices_offers_portlet'', + ''Show'', + ''invoices_offers_portlet::show'', + ''TCL'' + ); + + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''invoices_offers_portlet'', + ''Edit'', + ''invoices_offers_portlet::edit'', + ''TCL'' + ); + + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''invoices_offers_portlet'', + ''RemoveSelfFromPage'', + ''invoices_offers_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'', + ''invoices_offers_portlet'' + ); + + return 0; + +end;' language 'plpgsql'; +select inline_0(); +drop function inline_0(); + + + + Index: openacs-4/packages/invoices-portlet/sql/postgresql/upgrade/upgrade-0.2d-0.3d.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/invoices-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/invoices-portlet/sql/postgresql/upgrade/upgrade-0.2d-0.3d.sql 16 Aug 2005 20:14:55 -0000 1.1 @@ -0,0 +1,222 @@ +-- +-- Copyright (C) 2005 Cognovis +-- +-- 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. +-- + +-- +-- /invoices-portlet/sql/postgres/invoices-admin-portlet-create.sql +-- + +-- Creates invoices portlet + +-- Copyright (C) 2005 Cognovis +-- @author Bjoern Kiesbye (bjoern_kiesbye@web.de) +-- @creation-date 2005-16-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( + ''invoices_admin_portlet'', + ''Displays the Invoices Portlet'' + ); + + + -- 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'' + ); + + + + + + 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'', + ''invoices_admin_portlet'', + ''invoices_admin_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'', + ''invoices_admin_portlet'', + ''GetMyName'', + ''invoices_admin_portlet::get_my_name'', + ''TCL'' + ); + + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''invoices_admin_portlet'', + ''GetPrettyName'', + ''invoices_admin_portlet::get_pretty_name'', + ''TCL'' + ); + + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''invoices_admin_portlet'', + ''Link'', + ''invoices_admin_portlet::link'', + ''TCL'' + ); + + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''invoices_admin_portlet'', + ''AddSelfToPage'', + ''invoices_admin_portlet::add_self_to_page'', + ''TCL'' + ); + + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''invoices_admin_portlet'', + ''Show'', + ''invoices_admin_portlet::show'', + ''TCL'' + ); + + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''invoices_admin_portlet'', + ''Edit'', + ''invoices_admin_portlet::edit'', + ''TCL'' + ); + + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''invoices_admin_portlet'', + ''RemoveSelfFromPage'', + ''invoices_admin_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'', + ''invoices_admin_portlet'' + ); + + return 0; + +end;' language 'plpgsql'; +select inline_0(); +drop function inline_0(); + + + + Index: openacs-4/packages/invoices-portlet/tcl/invoices-admin-portlet-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/invoices-portlet/tcl/invoices-admin-portlet-procs.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/invoices-portlet/tcl/invoices-admin-portlet-procs.tcl 16 Aug 2005 20:14:55 -0000 1.1 @@ -0,0 +1,128 @@ +# +# 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 Invoices Package + + + @author kiesbye@theservice.de + + +} + +namespace eval invoices_admin_portlet { + + ad_proc -private my_package_key { + } { + return "invoices-portlet" + } + + ad_proc -private get_my_name { + } { + return "invoices_admin_portlet" + } + + ad_proc -public get_pretty_name { + } { + return [_ invoices-portlet.invoices_admin] + } + + ad_proc -public link { + } { + return "invoices/admin" + } + + ad_proc -public add_self_to_page { + {-portal_id:required} + {-package_id:required} + {-page_name ""} + {-pretty_name ""} + {-force_region ""} + {-scoped_p ""} + {-param_action "overwrite"} + + } { + Adds a Invoices Portlet to the given page. + + @param portal_id The page to add self to + @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] + } + + 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 \ + -value $package_id \ + -key package_id \ + -param_action $param_action \ + -extra_params $extra_params + ] + } + + + + + ad_proc -public remove_self_from_page { + {-portal_id:required} + {-package_id "0"} + } { + Removes a Invoices Package from the given page. + + @param portal_id The page to remove self from + + } { + portal::remove_element_parameters \ + -portal_id $portal_id \ + -portlet_name [get_my_name] \ + -key package_id \ + -value $package_id + } + + ad_proc -public show { + cf + } { + } { + + + portal::show_proc_helper \ + -package_key [my_package_key] \ + -config_list $cf \ + -template_src "invoices-admin-portlet" + } + +} Index: openacs-4/packages/invoices-portlet/tcl/invoices-list-portlet-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/invoices-portlet/tcl/invoices-list-portlet-procs.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/invoices-portlet/tcl/invoices-list-portlet-procs.tcl 16 Aug 2005 20:14:55 -0000 1.1 @@ -0,0 +1,128 @@ +# +# 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 Invoices Package + + + @author kiesbye@theservice.de + + +} + +namespace eval invoices_list_portlet { + + ad_proc -private my_package_key { + } { + return "invoices-portlet" + } + + ad_proc -private get_my_name { + } { + return "invoices_list_portlet" + } + + ad_proc -public get_pretty_name { + } { + return [_ invoices-portlet.invoices_list_portlet] + } + + ad_proc -public link { + } { + return "invoices" + } + + ad_proc -public add_self_to_page { + {-portal_id:required} + {-package_id:required} + {-page_name ""} + {-pretty_name ""} + {-force_region ""} + {-scoped_p ""} + {-param_action "overwrite"} + + } { + Adds a Invoices Portlet to the given page. + + @param portal_id The page to add self to + @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] + } + + 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 \ + -value $package_id \ + -key package_id \ + -param_action $param_action \ + -extra_params $extra_params + ] + } + + + + + ad_proc -public remove_self_from_page { + {-portal_id:required} + {-package_id "0"} + } { + Removes a Invoices Package from the given page. + + @param portal_id The page to remove self from + + } { + portal::remove_element_parameters \ + -portal_id $portal_id \ + -portlet_name [get_my_name] \ + -key package_id \ + -value $package_id + } + + ad_proc -public show { + cf + } { + } { + + + portal::show_proc_helper \ + -package_key [my_package_key] \ + -config_list $cf \ + -template_src "invoices-list-portlet" + } + +} Index: openacs-4/packages/invoices-portlet/tcl/invoices-offers-portlet-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/invoices-portlet/tcl/invoices-offers-portlet-procs.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/invoices-portlet/tcl/invoices-offers-portlet-procs.tcl 16 Aug 2005 20:14:55 -0000 1.1 @@ -0,0 +1,128 @@ +# +# 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 Invoices Package + + + @author kiesbye@theservice.de + + +} + +namespace eval invoices_offers_portlet { + + ad_proc -private my_package_key { + } { + return "invoices-portlet" + } + + ad_proc -private get_my_name { + } { + return "invoices_offers_portlet" + } + + ad_proc -public get_pretty_name { + } { + return [_ invoices-portlet.invoices_offers_portlet] + } + + ad_proc -public link { + } { + return "invoices" + } + + ad_proc -public add_self_to_page { + {-portal_id:required} + {-package_id:required} + {-page_name ""} + {-pretty_name ""} + {-force_region ""} + {-scoped_p ""} + {-param_action "overwrite"} + + } { + Adds a Invoices Portlet to the given page. + + @param portal_id The page to add self to + @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] + } + + 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 \ + -value $package_id \ + -key package_id \ + -param_action $param_action \ + -extra_params $extra_params + ] + } + + + + + ad_proc -public remove_self_from_page { + {-portal_id:required} + {-package_id "0"} + } { + Removes a Invoices Package from the given page. + + @param portal_id The page to remove self from + + } { + portal::remove_element_parameters \ + -portal_id $portal_id \ + -portlet_name [get_my_name] \ + -key package_id \ + -value $package_id + } + + ad_proc -public show { + cf + } { + } { + + + portal::show_proc_helper \ + -package_key [my_package_key] \ + -config_list $cf \ + -template_src "invoices-offers-portlet" + } + +} Index: openacs-4/packages/invoices-portlet/tcl/invoices-portlet-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/invoices-portlet/tcl/invoices-portlet-procs.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/invoices-portlet/tcl/invoices-portlet-procs.tcl 16 Aug 2005 20:14:55 -0000 1.1 @@ -0,0 +1,128 @@ +# +# 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 Invoices Package + + + @author kiesbye@theservice.de + + +} + +namespace eval invoices_portlet { + + ad_proc -private my_package_key { + } { + return "invoices-portlet" + } + + ad_proc -private get_my_name { + } { + return "invoices_portlet" + } + + ad_proc -public get_pretty_name { + } { + return "[_ invoices-portlet.projects_billable]" + } + + ad_proc -public link { + } { + return "invoices" + } + + ad_proc -public add_self_to_page { + {-portal_id:required} + {-package_id:required} + {-page_name ""} + {-pretty_name ""} + {-force_region ""} + {-scoped_p ""} + {-param_action "overwrite"} + + } { + Adds a Invoices Portlet to the given page. + + @param portal_id The page to add self to + @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] + } + + 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 \ + -value $package_id \ + -key package_id \ + -param_action $param_action \ + -extra_params $extra_params + ] + } + + + + + ad_proc -public remove_self_from_page { + {-portal_id:required} + {-package_id "0"} + } { + Removes a Invoices Package from the given page. + + @param portal_id The page to remove self from + + } { + portal::remove_element_parameters \ + -portal_id $portal_id \ + -portlet_name [get_my_name] \ + -key package_id \ + -value $package_id + } + + ad_proc -public show { + cf + } { + } { + + + portal::show_proc_helper \ + -package_key [my_package_key] \ + -config_list $cf + + } + +} Index: openacs-4/packages/invoices-portlet/www/invoices-admin-portlet.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/invoices-portlet/www/invoices-admin-portlet.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/invoices-portlet/www/invoices-admin-portlet.adp 16 Aug 2005 20:14:55 -0000 1.1 @@ -0,0 +1,2 @@ + + \ No newline at end of file Index: openacs-4/packages/invoices-portlet/www/invoices-admin-portlet.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/invoices-portlet/www/invoices-admin-portlet.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/invoices-portlet/www/invoices-admin-portlet.tcl 16 Aug 2005 20:14:55 -0000 1.1 @@ -0,0 +1,15 @@ +# packages/invoices-portlet/www/invoices-admin-portlet.tcl + +ad_page_contract { + + Display the admin portlet. + + @author Bjoern Kiesbye (bjoern_kiesbye@web.de) + @creation-date 2005-06-21 + @arch-tag: ed3ff5eb-dcf2-4cea-96cd-824aa89874f1 + @cvs-id $Id: invoices-admin-portlet.tcl,v 1.1 2005/08/16 20:14:55 maltes Exp $ +} { + +} + +set admin_href "[dotlrn_community::get_community_url [dotlrn_community::get_community_id_from_url]]invoices/admin" \ No newline at end of file Index: openacs-4/packages/invoices-portlet/www/invoices-list-portlet-procs.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/invoices-portlet/www/invoices-list-portlet-procs.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/invoices-portlet/www/invoices-list-portlet-procs.adp 16 Aug 2005 20:14:55 -0000 1.1 @@ -0,0 +1,2 @@ + + \ No newline at end of file Index: openacs-4/packages/invoices-portlet/www/invoices-list-portlet.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/invoices-portlet/www/invoices-list-portlet.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/invoices-portlet/www/invoices-list-portlet.adp 16 Aug 2005 20:14:55 -0000 1.1 @@ -0,0 +1,2 @@ + + \ No newline at end of file Index: openacs-4/packages/invoices-portlet/www/invoices-list-portlet.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/invoices-portlet/www/invoices-list-portlet.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/invoices-portlet/www/invoices-list-portlet.tcl 16 Aug 2005 20:14:55 -0000 1.1 @@ -0,0 +1,43 @@ + +set row_list {invoice_nr {} title {} description {} total_amount {} paid_amount {} creation_user {} creation_date {} due_date {} action {}} + +set organization_id [lindex \ + [application_data_link::get_linked \ + -from_object_id [dotlrn_community::get_community_id_from_url -url [ad_conn url]] \ + -to_object_type organization \ + ] \ + 0 \ + ] + + +set user_id [ad_conn user_id] + +set project_manager_ids "" + +set community_id [dotlrn_community::get_community_id_from_url] +set base_url "[dotlrn_community::get_community_url $community_id]invoices" + +if {[empty_string_p $community_id]} { + + + db_foreach get_community_ids { select (group_id) as community_id + from group_distinct_member_map gd , dotlrn_communities dc + where gd.member_id = :user_id + AND gd.group_id = dc.community_id} { + + set node "[site_node::get -url "[dotlrn_community::get_community_url $community_id]project-manager" ]" + + array set node_info $node + + lappend project_manager_ids $node_info(package_id) + } + +} else { + + set node "[site_node::get -url "[dotlrn_community::get_community_url $community_id]project-manager" ]" + + array set node_info $node + + set project_manager_ids $node_info(package_id) + +} \ No newline at end of file Index: openacs-4/packages/invoices-portlet/www/invoices-list-portlet.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/invoices-portlet/www/invoices-list-portlet.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/invoices-portlet/www/invoices-list-portlet.xql 16 Aug 2005 20:14:55 -0000 1.1 @@ -0,0 +1,20 @@ + + + + + + + + + + + + + + select (group_id) as community_id + from group_distinct_member_map gd , dotlrn_communities dc + where gd.member_id = :user_id + AND gd.group_id = dc.community_id + + + \ No newline at end of file Index: openacs-4/packages/invoices-portlet/www/invoices-offers-portlet.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/invoices-portlet/www/invoices-offers-portlet.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/invoices-portlet/www/invoices-offers-portlet.adp 16 Aug 2005 20:14:55 -0000 1.1 @@ -0,0 +1,2 @@ + + \ No newline at end of file Index: openacs-4/packages/invoices-portlet/www/invoices-offers-portlet.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/invoices-portlet/www/invoices-offers-portlet.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/invoices-portlet/www/invoices-offers-portlet.tcl 16 Aug 2005 20:14:55 -0000 1.1 @@ -0,0 +1,35 @@ + +set row_list {offer_nr {} title {} description {} amount_total {} creation_user {} creation_date {} finish_date {} action {}} + + + +set user_id [ad_conn user_id] +set community_id [dotlrn_community::get_community_id_from_url] +set package_id [apm_package_id_from_key invoices] +set organization_id [lindex [application_data_link::get_linked -from_object_id $community_id -to_object_type "organization"] 0] + + +if {[empty_string_p $community_id]} { + + + db_foreach get_community_ids { select (group_id) as community_id + from group_distinct_member_map gd , dotlrn_communities dc + where gd.member_id = :user_id + AND gd.group_id = dc.community_id} { + + set node "[site_node::get -url "[dotlrn_community::get_community_url $community_id]project-manager" ]" + + array set node_info $node + + lappend project_manager_ids $node_info(package_id) + } + +} else { + + set node "[site_node::get -url "[dotlrn_community::get_community_url $community_id]project-manager" ]" + + array set node_info $node + + set project_manager_ids $node_info(package_id) + +} \ No newline at end of file Index: openacs-4/packages/invoices-portlet/www/invoices-portlet.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/invoices-portlet/www/invoices-portlet.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/invoices-portlet/www/invoices-portlet.adp 16 Aug 2005 20:14:55 -0000 1.1 @@ -0,0 +1,2 @@ + + Index: openacs-4/packages/invoices-portlet/www/invoices-portlet.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/invoices-portlet/www/invoices-portlet.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/invoices-portlet/www/invoices-portlet.tcl 16 Aug 2005 20:14:55 -0000 1.1 @@ -0,0 +1,14 @@ +# packages/invoices-portlet/www/invoices-portlet.tcl + +set row_list { title {} name {} description {} creation_date {} amount_open {} count_total {} count_billed {} } + +set community_id [dotlrn_community::get_community_id_from_url] +set base_url "[dotlrn_community::get_community_url $community_id]" + +set organization_id [lindex \ + [application_data_link::get_linked \ + -from_object_id [dotlrn_community::get_community_id_from_url -url [ad_conn url]] \ + -to_object_type organization \ + ] \ + 0 \ + ]