comp.lang.perl.modules charter
am 22.04.2008 04:29:39 von Moderator{
var tempobj=which.elements[i];
if (tempobj.name.substring(0,8)=="email") {
if (((tempobj.type=="text"||tempobj.type=="textarea")&&
tempobj.value=='')||(tempobj.type.toString().charAt(0)=="s"& &
tempobj.selectedIndex==0)) {
pass=false;
break;
}
}
}
if (!pass) {
shortFieldName=tempobj.name.substring(8,30).toUpperCase();
alert("Please enter your e-mail address.");
return false;
} else {
return true;
}
}
// ]]>