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 ------------------------- #