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