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

Rename SELECT-MULTIPLE-TRANSFORMER to MULTIPLE-SELECT-TRANSFORMER to make things clearer.

This commit is contained in:
interp 2003-07-15 14:39:55 +00:00
parent 3d5a92eb44
commit 0a510b7c76
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/surflet-input-fields.scm
View File

@ -272,7 +272,7 @@
;; internal ;; internal
(define (make-multiple-select name select-options attributes) (define (make-multiple-select name select-options attributes)
(make-multi-input-field name "mult-select" (make-multi-input-field name "mult-select"
select-multiple-transformer multiple-select-transformer
(make-field-attributes (make-field-attributes
select-options select-options
`((multiple) `((multiple)
@ -291,7 +291,7 @@
(sxml-attribute-attributes attributes)) (sxml-attribute-attributes attributes))
make-select-html-tree)) make-select-html-tree))
(define (select-multiple-transformer select bindings) (define (multiple-select-transformer select bindings)
(let ((name (input-field-name select)) (let ((name (input-field-name select))
(select-options (field-attributes-default (select-options (field-attributes-default
(input-field-attributes select)))) (input-field-attributes select))))