diff options
| -rw-r--r-- | module/calp/html/vcomponent.scm | 2 | ||||
| -rw-r--r-- | module/web/uri-query.scm | 3 |
2 files changed, 3 insertions, 2 deletions
diff --git a/module/calp/html/vcomponent.scm b/module/calp/html/vcomponent.scm index 29aa43f2..1f51e40f 100644 --- a/module/calp/html/vcomponent.scm +++ b/module/calp/html/vcomponent.scm @@ -126,7 +126,7 @@ "/search/?" ,(encode-query-parameters `((q . (member - ,(->quoted-string c) + ,(->string c) (or (prop event 'CATEGORIES) '()))))))) ,c)) diff --git a/module/web/uri-query.scm b/module/web/uri-query.scm index efdd178a..9eff203f 100644 --- a/module/web/uri-query.scm +++ b/module/web/uri-query.scm @@ -10,5 +10,6 @@ (format #f "~a=~a" (car p) (uri-encode (->quoted-string (cdr p))))) - parameters))) + parameters) + "&")) |