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

Added more vertical space at the "home" page in the internal HelpDesk.

Browse Source 
svn: r7188
This commit is contained in:
Jens Axel Soegaard 2007-08-26 22:09:13 +00:00
parent 6d2e979416
commit 74b20d58d1
1 changed files with 17 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
collects/help/servlets/home.ss
View File

@ -103,15 +103,21 @@
(html-top initial-request) (html-top initial-request)
(left-items) (left-items)
right-header right-items)]))]))))) right-header right-items)]))])))))
(define (br)
(if (eq? (helpdesk-platform) 'external-browser)
'()
'((br) (br))))
(define (left-items) (define (left-items)
`(-- -- -- -- -- `(-- -- -- -- --
("Get help: " ("Get help: "
nbsp nbsp nbsp nbsp nbsp nbsp nbsp nbsp
(b (a ((href ,url-helpdesk-help)) "Help Desk"))) (b (a ((href ,url-helpdesk-help)) "Help Desk"))
-- -- ,@(br))
-- --
("Learn to program in Scheme: " ("Learn to program in Scheme: "
nbsp nbsp nbsp nbsp nbsp nbsp nbsp nbsp
"Reference: " "Reference: "
'nbsp 'nbsp
(a ((href ,url-helpdesk-manuals)) "Manuals") ", " (a ((href ,url-helpdesk-manuals)) "Manuals") ", "
@ -121,14 +127,16 @@
'nbsp 'nbsp
(a ((href ,url-helpdesk-books)) "Books") ", " (a ((href ,url-helpdesk-books)) "Books") ", "
(a ((href ,url-helpdesk-languages)) "Languages") ", " (a ((href ,url-helpdesk-languages)) "Languages") ", "
(a ((href ,url-helpdesk-teachpacks)) "Teachpacks")) (a ((href ,url-helpdesk-teachpacks)) "Teachpacks")
-- -- ,@(br))
-- --
("How to run programs: " ("How to run programs: "
nbsp nbsp nbsp nbsp (b (a ((href ,url-helpdesk-software)) "Software: ")) nbsp nbsp nbsp nbsp (b (a ((href ,url-helpdesk-software)) "Software: "))
'nbsp 'nbsp
(a ((href ,url-helpdesk-tour)) "Tour") ", " (a ((href ,url-helpdesk-tour)) "Tour") ", "
(a ((href ,url-helpdesk-drscheme)) "DrScheme") ", " (a ((href ,url-helpdesk-drscheme)) "DrScheme") ", "
(a ((href ,url-helpdesk-release)) "Release") (a ((href ,url-helpdesk-release)) "Release")
,@(br)
; (a ((href ,url-helpdesk-drscheme-faq)) "FAQ")) ; Moved to the DrScheme page ; (a ((href ,url-helpdesk-drscheme-faq)) "FAQ")) ; Moved to the DrScheme page
) )
-- -- -- --
@ -137,8 +145,9 @@
(a ((href ,url-helpdesk-mailing-lists)) "Mailing Lists") (a ((href ,url-helpdesk-mailing-lists)) "Mailing Lists")
,@(case (helpdesk-platform) ,@(case (helpdesk-platform)
((external-browser) `(", " (a ((href ,url-external-send-bug-report)) "Send a bug report"))) ((external-browser) `(", " (a ((href ,url-external-send-bug-report)) "Send a bug report")))
(else '()))) (else '()))
-- -- ,@(br))
-- --
("" (""
" " " " " " " "
,@(case (helpdesk-platform) ,@(case (helpdesk-platform)