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
+
+    }
+}