CMR-7185-1 working on a Out Of Memory Error. using much smaller batch…

…es. (#1474)
nasa · Feb 28, 2022 · 70795af · 70795af
1 parent b49b645
commit 70795af
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/common-app-lib/src/cmr/common_app/services/kms_lookup.clj b/common-app-lib/src/cmr/common_app/services/kms_lookup.clj
@@ -156,7 +156,7 @@
   "Takes a kms-index, the keyword scheme, and a short name and returns the full KMS hierarchy for
   that short name. Comparison is made case insensitively."
   [kms-index keyword-scheme short-name]
-  (get-in kms-index [:short-name-index keyword-scheme (str/lower-case short-name)]))
+  (get-in kms-index [:short-name-index keyword-scheme (util/safe-lowercase short-name)]))
 
 (defn lookup-by-location-string
   "Takes a kms-index and a location string and returns the full KMS hierarchy for that location

diff --git a/indexer-app/src/cmr/indexer/services/autocomplete.clj b/indexer-app/src/cmr/indexer/services/autocomplete.clj
@@ -203,14 +203,16 @@
          flatten
          (remove anti-value-suggestion?))))
 
+(def REINDEX_BATCH_SIZE 100)
+
 (defn-timed reindex-autocomplete-suggestions-for-provider
   "Reindex autocomplete suggestion for a given provider"
   [context provider-id]
   (info "Reindexing autocomplete suggestions for provider" provider-id)
   (let [latest-collection-batches (meta-db/find-in-batches
                                    context
                                    :collection
-                                   service/REINDEX_BATCH_SIZE
+                                   REINDEX_BATCH_SIZE
                                    {:provider-id provider-id :latest true})]
     (reduce (fn [num-indexed coll-batch]
               (let [batch (collections->suggestion-docs context coll-batch provider-id)]