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