adapt to recent change in creating form input fields

2002-09-30 15:25:59 +00:00 · 2002-09-30 15:25:59 +00:00 · 516d8221d7
parent 2579598783
commit 516d8221d7
1 changed files with 1 additions and 1 deletions
--- a/scheme/httpd/surflets/web-server/root/surflets/add2.scm
+++ b/scheme/httpd/surflets/web-server/root/surflets/add2.scm
@ -6,7 +6,7 @@
 	scheme)
  (begin

-    (define number-input-field (make-number-input-field '(maxlength 10)))
+    (define number-input-field (make-number-input-field '(@ (maxlength 10))))

    (define (get-number input-text . maybe-title)
      (let* ((title (if (pair? maybe-title) (car maybe-title) #f))