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

do a post-redirect-get to avoid the usual problems

Browse Source 
svn: r18317
This commit is contained in:
Eli Barzilay 2010-02-24 11:15:37 +00:00
parent 38d201cd38
commit e9c0ba7398
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/handin-server/web-status-server.ss
View File

@ -233,6 +233,7 @@
[user (and user (if (get-conf 'username-case-sensitive) [user (and user (if (get-conf 'username-case-sensitive)
user (string-foldcase user)))] user (string-foldcase user)))]
[user-data (get-user-data user)]) [user-data (get-user-data user)])
(redirect/get)
(cond [(and user-data (cond [(and user-data
(string? passwd) (string? passwd)
(let ([pw (md5 passwd)]) (let ([pw (md5 passwd)])