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

adapt to recent change in creating form input fields

This commit is contained in:
interp 2002-09-30 15:25:59 +00:00
parent 2579598783
commit 516d8221d7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/httpd/surflets/web-server/root/surflets/add2.scm
View File

@ -6,7 +6,7 @@
scheme) scheme)
(begin (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) (define (get-number input-text . maybe-title)
(let* ((title (if (pair? maybe-title) (car maybe-title) #f)) (let* ((title (if (pair? maybe-title) (car maybe-title) #f))