made "contains" search criteria case insensitive for SQL backend

darcs-hash:20050801234331-5417e-79f7f01047f33b99d0fcae25898ce38ef20b6f5d.gz

diff --git a/src/backend/clsql.lisp b/src/backend/clsql.lisp
index 380b082..9bbea61 100644 (file)
--- a/src/backend/clsql.lisp
+++ b/src/backend/clsql.lisp
@@ -276,9 +276,9 @@ creates a clsql view-class"
 (def-compare-expr standard-db-object expr-= sql-=)
 (def-compare-expr standard-db-object expr-< sql-<)        
 (def-compare-expr standard-db-object expr-> sql->)
-(def-compare-expr standard-db-object expr-ends-with sql-like :value-format "%~A")
-(def-compare-expr standard-db-object expr-starts-with sql-like :value-format "~A%")
-(def-compare-expr standard-db-object expr-contains sql-like :value-format "%~A%")
+(def-compare-expr standard-db-object expr-ends-with sql-uplike :value-format "%~A")
+(def-compare-expr standard-db-object expr-starts-with sql-uplike :value-format "~A%")
+(def-compare-expr standard-db-object expr-contains sql-uplike :value-format "%~A%")
 
 (def-logical-expr standard-db-object expr-and #'sql-and)