[parenscript-devel] Parenscript onsubmit="return validate()"
*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.
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
participants (2)
-
Juan Reynoso Elias -
Vladimir Sedach