diff options
author | Danjela Lura <danielaluraa@gmail.com> | 2020-06-23 14:30:01 +0200 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2020-06-26 17:54:19 +0100 |
commit | 89aaf984ec5782666983bdfd6ab8d2997770bd2a (patch) | |
tree | 3abab7096628bf7285b8e59db30edb580288b10c /guix-data-service/model/package.scm | |
parent | f16fdb44f12beed1afbb1bf2cd0270e79154f4e6 (diff) | |
download | data-service-89aaf984ec5782666983bdfd6ab8d2997770bd2a.tar data-service-89aaf984ec5782666983bdfd6ab8d2997770bd2a.tar.gz |
Include locale in search-packages-in-revision
Signed-off-by: Christopher Baines <mail@cbaines.net>
Diffstat (limited to 'guix-data-service/model/package.scm')
-rw-r--r-- | guix-data-service/model/package.scm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/guix-data-service/model/package.scm b/guix-data-service/model/package.scm index 43871ec..0c3e358 100644 --- a/guix-data-service/model/package.scm +++ b/guix-data-service/model/package.scm @@ -138,7 +138,9 @@ WHERE data.name IN (SELECT name FROM package_names);")) (define* (search-packages-in-revision conn commit-hash search-query - #:key limit-results) + #:key + limit-results + locale) (define query (string-append " @@ -171,7 +173,7 @@ INNER JOIN ( INNER JOIN package_synopsis ON package_synopsis.id = ANY (package_synopsis_sets.synopsis_ids) ORDER BY package_synopsis_sets.id, - CASE WHEN package_synopsis.locale = $2 THEN 2 + CASE WHEN package_synopsis.locale = $3 THEN 2 WHEN package_synopsis.locale = 'en_US.utf8' THEN 1 ELSE 0 END DESC @@ -184,7 +186,7 @@ INNER JOIN ( INNER JOIN package_descriptions ON package_descriptions.id = ANY (package_description_sets.description_ids) ORDER BY package_description_sets.id, - CASE WHEN package_descriptions.locale = $2 THEN 2 + CASE WHEN package_descriptions.locale = $3 THEN 2 WHEN package_descriptions.locale = 'en_US.utf8' THEN 1 ELSE 0 END DESC @@ -222,7 +224,7 @@ ORDER BY ( ""))) (exec-query conn query - (list commit-hash search-query))) + (list commit-hash search-query locale))) (define (count-packages-in-revision conn commit-hash) (define query |