[parenscript-devel] Parenscript onsubmit="return validate()"

5 Jun 2012

      *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.