From f5e2814586119bc406d7930c3d3c730d529a24a0 Mon Sep 17 00:00:00 2001 From: Drew Crampsie Date: Mon, 1 Aug 2005 16:43:31 -0700 Subject: [PATCH] made "contains" search criteria case insensitive for SQL backend darcs-hash:20050801234331-5417e-79f7f01047f33b99d0fcae25898ce38ef20b6f5d.gz --- src/backend/clsql.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/backend/clsql.lisp b/src/backend/clsql.lisp index 380b082..9bbea61 100644 --- 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) -- 2.20.1