Skip to content

Commit

Permalink
Merge branch 'release/0.9.26'
Browse files Browse the repository at this point in the history
  • Loading branch information
muloem committed Nov 2, 2017
2 parents 03c5fc5 + 5ee0812 commit 01f4db4
Show file tree
Hide file tree
Showing 2 changed files with 10 additions and 3 deletions.
4 changes: 2 additions & 2 deletions project.clj
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
(defproject flow-services "0.9.25"
(defproject flow-services "0.9.26"
:description "HTTP layer to applets functionality"
:url "https://github.com/akvo/akvo-flow-services"
:license {:name "GNU Affero General Public License"
Expand All @@ -7,7 +7,7 @@
:dependencies [[org.clojure/clojure "1.7.0"]
[org.clojure/data.csv "0.1.3"]
[org.clojure/tools.nrepl "0.2.12"]
[org.akvo/commons "0.4.0"]
[org.akvo/commons "0.4.6"]
[com.taoensso/timbre "3.3.1"]
[cheshire "5.3.1"]
[compojure "1.1.8"]
Expand Down
9 changes: 8 additions & 1 deletion src/akvo/flow_services/exporter.clj
Original file line number Diff line number Diff line change
Expand Up @@ -35,6 +35,11 @@
bn (config/get-bucket-name base-url)]
(format "%s/%s/%s/%s" base-path "reports" bn (UUID/randomUUID))))

(defn- get-caddisfly-tests-file-url [options]
"Retrieve the URL for caddisfly tests file"
(let [bucket (get options "appId")]
(:caddisfly-tests-file-url (config/find-config bucket))))

(defn- get-file [type base-url id]
(let [path (get-path base-url)]
(.mkdirs (io/file path))
Expand All @@ -48,7 +53,9 @@
file (get-file type base-url id)
options (assoc options
"maxDataReportRows"
(:max-data-report-rows @config/settings))
(:max-data-report-rows @config/settings)
"caddisflyTestsFileUrl"
(get-caddisfly-tests-file-url options))
criteria (-> "uploadUrl"
options
config/get-bucket-name
Expand Down

0 comments on commit 01f4db4

Please sign in to comment.