scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

right-justify ids

This commit is contained in:
interp 2003-01-16 12:58:01 +00:00
parent 422a1db09f
commit c02cb068af
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scheme/httpd/surflets/web-server/root/surflets/admin-servlets.scm
View File

@ -185,7 +185,7 @@
(let ((session-id (car session-pair)) (let ((session-id (car session-pair))
(session-entry (cdr session-pair))) (session-entry (cdr session-pair)))
`((td ,(session-servlet-name session-entry)) `((td ,(session-servlet-name session-entry))
(td ,session-id)))) (td (@ (align "right")) ,session-id))))
actions actions
footer) footer)
(if (not action) (if (not action)
@ -297,7 +297,7 @@
current-continuations current-continuations
(lambda (continuation-pair) (lambda (continuation-pair)
(let ((continuation-id (car continuation-pair))) (let ((continuation-id (car continuation-pair)))
`((td ,continuation-id)))) `((td (@ (align "right")) ,continuation-id))))
actions actions
footer) footer)
(if (not action) (if (not action)