suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add login link

Browse Source
This commit is contained in:
Jay McCarthy 2013-02-04 06:32:32 -07:00
parent 7f6d85f734
commit 0f6a5195b3
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/meta/planet2-index/official/main.rkt
View File

@ -247,7 +247,12 @@
(a ([href ,(main-url page/manage)])
,(if (current-user req #f)
"Manage Your Packages"
"Contribute a Package")))))
"Contribute a Package")))
,(if (current-user req #f)
""
`(span ([class "menu_option"])
(a ([href ,(main-url page/login)])
"Login")))))
(package-tags pkgs terms)
(package-table page/info pkgs #:terms terms)))
@ -680,7 +685,7 @@
(package-ref i 'checksum))
(define now (current-seconds))
(define new-checksum
(package-url->checksum
(package-url->checksum
(package-ref i 'source)
(list (cons 'client_id (client_id))
(cons 'client_secret (client_secret)))))