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

fix a bug, when there is no user field

Browse Source 
svn: r11982
This commit is contained in:
Eli Barzilay 2008-10-09 01:33:35 +00:00
parent 98c8abeb3b
commit a51ea08cb4
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -225,8 +225,10 @@
(tr (td ([colspan "2"] [align "center"])
(input ([type "submit"] [name "post"]
[value "Login"])))))))))]
[user (clean-str (aget (request-bindings request) 'user))]
[passwd (aget (request-bindings request) 'passwd)]
[bindings (request-bindings request)]
[user (aget bindings 'user)]
[passwd (aget bindings 'passwd)]
[user (and user (clean-str user))]
[user-data (get-user-data user)])
(cond [(and user-data
(string? passwd)