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

`cat ~/diff-sunet/$num/log`

This commit is contained in:
interp 2003-08-01 17:41:11 +00:00
parent 92dc531fa2
commit 64ef783d8d
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/httpd/surflets/surflet-handler.scm
View File

@ -263,7 +263,7 @@
((string? data) (display data out)) ((string? data) (display data out))
((list? data) (for-each (lambda (data) (display data out)) data)) ((list? data) (for-each (lambda (data) (display data out)) data))
(else ;; We lose. (else ;; We lose.
(display "Error in SUrflet output.\n" out)) (display "Error in SUrflet output: no valid data.\n" out))
)))) ))))
(make-error-response (status-code internal-error) #f (make-error-response (status-code internal-error) #f
"The SUrflet returned an invalid response object (no surflet-response).")))) "The SUrflet returned an invalid response object (no surflet-response)."))))

4
scheme/httpd/surflets/surflet-input-fields.scm
View File

@ -262,8 +262,8 @@
(attributes '() sxml-attribute?)) (attributes '() sxml-attribute?))
(let ((name (generate-input-field-name "select"))) (let ((name (generate-input-field-name "select")))
(if multiple? (if multiple?
(make-multiple-select name select-options attributes) (make-multiple-select name real-select-options attributes)
(make-single-select name select-options (make-single-select name real-select-options
attributes)))))) attributes))))))
;; deprecated: Does not introduce further functionality. ;; deprecated: Does not introduce further functionality.