From e0e9e18091f6ef66a3361f96c2cd355e4b62f499 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Thu, 27 Sep 2007 02:32:10 +0000 Subject: [PATCH] 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) svn: r7417 --- collects/handin-server/status-web-root/servlets/status.ss | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/collects/handin-server/status-web-root/servlets/status.ss b/collects/handin-server/status-web-root/servlets/status.ss index 7a92290743..81cc6b274e 100644 --- a/collects/handin-server/status-web-root/servlets/status.ss +++ b/collects/handin-server/status-web-root/servlets/status.ss @@ -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)))))]