|
@@ -155,7 +155,7 @@
|
|
|
|
|
|
|
|
(defn template-search
|
|
(defn template-search
|
|
|
([q]
|
|
([q]
|
|
|
- (template-search q 10))
|
|
|
|
|
|
|
+ (template-search q 100))
|
|
|
([q limit]
|
|
([q limit]
|
|
|
(when q
|
|
(when q
|
|
|
(let [q (clean-str q)
|
|
(let [q (clean-str q)
|
|
@@ -166,7 +166,7 @@
|
|
|
|
|
|
|
|
(defn property-search
|
|
(defn property-search
|
|
|
([q]
|
|
([q]
|
|
|
- (property-search q 10))
|
|
|
|
|
|
|
+ (property-search q 100))
|
|
|
([q limit]
|
|
([q limit]
|
|
|
(when q
|
|
(when q
|
|
|
(let [q (clean-str q)
|
|
(let [q (clean-str q)
|
|
@@ -181,7 +181,7 @@
|
|
|
|
|
|
|
|
(defn property-value-search
|
|
(defn property-value-search
|
|
|
([property q]
|
|
([property q]
|
|
|
- (property-value-search property q 10))
|
|
|
|
|
|
|
+ (property-value-search property q 100))
|
|
|
([property q limit]
|
|
([property q limit]
|
|
|
(when q
|
|
(when q
|
|
|
(let [q (clean-str q)
|
|
(let [q (clean-str q)
|