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

Update list of return links.

This commit is contained in:
interp 2003-01-16 12:50:14 +00:00
parent 2ebb8d0e0f
commit d54645f39b
2 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -15,7 +15,8 @@
(list 'payment (make-yes-no "Pay per" "bill" "card"))
(list 'date-of-bill
(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)
(extract/single 're-pwd answers))

10
scheme/httpd/surflets/web-server/root/surflets/spaceship.scm
View File

@ -338,7 +338,7 @@ fullfill UFP Spaceship Crew's Rights Act 023/1000285.0/AB")
(td ,size-input)
(td "people"))
(tr (td ,(make-submit-button)))))
,(return-links main-return-link first-page-return-link))))
,(return-links first-page-return-link main-return-link))))
;;; Text displayed if crew size is too big for the spaceship's class.
(define (complain-size class size)
@ -381,7 +381,7 @@ specify a positive number.")
(table (tr (td ,shield-input) (td "TJ"))))
'(h2 "Step 4 -- Done: No shields"))
,(make-submit-button "OK"))
,(return-links main-return-link first-page-return-link))))
,(return-links first-page-return-link main-return-link))))
;;; Text displayed, if arms' energy is not positive.
(define positive-energy
@ -432,7 +432,7 @@ specify a positive number.")
(servlet-form ,new-url
POST
,(make-submit-button "Order now"))
,(return-links main-return-link first-page-return-link))))
,(return-links first-page-return-link main-return-link))))
;;; HTML page generator for the extras page.
;;; Shows a list of possible extras of this spaceship class for selection.
@ -450,7 +450,7 @@ spaceships of class " ,class ":")
(td ,(cdr checkbox+text))))
checkboxes+text))
,(make-submit-button "OK"))
,(return-links main-return-link first-page-return-link))))
,(return-links first-page-return-link main-return-link))))
;;; HTML page generator.
;;; Shows the final page with a "Thank you" and an estimate for the
@ -465,7 +465,7 @@ spaceships of class " ,class ":")
,(host-name-or-ip (socket-remote-address (request-socket req)))
") as soon as the ship is built.")
(p "This will take about " ,months " months.")
,(return-links main-return-link first-page-return-link))))
,(return-links first-page-return-link main-return-link))))
(define main-return-link
'(URL "/" "Return to main menu."))