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

remove sub-attribute-bug from select and radio input fields

This commit is contained in:
interp 2002-11-09 16:46:26 +00:00
parent 5770918384
commit 2d97ef42bc
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -471,8 +471,8 @@
(cond (cond
((null? (cdr option)) ((null? (cdr option))
`(option ,option)) `(option ,option))
((XML-attribute? (cadr option)) ; w/attribs? ((XML-attribute? (cdr option)) ; w/attribs?
`(option ,(cadr option) ,(car option))) `(option ,(cdr option) ,(car option)))
(else (else
(error "not an attribute" (cdr option))))) (error "not an attribute" (cdr option)))))
(else (else
@ -495,14 +495,14 @@
(map (lambda (value) (map (lambda (value)
(let ((value-value (if (pair? value) (car value) value)) (let ((value-value (if (pair? value) (car value) value))
(value-attributes (if (pair? value) (value-attributes (if (pair? value)
(if (XML-attribute? (cadr value)) (if (XML-attribute? (cdr value))
(cdadr value) (cddr value)
(error "not an attribute" cadr value)) (error "not an attribute" cdr value))
#f))) #f)))
(make-input-field (make-input-field
name name
(lambda (select) (lambda (select)
select) ;FIXME refer to list elements select)
`(input (@ ((type "radio") `(input (@ ((type "radio")
(name ,name) (name ,name)
(value ,value-value) (value ,value-value)