Index: openacs-4/packages/simulation/tcl/object-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/tcl/object-procs.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/simulation/tcl/object-procs.tcl	27 Feb 2004 20:12:13 -0000	1.11
+++ openacs-4/packages/simulation/tcl/object-procs.tcl	9 Mar 2004 17:04:24 -0000	1.12
@@ -352,3 +352,21 @@
 
     return $xml_doc
 }
+
+ad_proc -private simulation::object::search_clause {
+    search_columns
+    search_string
+} {
+    Return a SQL clause for searching the given search columns.
+
+    @author Peter Marklund
+} {
+    set trimmed_search_string [string trim [string tolower $search_string]]
+
+    set where_clauses [list]
+    foreach column $search_columns {
+        lappend where_clauses "lower($column) like '%$trimmed_search_string%'"
+    }
+    
+    return "([join $where_clauses " or "])"
+}