From 64ef783d8d51f0f93bb3b7a1dbf648334781968f Mon Sep 17 00:00:00 2001 From: interp Date: Fri, 1 Aug 2003 17:41:11 +0000 Subject: [PATCH] `cat ~/diff-sunet/$num/log` --- scheme/httpd/surflets/surflet-handler.scm | 2 +- scheme/httpd/surflets/surflet-input-fields.scm | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/scheme/httpd/surflets/surflet-handler.scm b/scheme/httpd/surflets/surflet-handler.scm index c0fdd86..9dab1b3 100644 --- a/scheme/httpd/surflets/surflet-handler.scm +++ b/scheme/httpd/surflets/surflet-handler.scm @@ -263,7 +263,7 @@ ((string? data) (display data out)) ((list? data) (for-each (lambda (data) (display data out)) data)) (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 "The SUrflet returned an invalid response object (no surflet-response).")))) diff --git a/scheme/httpd/surflets/surflet-input-fields.scm b/scheme/httpd/surflets/surflet-input-fields.scm index bc4f126..dbef1de 100644 --- a/scheme/httpd/surflets/surflet-input-fields.scm +++ b/scheme/httpd/surflets/surflet-input-fields.scm @@ -262,8 +262,8 @@ (attributes '() sxml-attribute?)) (let ((name (generate-input-field-name "select"))) (if multiple? - (make-multiple-select name select-options attributes) - (make-single-select name select-options + (make-multiple-select name real-select-options attributes) + (make-single-select name real-select-options attributes)))))) ;; deprecated: Does not introduce further functionality.