commit d5a644f8f2e460beab09d06e955a38bdbb8d8d66
parent aec79d1db5712990f39473f3664b1b84383caee4
Author: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 11 Nov 2013 09:50:24 -0700
make site: fix for pop-up help
original commit: 5c17488d4ca4dd141261a97972dd93598450c571
Diffstat:
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/pkgs/distro-build/download-page.rkt b/pkgs/distro-build/download-page.rkt
@@ -126,7 +126,7 @@
(define (get-site-help last-col)
(let ([h (hash-ref site-help last-col #f)])
(if h
- (let* ([id "help"]
+ (let* ([id (~a "help" (gensym))]
[toggle (let ([elem (~a "document.getElementById" "('" id "')")])
(~a elem ".style.display = ((" elem ".style.display == 'inline') ? 'none' : 'inline');"
" return false;"))])