scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

+ Remove nonsense string 

+ Add forgotten arg to FORMAT.
This commit is contained in:
interp 2003-01-19 17:01:44 +00:00
parent 61fc543af2
commit e8d592520f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
scheme/httpd/surflets/web-server/root/surflets/simple-servlet.scm
View File

@ -15,8 +15,7 @@
(list 'payment (make-yes-no "Pay per" "bill" "card")) (list 'payment (make-yes-no "Pay per" "bill" "card"))
(list 'date-of-bill (list 'date-of-bill
(make-radio "Pay at" (make-radio "Pay at"
(list "first" "middle" "end of month."))) (list "first" "middle" "end of month."))))))
(list 'return "Return to main menu."))))
) )
(if (string=? (extract/single 'pwd answers) (if (string=? (extract/single 'pwd answers)
(extract/single 're-pwd answers)) (extract/single 're-pwd answers))
@ -33,7 +32,8 @@
(extract/single 'date-of-bill answers))))) (extract/single 'date-of-bill answers)))))
(final-page "Data recorded.")) (final-page "Data recorded."))
(begin (begin
(inform (format #f "Hi ~a, you've misspelled your password. Go back and retype it.")) (inform (format #f "Hi ~a, you've misspelled your password. Go back and retype it."
(extract/single 'name answers)))
(final-page "Your registration has been canceled."))))) (final-page "Your registration has been canceled.")))))
)) ))