Index: openacs-4/packages/simulation/lib/sim-templates.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/lib/sim-templates.tcl,v
diff -u -N -r1.18.2.2 -r1.18.2.3
--- openacs-4/packages/simulation/lib/sim-templates.tcl	23 Dec 2004 09:48:25 -0000	1.18.2.2
+++ openacs-4/packages/simulation/lib/sim-templates.tcl	21 Apr 2005 16:52:25 -0000	1.18.2.3
@@ -113,10 +113,6 @@
 # a list of templates
 #
 ######################################################################
-set filter_clause ""
-if { !$package_admin_p } {
-    set filter_clause "and a.creation_user = :user_id"
-}
 
 db_multirow -extend { edit_url view_url delete_url clone_url edit_p } sim_templates select_sim_templates "
     select w.workflow_id,
@@ -140,7 +136,6 @@
        and ss.simulation_id = w.workflow_id
        and w.object_id = :package_id 
        and ss.sim_type in ('dev_template','ready_template')
-       $filter_clause
    [template::list::orderby_clause -orderby -name sim_templates]
 " {
     set description [ad_html_text_convert -from $description_mime_type -maxlen 200 -- $description]
Index: openacs-4/packages/simulation/lib/yellow-pages.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/lib/yellow-pages.tcl,v
diff -u -N -r1.6.2.2 -r1.6.2.3
--- openacs-4/packages/simulation/lib/yellow-pages.tcl	23 Dec 2004 09:48:25 -0000	1.6.2.2
+++ openacs-4/packages/simulation/lib/yellow-pages.tcl	21 Apr 2005 16:52:25 -0000	1.6.2.3
@@ -68,7 +68,7 @@
     }
     title { 
         label "[_ simulation.Name]"
-        orderby title
+        orderby uptitle
         link_url_col view_url
     }
     description {
@@ -102,11 +102,14 @@
     set where_clause(characters) [simulation::object::search_clause $search_columns(characters) $search_terms]
 }
 
+set ordering [template::list::orderby_clause -orderby -name "objects"]
+
 db_multirow -extend {view_url} objects select_objects "
    select sl.object_id,
           sl.object_type,
           ot.pretty_name as object_type_pretty,
           sl.title as title,
+          upper(sl.title) as uptitle,
           sl.mime_type,
           sl.name,
           sl.item_id,
@@ -125,6 +128,7 @@
           sc.object_type,
           ot.pretty_name as object_type_pretty,
           sc.title as title,
+          upper(sc.title) as uptitle,
           sc.mime_type,
           sc.name,
           sc.item_id,
@@ -139,7 +143,7 @@
       and sc.revision_id = cr.revision_id
       [ad_decode $where_clause(characters) "" "" "and $where_clause(characters)"]
 
-    [template::list::orderby_clause -orderby -name "objects"]
+      [ad_decode $ordering "" "order by uptitle" $ordering]
 " {
     set description [string_truncate -len 200 $description]
     switch -glob $mime_type {