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
scheme/httpd/surflets/web-server/root/surflets
simple-servlet.scmspaceship.scm

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 '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))

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