guix
/
data-service
mirror of git://git.savannah.gnu.org/guix/data-service.git
2
0
Fork 0
Code Issues Releases Wiki Activity

URI encode some derivation names in links 

To handle characters like +.
This commit is contained in:
Christopher Baines 2023-09-07 11:14:11 +01:00
parent f2e2ca7a07
commit e8e1459769
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
guix-data-service/web/compare/html.scm
View File

@ -930,7 +930,7 @@ enough builds to determine a change")))
,target)) ,target))
(td ,@(if base-derivation-file-name (td ,@(if base-derivation-file-name
`((a (@ (style "display: block;") `((a (@ (style "display: block;")
(href ,base-derivation-file-name)) (href ,(uri-encode-filename base-derivation-file-name)))
(span (@ (class "text-danger glyphicon glyphicon-minus pull-left") (span (@ (class "text-danger glyphicon glyphicon-minus pull-left")
(style "font-size: 1.5em; padding-right: 0.4em;"))) (style "font-size: 1.5em; padding-right: 0.4em;")))
,@(build-statuses->build-status-labels ,@(build-statuses->build-status-labels
@ -939,7 +939,7 @@ enough builds to determine a change")))
'()) '())
,@(if target-derivation-file-name ,@(if target-derivation-file-name
`((a (@ (style "display: block; clear: left;") `((a (@ (style "display: block; clear: left;")
(href ,target-derivation-file-name)) (href ,(uri-encode-filename target-derivation-file-name)))
(span (@ (class "text-success glyphicon glyphicon-plus pull-left") (span (@ (class "text-success glyphicon glyphicon-plus pull-left")
(style "font-size: 1.5em; padding-right: 0.4em;"))) (style "font-size: 1.5em; padding-right: 0.4em;")))
,@(build-statuses->build-status-labels ,@(build-statuses->build-status-labels
@ -955,9 +955,9 @@ enough builds to determine a change")))
,(string-append ,(string-append
"/compare/derivation?" "/compare/derivation?"
"base_derivation=" "base_derivation="
base-derivation-file-name (uri-encode-filename base-derivation-file-name)
"&target_derivation=" "&target_derivation="
target-derivation-file-name))) (uri-encode-filename target-derivation-file-name))))
"⇕ Compare")) "⇕ Compare"))
'())))))) '()))))))
system-and-versions))) system-and-versions)))