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

Show update message if entered energy is out of range.

This commit is contained in:
interp 2004-05-12 20:20:52 +00:00
parent 5e12e7ec0e
commit a838425ca3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
web-server/root/surflets/spaceship.scm
View File

@ -363,10 +363,10 @@ specify a positive number.")
(body (body
(surflet-form ,new-url (surflet-form ,new-url
GET GET
,(print-update update-text)
,(if (and checkboxes+text energy-input) ,(if (and checkboxes+text energy-input)
`((h2 "Step 3 -- Specify arming") `((h2 "Step 3 -- Specify arming")
(p "Please select one or more arm types for your ship and amount of energy you want to spent for it or them, respectively.") (p "Please select one or more arm types for your ship and amount of energy you want to spent for it or them, respectively.")
,(print-update update-text)
(p (p
(table ,@(map (lambda (checkbox+text) (table ,@(map (lambda (checkbox+text)
`(tr (td ,(car checkbox+text)) `(tr (td ,(car checkbox+text))