Index: openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/tcl/Attic/project-procs.tcl,v
diff -u -r1.6.2.24 -r1.6.2.25
--- openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl	1 Jul 2005 06:55:23 -0000	1.6.2.24
+++ openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl	1 Jul 2005 17:34:31 -0000	1.6.2.25
@@ -1618,7 +1618,7 @@
     @error 
 } {
 
-    set return_val [db_list_of_lists get_vals { }]
+    set return_val [util_memoize [list db_list_of_lists get_vals { } ] 300]
 
     return $return_val
 }
Index: openacs-4/contrib/packages/project-manager/tcl/task-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/tcl/Attic/task-procs.tcl,v
diff -u -r1.4.2.45 -r1.4.2.46
--- openacs-4/contrib/packages/project-manager/tcl/task-procs.tcl	14 May 2005 12:12:41 -0000	1.4.2.45
+++ openacs-4/contrib/packages/project-manager/tcl/task-procs.tcl	1 Jul 2005 17:34:31 -0000	1.4.2.46
@@ -1284,8 +1284,10 @@
 
         set longterm_description "[_ project-manager.lt_look_over_these_to_pl]"
 
-        # okay, let's now set up the email body
+        set cur_task_count $task_count($party)
 
+        # okay, let's now set up the email body
+        
         set description "
 <p>[_ project-manager.lt_This_is_a_daily_remin]</p>
 
Index: openacs-4/contrib/packages/project-manager/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/index.tcl,v
diff -u -r1.13.2.15 -r1.13.2.16
--- openacs-4/contrib/packages/project-manager/www/index.tcl	12 May 2005 07:12:40 -0000	1.13.2.15
+++ openacs-4/contrib/packages/project-manager/www/index.tcl	1 Jul 2005 17:34:31 -0000	1.13.2.16
@@ -69,7 +69,7 @@
 # Set status
 if {![exists_and_not_null status_id]} {
     set status_where_clause ""
-    set status_id ""
+    set status_id [pm::project::default_status_open]
 } else {
     set status_where_clause {p.status_id = :status_id}
 }
Index: openacs-4/contrib/packages/project-manager/www/tasks.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/tasks.tcl,v
diff -u -r1.5.2.28 -r1.5.2.29
--- openacs-4/contrib/packages/project-manager/www/tasks.tcl	14 Jun 2005 16:49:11 -0000	1.5.2.28
+++ openacs-4/contrib/packages/project-manager/www/tasks.tcl	1 Jul 2005 17:34:31 -0000	1.5.2.29
@@ -23,9 +23,9 @@
     party_id:optional
     {searchterm ""}
     {mine_p "t"}
-    {status_id ""}
+    {status_id [pm::project::default_status_open]}
     {page ""}
-    {page_size 25}
+    {page_size 1000}
     role_id:optional
     project_item_id:optional
 } -properties {