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

get only extra field names from the server

Browse Source 
svn: r1808
This commit is contained in:
Eli Barzilay 2006-01-11 23:21:04 +00:00
parent 26531d4405
commit 7a0fc6091a
2 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/handin-client/client-gui.ss
View File

@ -340,7 +340,7 @@
(mk-passwd "Old Password:" old-user-box activate-change))
(define change-extra-fields
(map (lambda (f)
(mk-txt (format "~a:" (car f)) old-user-box activate-change))
(mk-txt (string-appeng f ":") old-user-box activate-change))
(EXTRA-FIELDS)))
(define new-passwd
(mk-passwd "New Password:" old-user-box activate-change))
@ -374,7 +374,7 @@
(send new-username set-value (remembered-user))
(define add-extra-fields
(map (lambda (f)
(mk-txt (format "~a:" (car f)) new-user-box activate-new))
(mk-txt (string-append f ":") new-user-box activate-new))
(EXTRA-FIELDS)))
;; (define full-name (mk-txt "Full Name:" new-user-box activate-new))
;; (define student-id (mk-txt "ID:" new-user-box activate-new))
@ -469,7 +469,7 @@
(format "The \"~a\" and \"~a\" passwords are not the same."
l1 l2))
(k (void))))
(for-each (lambda (t f) (check-length t 100 (car f) k))
(for-each (lambda (t f) (check-length t 100 f k))
(if new? add-extra-fields change-extra-fields)
(EXTRA-FIELDS))
(send tabs enable #f)

3
collects/handin-client/client.ss
View File

@ -51,8 +51,7 @@
(let ([r (handin-r h)] [w (handin-w h)])
(write+flush w 'get-extra-fields 'bye)
(let ([v (read r)])
(unless (and (list? v)
(andmap (lambda (l) (and (pair? l) (string? (car l)))) v))
(unless (and (list? v) (andmap string? v))
(error 'handin-connect
"failed to get extra-fields list from server"))
(wait-for-ok r "get-extra-fields")