Hi Juan, That code has two problems: (ps (validate) (defun validate () ...)) is in the onsubmit handler. So you're calling validate before it's defined, but you also should not be defining functions in those handlers. I have no idea how UCW organizes code, but function definitions should go somewhere else (probably a javascript file). (ps (return (validate))) will produce the right result for use in an inline handler - "return foo();" - but you should think about using a JavaScript event handling library if you're going to be doing anything non-trivial with event handlers. Vladimir On Tue, Jun 5, 2012 at 7:54 PM, Juan Reynoso Elias <jreynoso666@gmail.com> wrote:
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.
_______________________________________________ parenscript-devel mailing list parenscript-devel@common-lisp.net http://lists.common-lisp.net/cgi-bin/mailman/listinfo/parenscript-devel