Index: openacs-4/contrib/packages/project-manager/www/one-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/one-postgresql.xql,v
diff -u -r1.23.2.6 -r1.23.2.7
--- openacs-4/contrib/packages/project-manager/www/one-postgresql.xql	26 Oct 2004 01:21:11 -0000	1.23.2.6
+++ openacs-4/contrib/packages/project-manager/www/one-postgresql.xql	9 Dec 2004 16:53:44 -0000	1.23.2.7
@@ -105,6 +105,7 @@
         t.revision_id   = i.live_revision and
         t.item_id       = ti.task_id and
         ti.status       = s.status_id
+	$done_clause
         [template::list::filter_where_clauses -and -name tasks]
         [template::list::orderby_clause -name tasks -orderby]
     </querytext>
Index: openacs-4/contrib/packages/project-manager/www/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/one.tcl,v
diff -u -r1.30.2.12 -r1.30.2.13
--- openacs-4/contrib/packages/project-manager/www/one.tcl	18 Nov 2004 19:17:51 -0000	1.30.2.12
+++ openacs-4/contrib/packages/project-manager/www/one.tcl	9 Dec 2004 16:53:44 -0000	1.30.2.13
@@ -102,6 +102,7 @@
 set project_term_lower [parameter::get -parameter "projectname" -default "project"]
 set task_term          [parameter::get -parameter "TaskName" -default "Task"]
 set use_goal_p         [parameter::get -parameter "UseGoalP" -default "1"]
+set hide_done_tasks_p  [parameter::get -parameter "HideDoneTasksP" -default "1"]
 set use_project_code_p [parameter::get -parameter "UseUserProjectCodesP" -default "1"]
 set use_uncertain_completion_times_p [parameter::get -parameter "UseUncertainCompletionTimesP" -default "1"]
 set use_project_customizations_p [parameter::get -parameter "UseProjectCustomizationsP" -default "0"]
@@ -219,6 +220,14 @@
 
 # Tasks, using list-builder ---------------------------------
 
+# Hide finished tasks. This should be added as a filter, but I did not have time to look it up in the howto. <openacs@sussdorff.de>
+
+if {$hide_done_tasks_p} {
+    set done_clause "and t.percent_complete < 100"
+} else {
+    set done_clause ""
+}
+
 set process_link "process-use?project_item_id=$project_item_id"
 
 set default_orderby [pm::project::one_default_orderby]