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 'date-of-bill
(make-radio "Pay at"
(list "first" "middle" "end of month.")))
(list 'return "Return to main menu."))))
(list "first" "middle" "end of month."))))))
)
(if (string=? (extract/single 'pwd answers)
(extract/single 're-pwd answers))
@ -33,7 +32,8 @@
(extract/single 'date-of-bill answers)))))
(final-page "Data recorded."))
(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.")))))
))