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

dont normalize the file path, so its ok to use a symlink for the solution file (pointing to a file that cannot be retrieved by itself)

Browse Source 
svn: r7417
This commit is contained in:
Eli Barzilay 2007-09-27 02:32:10 +00:00
parent 687deb3f8a
commit e0e9e18091
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/handin-server/status-web-root/servlets/status.ss
View File

@ -28,9 +28,7 @@
(body ([bgcolor "white"]) (h1 ((align "center")) ,title) ,@body)))
(define (relativize-path p)
(path->string
(find-relative-path (normalize-path server-dir)
(normalize-path p))))
(path->string (find-relative-path (normalize-path server-dir) p)))
(define (make-k k tag)
(format "~a~atag=~a" k (if (regexp-match? #rx"^[^#]*[?]" k) "&" "?")
@ -82,6 +80,7 @@
(let ([soln (and (member (assignment<->dir hi) (get-conf 'inactive-dirs))
(find-handin-entry hi #rx"^solution"))]
[none `((i "---"))])
(log-line ">>>> ~s" soln)
(cond [(not soln) none]
[(file-exists? soln)
`((a ((href ,(make-k k (relativize-path soln)))) "Solution"))]
@ -94,7 +93,8 @@
none
(apply append
(map (lambda (f)
`((a ([href ,(make-k k (relativize-path (build-path soln f)))])
`((a ([href ,(make-k k (relativize-path
(build-path soln f)))])
(tt ,f))
(br)))
files)))))]