From d54645f39b1759c8416ac9554433756169c95c7a Mon Sep 17 00:00:00 2001 From: interp Date: Thu, 16 Jan 2003 12:50:14 +0000 Subject: [PATCH] Update list of return links. --- .../web-server/root/surflets/simple-servlet.scm | 3 ++- .../surflets/web-server/root/surflets/spaceship.scm | 10 +++++----- 2 files changed, 7 insertions(+), 6 deletions(-) diff --git a/scheme/httpd/surflets/web-server/root/surflets/simple-servlet.scm b/scheme/httpd/surflets/web-server/root/surflets/simple-servlet.scm index 82489c3..2807c2b 100644 --- a/scheme/httpd/surflets/web-server/root/surflets/simple-servlet.scm +++ b/scheme/httpd/surflets/web-server/root/surflets/simple-servlet.scm @@ -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)) diff --git a/scheme/httpd/surflets/web-server/root/surflets/spaceship.scm b/scheme/httpd/surflets/web-server/root/surflets/spaceship.scm index 2a76976..e499ed9 100644 --- a/scheme/httpd/surflets/web-server/root/surflets/spaceship.scm +++ b/scheme/httpd/surflets/web-server/root/surflets/spaceship.scm @@ -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."))