Index: openacs-4/packages/project-manager-portlet/www/project-manager-portlet.tcl.bak
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager-portlet/www/Attic/project-manager-portlet.tcl.bak,v
diff -u -N
--- openacs-4/packages/project-manager-portlet/www/project-manager-portlet.tcl.bak 10 Jun 2005 18:27:35 -0000 1.1
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,83 +0,0 @@
-#
-# 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.
-#
-
-# www/project-manager-portlet.tcl
-
-ad_page_contract {
- The display logic for the project manager portlet
-
- @author Bjoern Kiesbye (kiesbye@theservice.de)
- @cvs_id $Id: project-manager-portlet.tcl
-} {
-
-}
-
-
-# Get stuff from the config
-array set config $cf
-set project_manager_id $config(project_manager_id)
-set package_id $project_manager_id
-
-
-if {$config(project_manager_status_id) == "{}" } {
-
- set project_manager_status_id ""
-
-} else {
-
- set project_manager_status_id $config(project_manager_status_id)
-
-}
-
-if {$config(project_manager_action_p) == "{}" } {
-
- set project_manager_action_p ""
-
-} else {
-
- set project_manager_action_p $config(project_manager_action_p)
-
-}
-
-if {$config(project_manager_searchterm) == "{}" } {
-
- set searchterm ""
-
-} else {
-
- set searchterm $config(project_manager_searchterm)
-
-}
-
-set searchterm $
-
-if { $config(project_manager_orderby) == "{}"} {
-
- set project_manager_orderby ""
-
-} else {
-
- set project_manager_orderby $config(project_manager_orderby)
-}
-
-if {$config(project_manager_bulk_p) == "{}"} {
-
- set project_manager_bulk_p ""
-
-} else {
-
-
-}
Index: openacs-4/packages/project-manager-portlet/www/project-manager-portlet.tcl.from-index
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager-portlet/www/Attic/project-manager-portlet.tcl.from-index,v
diff -u -N
--- openacs-4/packages/project-manager-portlet/www/project-manager-portlet.tcl.from-index 10 Jun 2005 18:27:35 -0000 1.1
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,319 +0,0 @@
-ad_page_contract {
- The display logic for the project manager portlet
-
- @author Bjoern Kiesbye (kiesbye@theservice.de)
- @cvs_id $Id: project-manager-portlet.tcl
-} {
-
-
-
- orderby:optional
- {status_id:integer,optional}
- {searchterm ""}
- category_id:multiple,optional
- {format "normal"}
- {assignee_id ""}
-
-} -properties {
-
- context:onevalue
- projects:multirow
- write_p:onevalue
- create_p:onevalue
- admin_p:onevalue
- task_term:onevalue
- task_term_lower:onevalue
- project_term:onevalue
- project_term_lower:onevalue
-}
-
-
-array set config $cf
-set project_manager_id $config(project_manager_id)
-set package_id $config(project_manager_id)
-
-if {$config(project_manager_status_id) == "{}" } {
-
- set project_manager_status_id ""
-# set status_id ""
-
-} else {
-
- set project_manager_status_id $config(project_manager_status_id)
-# set status_id $config(project_manager_status_id)
-
-}
-
-if {$config(project_manager_action_p) == "{}" } {
-
- set project_manager_action_p 1
- set action_p 1
-
-} else {
-
- set project_manager_action_p $config(project_manager_action_p)
- set action_p $config(project_manager_action_p)
-
-}
-
-if {$config(project_manager_searchterm) == "{}" } {
-
- set searchterm ""
-
-} else {
-
- set searchterm $config(project_manager_searchterm)
-
-}
-
-
-
-if { $config(project_manager_orderby) == "{}"} {
-
- set project_manager_orderby ""
- set orderby ""
-
-} else {
-
- set project_manager_orderby $config(project_manager_orderby)
- set orderby $config(project_manager_orderby)
-}
-
-if {$config(project_manager_bulk_p) == "{}"} {
-
- set project_manager_bulk_p ""
- set bulk_p 1
-
-} else {
-
- set project_manager_bulk_p $config(project_manager_bulk_p)
- set bulk_p $config(project_manager_bulk_p)
-}
-
-
-
-# --------------------------------------------------------------- #
-
-set exporting_vars { status_id category_id assignee_id orderby format }
-set hidden_vars [export_vars -form $exporting_vars]
-
-# set up context bar
-set context [list]
-
-# the unique identifier for this package
-#set package_id [ad_conn package_id]
-set user_id [ad_maybe_redirect_for_registration]
-
-# permissions
-permission::require_permission -party_id $user_id -object_id $package_id -privilege read
-
-set write_p [permission::permission_p -object_id $package_id -privilege write]
-set create_p [permission::permission_p -object_id $package_id -privilege create]
-set admin_p [permission::permission_p -object_id $package_id -privilege admin]
-
-# root CR folder
-set root_folder [pm::util::get_root_folder -package_id $package_id]
-
-# Projects, using list-builder ---------------------------------
-
-# Set status
-if {![exists_and_not_null status_id]} {
- set status_where_clause ""
- set status_id ""
-} else {
- set status_where_clause {p.status_id = :status_id}
-}
-
-# We want to set up a filter for each category tree.
-
-set export_vars [export_vars -form {status_id orderby}]
-
-if {[exists_and_not_null category_id]} {
- set temp_category_id $category_id
- set pass_cat $category_id
-} else {
- set temp_category_id ""
- set pass_cat ""
-}
-
-set category_select [pm::util::category_selects \
- -export_vars $export_vars \
- -category_id $temp_category_id \
- -package_id $package_id \
- ]
-
-set assignees_filter [pm::project::assignee_filter_select -status_id $status_id]
-
-if {![empty_string_p $searchterm]} {
-
- if {[regexp {([0-9]+)} $searchterm match query_digits]} {
- set search_term_where " (upper(p.title) like upper('%$searchterm%')
- or p.item_id = :query_digits) "
- } else {
- set search_term_where " upper(p.title) like upper('%$searchterm%')"
- }
-} else {
- set search_term_where ""
-}
-
-
-set default_orderby [pm::project::index_default_orderby]
-
-if {[exists_and_not_null orderby]} {
- pm::project::index_default_orderby \
- -set $orderby
-}
-
-# Get url of the contacts package if it has been mounted for the links on the index page.
-set contacts_url [util_memoize [list site_node::get_package_url -package_key contacts]]
-if {[empty_string_p $contacts_url]} {
- set contact_column "@projects.customer_name@"
-} else {
- set contact_column "@projects.customer_name@"
-}
-
-
-template::list::create \
- -name projects \
- -multirow projects \
- -selected_format $format \
- -key project_item_id \
- -elements {
- project_name {
- label "[_ project-manager.Project_name]"
- link_url_col item_url
- link_html { title "[_ project-manager.lt_View_this_project_ver]" }
- }
- customer_name {
- label "[_ project-manager.Customer]"
- display_template "
-$contact_column@projects.customer_name@
-"
- }
- earliest_finish_date {
- label "[_ project-manager.Earliest_finish]"
- display_template "@projects.earliest_finish_date@@projects.earliest_finish_date@"
- }
- latest_finish_date {
- label "[_ project-manager.Latest_Finish]"
- display_template "@projects.latest_finish_date@@projects.latest_finish_date@"
- }
- actual_hours_completed {
- label "[_ project-manager.Hours_completed]"
- display_template "@projects.actual_hours_completed@/@projects.estimated_hours_total@"
- }
- category_id {
- display_template ""
- }
- } \
- -actions [list "[_ project-manager.Add_project]" "add-edit" "[_ project-manager.Add_project]" "[_ project-manager.Customers]" "[site_node::get_package_url -package_key contacts]" "[_ project-manager.View_customers]"] \
- -bulk_actions [list "[_ project-manager.Close]" "bulk-close" "[_ project-manager.Close_project]"] \
- -sub_class {
- narrow
- } \
- -filters {
- searchterm {
- label "[_ project-manager.Search_1]"
- where_clause {$search_term_where}
- }
- status_id {
- label "[_ project-manager.Status_1]"
- values {[pm::status::project_status_select]}
- where_clause {$status_where_clause}
- }
- assignee_id {
- label "[_ project-manager.Assignee]"
- values {$assignees_filter}
- where_clause {pa.party_id = :assignee_id}
- }
- category_id {
- label Categories
- where_clause {c.category_id = [join [value_if_exists category_id] ","]}
- }
- } \
- -orderby {
- default_value $default_orderby
- project_name {
- label "[_ project-manager.Project_name]"
- orderby_desc "upper(p.title) desc"
- orderby_asc "upper(p.title) asc"
- default_direction asc
- }
- customer_name {
- label "[_ project-manager.Customer_Name]"
- orderby_desc "upper(o.name) desc, earliest_finish_date desc"
- orderby_asc "upper(o.name) asc, earliest_finish_date asc"
- default_direction asc
- }
- category_id {
- label "[_ project-manager.Categories]"
- orderby_desc "c.category_name desc"
- orderby_asc "c.category_name asc"
- default_direction asc
- }
- earliest_finish_date {
- label "[_ project-manager.Earliest_finish]"
- orderby_desc "p.earliest_finish_date desc"
- orderby_asc "p.earliest_finish_date asc"
- default_direction asc
- }
- latest_finish_date {
- label "[_ project-manager.Latest_finish]"
- orderby_desc "p.latest_finish_date desc"
- orderby_asc "p.latest_finish_date asc"
- default_direction asc
- }
- actual_hours_completed {
- label "[_ project-manager.Hours_completed]"
- orderby_desc "p.actual_hours_completed desc"
- orderby_asc "p.actual_hours_completed asc"
- default_direction asc
- }
- } \
- -formats {
- normal {
- label "[_ project-manager.Table]"
- layout table
- row {
- project_name {}
- customer_name {}
- category_id {}
- earliest_finish_date {}
- latest_finish_date {}
- actual_hours_completed {}
- }
- }
- csv {
- label "[_ project-manager.CSV]"
- output csv
- page_size 0
- row {
- project_name {}
- customer_name {}
- category_id {}
- earliest_finish_date {}
- latest_finish_date {}
- actual_hours_completed {}
- }
- }
- } \
- -orderby_name orderby \
- -html {
- width 100%
- }
-
-# Note: On oracle it you get "ORA-03113: end-of-file on communication channel"
-# please drop the index cat_object_map_i. Unique indexes are not allowed in contact index tables
-
-db_multirow -extend { item_url } projects project_folders {
-} {
- set item_url [export_vars -base "one" {project_item_id}]
-}
-
-
-
-#list::write_output -name projects
-
-ns_log notice "PMID= $package_id , WHERE= [template::list::filter_where_clauses -and -name projects] , AS= $assignee_id"
-
-# ------------------------- END OF FILE ------------------------- #