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

In MAKE-NUMBER-INPUT-FIELD set default value field only if default 

text is given.
This commit is contained in:
interp 2002-10-05 11:58:52 +00:00
parent 12b2b96582
commit 9e5d62aa77
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scheme/httpd/surflets/surflets.scm
View File

@ -369,12 +369,12 @@
((default (lambda (a) (or (number? a) ((default (lambda (a) (or (number? a)
(string-or-symbol? a)))) (string-or-symbol? a))))
(attributes XML-attribute?)) (attributes XML-attribute?))
(make-input-field (make-input-field
name name
number-input-field-transformer number-input-field-transformer
`(input (@ (type "text") `(input (@ (type "text")
(name ,name) (name ,name)
(value ,default) ,(and default `(value ,default))
,(and attributes (cdr attributes)))))))))) ,(and attributes (cdr attributes))))))))))
(define (make-password-input-field . maybe-further-attributes) (define (make-password-input-field . maybe-further-attributes)