Hello
I work with parenscript and UCW, I need validate some input text and I have control the submit of the form.

Here use parenscript, it's a code for my function "validate"

( setf xvalue document.form1.mac.value )
                                       (setf result ((@(regex "/([A-Fa-f0-9]{2,2}:{1}){5}([A-Fa-f0-9]{2})$/") test) xvalue ))
                                       (if (eql F result )
                                       ((alert "Fail")
                                        (setf document.form1.mac.style.background-color "red")
                                        F ) ; ==> javascript return false;
                                       (alert "Ok")
                                       T)) ; ==> javascript return true;

Html code , called function validate
<form id="form1" onsubmit="return validate();" >   Here, I have a question, How I do same with parenscript >> "return validate();"

(<ucw:form :name "form1"
:onsubmit
(ps (validate) ; Here I have a problem >>   "return validate();"
     (defun validate ()
   ( setf xvalue document.form1.mac.value )
       (setf result ((@(regex "/([A-Fa-f0-9]{2,2}:{1}){5}([A-Fa-f0-9]{2})$/") test) xvalue ))
       (if (eql F result )
         ((alert "Fail")
         (setf document.form1.mac.style.background-color "red")
            F ) ; ==> javascript return false;
        (alert "Ok")
       T))) ; ==> javascript return true;



--

I.S.C. Juan Reynoso Elias

Departamento de Soporte Técnico del Instituto de la Función Registral del Estado de México.
Vicente Guerrero 102, Col Santa Ana Tlapaltitlán, Toluca, Méx. C.P. 50160. Tel. 2106852.