Index: openacs-4/contrib/packages/project-manager/project-manager.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/Attic/project-manager.info,v
diff -u -r1.16.2.23 -r1.16.2.24
--- openacs-4/contrib/packages/project-manager/project-manager.info	4 Nov 2004 01:16:07 -0000	1.16.2.23
+++ openacs-4/contrib/packages/project-manager/project-manager.info	5 Nov 2004 01:25:03 -0000	1.16.2.24
@@ -7,14 +7,14 @@
     <initial-install-p>f</initial-install-p>
     <singleton-p>f</singleton-p>
     
-    <version name="2.51b1" url="http://openacs.org/repository/download/apm/project-manager-2.51b1.apm">
+    <version name="2.52b1" url="http://openacs.org/repository/download/apm/project-manager-2.52b1.apm">
         <owner url="mailto:jader@bread.com">Jade Rubick</owner>
         <summary>Project management tool for OpenACS</summary>
-        <release-date>2004-11-03</release-date>
+        <release-date>2004-11-04</release-date>
         <vendor url="mailto:jader@bread.com">Integrated Bakery Resources</vendor>
         <description format="text/plain">Track tasks, estimates and actual progress for a project.  See the &lt;a href=&quot;http://openacs.org/projects/dotwrk/project_management/&quot;&gt;project page&lt;/a&gt; for more information.</description>
 
-        <provides url="project-manager" version="2.51b1"/>
+        <provides url="project-manager" version="2.52b1"/>
         <requires url="acs-datetime" version="4.0"/>
         <requires url="acs-templating" version="4.6.4"/>
         <requires url="calendar" version="2.0.1"/>
@@ -25,8 +25,8 @@
         <requires url="organizations" version="0.3d"/>
 
         <callbacks>
-            <callback type="before-uninstantiate"  proc="pm::install::package_uninstantiate"/>
             <callback type="after-instantiate"  proc="pm::install::package_instantiate"/>
+            <callback type="before-uninstantiate"  proc="pm::install::package_uninstantiate"/>
         </callbacks>
         <parameters>
             <parameter datatype="string"  min_n_values="1"  max_n_values="1"  name="LoggerPrimaryURL"  description="This is the primary logger instance that is linked in to this project-manager instance. Links to this instance are added to 
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.10 -r1.6.2.11
--- openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl	3 Nov 2004 20:37:12 -0000	1.6.2.10
+++ openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl	5 Nov 2004 01:25:06 -0000	1.6.2.11
@@ -1969,3 +1969,71 @@
 }
 
 
+ad_proc -public pm::project::one_default_orderby {
+    {-set ""}
+} {
+    Returns the default order by (set by ad_set_client_property)
+    
+    @author  (jader@bread.com)
+    @creation-date 2004-11-04
+    
+    @param if set is set, then set the default_orderby
+
+    @return 
+    
+    @error 
+} {
+    if {[empty_string_p $set]} {
+        
+        set default_orderby "latest_start,asc"
+        
+        set return_val [ad_get_client_property \
+                            -default $default_orderby \
+                            -- \
+                            project-manager \
+                            project-one-orderby]
+        
+        return $return_val
+
+    } else {
+
+        ad_set_client_property -- project-manager project-one-orderby $set
+        return $set
+
+    }
+}
+
+
+ad_proc -public pm::project::index_default_orderby {
+    {-set ""}
+} {
+    Returns the default order by (set by ad_set_client_property)
+    
+    @author  (jader@bread.com)
+    @creation-date 2004-11-04
+    
+    @param if set is set, then set the default_orderby
+
+    @return 
+    
+    @error 
+} {
+    if {[empty_string_p $set]} {
+        
+        set default_orderby "project_name,asc"
+        
+        set return_val [ad_get_client_property \
+                            -default $default_orderby \
+                            -- \
+                            project-manager \
+                            project-index-orderby]
+        
+        return $return_val
+
+    } else {
+
+        ad_set_client_property -- project-manager project-index-orderby $set
+        return $set
+
+    }
+}
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.26 -r1.4.2.27
--- openacs-4/contrib/packages/project-manager/tcl/task-procs.tcl	4 Nov 2004 01:04:17 -0000	1.4.2.26
+++ openacs-4/contrib/packages/project-manager/tcl/task-procs.tcl	5 Nov 2004 01:25:06 -0000	1.4.2.27
@@ -2361,3 +2361,38 @@
         ""
 
 }
+
+
+ad_proc -public pm::task::default_orderby {
+    {-set ""}
+} {
+    Returns the default order by (set by ad_set_client_property)
+    
+    @author  (jader@bread.com)
+    @creation-date 2004-11-04
+    
+    @param if set is set, then set the default_orderby
+
+    @return 
+    
+    @error 
+} {
+    if {[empty_string_p $set]} {
+        
+        set default_orderby "latest_finish_pretty,asc"
+        
+        set return_val [ad_get_client_property \
+                            -default $default_orderby \
+                            -- \
+                            project-manager \
+                            task-index-orderby]
+        
+        return $return_val
+
+    } else {
+
+        ad_set_client_property -- project-manager task-index-orderby $set
+        return $set
+
+    }
+}
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.7 -r1.13.2.8
--- openacs-4/contrib/packages/project-manager/www/index.tcl	26 Oct 2004 03:03:38 -0000	1.13.2.7
+++ openacs-4/contrib/packages/project-manager/www/index.tcl	5 Nov 2004 01:25:07 -0000	1.13.2.8
@@ -103,6 +103,15 @@
 }
 
 
+set default_orderby [pm::project::index_default_orderby]
+
+if {[exists_and_not_null orderby_project]} {
+    pm::project::index_default_orderby \
+        -set $orderby_project
+}
+
+
+
 template::list::create \
     -name projects \
     -multirow projects \
@@ -162,7 +171,7 @@
         }
     } \
     -orderby {
-        default_value latest_finish_date,asc
+        default_value $default_orderby
         project_name {
             label "Project name"
             orderby_desc "upper(p.title) desc"
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.10 -r1.30.2.11
--- openacs-4/contrib/packages/project-manager/www/one.tcl	26 Oct 2004 01:21:11 -0000	1.30.2.10
+++ openacs-4/contrib/packages/project-manager/www/one.tcl	5 Nov 2004 01:25:07 -0000	1.30.2.11
@@ -219,6 +219,14 @@
 
 set process_link "process-use?project_item_id=$project_item_id"
 
+set default_orderby [pm::project::one_default_orderby]
+
+if {[exists_and_not_null orderby_tasks]} {
+    pm::project::one_default_orderby \
+        -set $orderby_tasks
+}
+
+
 template::list::create \
     -name tasks \
     -multirow tasks \
@@ -314,7 +322,7 @@
         }
     } \
     -orderby {
-        default_value latest_start,asc
+        default_value $default_orderby
         title {
             orderby_asc "title asc, task_item_id asc"
             orderby_desc "title desc, task_item_id desc"
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.10 -r1.5.2.11
--- openacs-4/contrib/packages/project-manager/www/tasks.tcl	26 Oct 2004 01:21:11 -0000	1.5.2.10
+++ openacs-4/contrib/packages/project-manager/www/tasks.tcl	5 Nov 2004 01:25:07 -0000	1.5.2.11
@@ -95,6 +95,15 @@
     set search_term_where ""
 }
 
+
+set default_orderby [pm::task::default_orderby]
+
+if {[exists_and_not_null orderby]} {
+    pm::task::default_orderby \
+        -set $orderby
+}
+
+
 template::list::create \
     -name tasks \
     -multirow tasks \
@@ -178,7 +187,7 @@
         }
     } \
     -orderby {
-        default_value latest_finish_pretty,asc
+        default_value $default_orderby
         task_number {
             label "Task \#"
             orderby_desc "ts.task_number desc, p.first_names, p.last_name"