Index: openacs-4/packages/simulation/www/siminst/simulation-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/siminst/simulation-new.tcl,v
diff -u -r1.6 -r1.6.2.1
--- openacs-4/packages/simulation/www/siminst/simulation-new.tcl	23 Jan 2004 13:18:43 -0000	1.6
+++ openacs-4/packages/simulation/www/siminst/simulation-new.tcl	30 Nov 2004 21:48:14 -0000	1.6.2.1
@@ -1,5 +1,7 @@
 ad_page_contract {
     A list of available simulation templates
+} {
+    orderby:optional
 }
 
 set page_title "New Simulation From Template"
@@ -31,6 +33,7 @@
         number_of_tasks {
             label "Tasks"
             html { align center }
+	    orderby number_of_tasks
         }
         map {
             label ""
@@ -41,7 +44,7 @@
         }    
     }
 
-db_multirow -extend {map_url} ready_templates select_ready_templates {
+db_multirow -extend {map_url} ready_templates select_ready_templates "
 select workflow_id,
        suggested_duration,
        pretty_name,
@@ -57,7 +60,8 @@
  where ss.simulation_id = w.workflow_id
    and w.object_id = :package_id
    and ss.sim_type = 'ready_template'
-} {
+    [template::list::orderby_clause -orderby -name "ready_templates"]
+" {
     set map_url [export_vars -base "map-create" { workflow_id }]
 
     if { [empty_string_p $suggested_duration] } {