// == gpf_setup ========================================================================================

//-- On Changed Alert ------------------------------------------------------------------------------
//add onBeforeUnload="return gpf_checkChanged();" to body tag (should be in setup.asp)
//add onchange="gpf_change(this)" to form element tags

window.onbeforeunload = gpf_changeUnload;
var gpf_changed = false;

function gpf_change() {
    gpf_changed = true;
}

function gpf_changeUnload() {
    var msg = "Any unsaved changes will be lost if you chose to continue."
    if (gpf_changed) { return msg }
}

function gpf_checkChanged() {
    var msg = "Are you sure you want to navigate away from this page?\n\nAny unsaved changes will be lost if you choose to continue.\n\nPress OK to continue, or Cancel to stay on the current page."
    if (gpf_changed) {
        if (confirm(msg)) {
            gpf_changed = false;
            return true;
        } else {
            return false;
        }
    } else {
        return true;
    }
}
//---------------------------------------------------------------------------------------------------	

function gpf_setError(vThis, vError, vErrorText) {
    //set error of field from external call
    var fId = vThis.id
    var fLabel = document.getElementById("gpL_" + fId.substring(4, fId.length))
    if (fLabel != null) {
        if (vError) {
            fLabel.className = "gpf_errorLabel"
            fLabel.title = 'This field ' + vErrorText;
        }
        else {
            fLabel.className = "";
            fLabel.title = "";
        }
    }
}

function gpf_setup() {
    //alert("click ok")
    gpf_changed = false;
    var f = 0;

    for (f = 0; f < document.forms.length; f++) {
        var vform = document.forms[f];
        var frmName = vform.name;
        var frmElements = vform.length;
        var i = 0;

        if (frmName.substr(0, 4) == 'gpf_') {
            for (i = 0; i < frmElements; i++) {
                // load variables -	note: null if var not found
                var fField = document[frmName].elements[i];
                var fId = fField.id;
                var fLabel = document.getElementById("gpL_" + fId.substring(4, fId.length))
                var fRequired = document.getElementById("gpf_requiredText")
                var fCheck = fField.getAttribute("gpK");
                var fType = fField.type;
                var fCheck = fField.getAttribute("gpK");
                var fValue = fField.value;
                var fVal = fField.getAttribute("gpV");
                var fDefault = fField.getAttribute("gpD");
                var fDimen = fField.getAttribute("gpX");

                // set required fields
                if (fCheck != null && fLabel != null) {
                    if (fCheck.indexOf("Rq;") != -1) {
                        fLabel.innerHTML = fLabel.innerHTML + "<span class='gpf_required'>*</span>"
                        if (fRequired != null) {
                            fRequired.innerHTML = "<span style='color:red;'>*</span> = required"
                        }
                    }
                }

                // set readOnly
                if (fCheck != null) {
                    if (fCheck.indexOf("Ro;") != -1) {
                        fField.readOnly = true;
                        fField.className = "gpf_inputReadOnly"
                    }
                }

                // set disabled -- will not submit with the form.
                if (fCheck != null) {
                    if (fCheck.indexOf("Dd;") != -1) {
                        fField.disabled = true;
                    }
                }

                if (fId != null) {
                    if (fId.substr(0, 4) == 'gpf_') {
                        //create name attribute
                        fField.name = fId;

                        // standardize values
                        if (fCheck == '') { fCheck = null }; if (fCheck != null) { fCheck = gpf_trim(fCheck) };
                        if (fValue == '') { fValue = null }; if (fValue != null) { fValue = gpf_trim(fValue) };
                        if (fVal == '') { fVal = null }; if (fVal != null) { fVal = gpf_trim(fVal) };
                        if (fDefault == '') { fDefault = null }; if (fDefault != null) { fDefault = gpf_trim(fDefault) };
                        if (fDimen == '') { fDimen = null }; if (fDimen != null) { fDimen = gpf_trim(fDimen) };

                        //	handle default assignment
                        if (fDefault != null && fVal == null) {
                            fVal = fDefault;
                            if (fLabel != null) {
                                //fLabel.innerHTML = fLabel.innerHTML + "<font color=blue>*</font>"
                            }
                        }

                        // setup dimensional widths and heights

                        if (fType == "checkbox") {
                            //fField.style.position 	= 'relative'
                            fField.style.marginTop = '4px'
                        }

                        if (fDimen != null) {
                            var vStart = fDimen.indexOf("w:")
                            if (vStart != -1) {
                                vStart = vStart + 2
                                var vEnd = fDimen.indexOf(";", vStart)
                                var vVal = parseInt(fDimen.substring(vStart, vEnd))
                                if (!isNaN(vVal) && vVal > 0) { fField.style.width = vVal + 'px' };
                            }
                            var vStart = fDimen.indexOf("h:")
                            if (vStart != -1) {
                                vStart = vStart + 2
                                var vEnd = fDimen.indexOf(";", vStart)
                                var vVal = parseInt(fDimen.substring(vStart, vEnd))
                                if (!isNaN(vVal) && vVal > 0) { fField.style.height = vVal + 'px' };
                            }

                        }

                        // setup date field
                        if (fCheck != null && fLabel != null) {
                            if (fCheck.indexOf("Dt;") != -1) {
                                //fField.readOnly = true;
                            }
                        }

                        // prepare display values
                        if (fType == "text" || fType == 'textarea' || fType == 'password') {
                            if (fVal != null) {
                                fField.value = fVal;
                            }
                        }

                        // password prep for autocomplete=off
                        if (fType == 'password') {
                            fField.setAttribute('autocomplete', 'off');
                        }

                        if (fType == "select-one" || fType == "select-multiple") {
                            if (fVal != null) {
                                var v;
                                var a;
                                var vElements = fField.length;
                                var vSelected = fVal.split(",");

                                for (v = 0; v < vElements; v++) {
                                    for (a = 0; a < vSelected.length; a++) {
                                        if (gpf_trim(vSelected[a]) == fField[v].value) {
                                            fField[v].selected = true;
                                            fField[v].className = 'selected';
                                        }
                                    }
                                }
                            }
                        }

                        if (fType == "checkbox") {
                            if (fVal != null) {
                                if (fVal.toLowerCase() == 'true' || fVal == 1) {
                                    fField.checked = true;
                                }
                            }
                            fField.value = 1;
                        }

                    }
                }
            }
        } //form if gpf_ loop
    }

    var gpfDiv = document.getElementById("gpf")
    if (gpfDiv != null) {
        //alert("click ok (x)")
        gpfDiv.style.visibility = 'visible';
    }

    var gpfMsg = document.getElementById("gpf_msgText")
    if (gpfMsg != null && gpfMsg.value != "") {
        gpfMsg.style.display = 'block';
    }

}

// == gpf_validation ========================================================================================

var fErrorText = null; //gives global scope to this variable 	

function gpf_validate(vform) {
    var err = true
    var frmName = vform.name;
    var frmElements = vform.length;
    var frmError = false;
    var frmErrorMsg = null;
    var i

    var fSaveBtn = document.getElementById("gpf_saveButton")
    if (fSaveBtn != null) {
        fSaveBtn.value = "Please Wait ..."
        fSaveBtn.disabled = true
    }


    for (i = 0; i < frmElements; i++) {
        var fField = document[frmName].elements[i];
        var fId = fField.id;
        var fLabel = document.getElementById("gpL_" + fId.substring(4, fId.length))

        //			alert(fId +' - '+ fField.value)

        if (fId != null) {
            if (fId.substr(0, 4) == 'gpf_') {
                // load variables -	note: null if var not found
                var fType = fField.type;
                var fCheck = gpf_trim(fField.getAttribute("gpK"));
                var fValue = gpf_trim(fField.value);
                var fError = false;
                fErrorText = null;

                //alert(fField.id +' / '+ fValue +'  = '+ fCheck +' | '+ fField.checked)

                // standardize values
                if (fCheck == '') { fCheck = null }; if (fCheck != null) { fCheck = gpf_trim(fCheck) };
                if (fValue == null) { fValue = '' };
                fValue = gpf_trim(fValue);

                //prepare for checks
                if (fCheck != null) {
                    var k;
                    var fArray = fCheck.split(";");

                    for (k = 0; k < fArray.length; k++) {
                        var kK = gpf_trim(fArray[k].substring(0, 2));
                        var kT = gpf_trim(fArray[k].substring(2, fArray[k].length));
                        var kV = fValue

                        //alert(fField.name +' = '+ fField.value)


                        if (kK == 'Rq' || kV != '') {
                            switch (kK) {
                                //-- No checks for these elements 
                                case "":
                                    break;
                                case "Ro":
                                    break;
                                case "Dd":
                                    break;

                                //-- Required 
                                case "Rq": //Required
                                    if (fType == 'checkbox' && fField.checked != true) {
                                        fErrorText = 'is required';
                                        fError = true;
                                    }
                                    else if (!gpf_isRequired(kV)) { fError = true; }
                                    break;

                                //-- Confirmation field 
                                case "Cf": //Confirmation field
                                    if (!gpf_confirmField(fField, kV)) { fError = true; }
                                    break;

                                //-- List Functions 
                                case "Xn": //List count minimum
                                    if (!gpf_isListMin(fField, kT)) { fError = true; }
                                    break;
                                case "Xx": //List count maximum
                                    if (!gpf_isListMax(fField, kT)) { fError = true; }
                                    break;

                                //-- Number functions 
                                case "Nu": //Number
                                    if (!gpf_isNumeric(kV)) { fError = true; }
                                    break;
                                case "In": //Integer
                                    if (!gpf_isInteger(kV)) { fError = true; }
                                    break;
                                case "Cu": //Currency
                                    if (!gpf_isCurrency(kV)) { fError = true; }
                                    break;
                                case "Nx": //Number <= Max
                                    if (!gpf_isNumberMax(kV, kT)) { fError = true; }
                                    break;
                                case "Nn": //Number >= Min
                                    if (!gpf_isNumberMin(kV, kT)) { fError = true; }
                                    break;

                                //-- Format functions 
                                case "Em": //Email
                                    if (!gpf_isEmail(kV)) { fError = true; }
                                    break;
                                case "Ph": //Phone
                                    if (!gpf_isPhone(kV)) { fError = true; }
                                    break;
                                case "Ss": //SSN
                                    if (!gpf_isSSN(kV)) { fError = true; }
                                    break;
                                case "Zp": //Zipcode 5/9
                                    if (!gpf_isZip(kV)) { fError = true; }
                                    break;
                                case "Cc": //All numeric credit card
                                    if (!gpf_isCreditCard(kV)) { fError = true; }
                                    break;

                                //-- Date functions 
                                case "Dt": //Date
                                    if (kV != null && kV != '') { if (!gpf_isDateSlash(kV)) { fError = true; } }
                                    break;
                                case "Tx": //Date <= Today
                                    var kToday = new Date();
                                    if (!gpf_isDateMax(kV, gpf_dateSlash(kToday))) { fError = true; }
                                    break;
                                case "Tn": //Date >= Today
                                    var kToday = new Date();
                                    if (!gpf_isDateMin(kV, gpf_dateSlash(kToday))) { fError = true; }
                                    break;
                                case "Dx": //Date <= Max
                                    if (!gpf_isDateMax(kV, kT)) { fError = true; }
                                    break;
                                case "Dn": //Date <= Min
                                    if (!gpf_isDateMin(kV, kT)) { fError = true; }
                                    break;

                                //-- Misc String functions 
                                case "Lx": //Length <= Max
                                    if (!gpf_isLengthMax(kV, kT)) { fError = true; }
                                    break;
                                case "Ln": //Length >= Min
                                    if (!gpf_isLengthMin(kV, kT)) { fError = true; }
                                    break;
                                case "Cy": //Characters allowed (list)
                                    if (!gpf_isCharsYes(kV, kT)) { fError = true; }
                                    break;
                                case "Cn": //Characters not allowed (list)
                                    if (!gpf_isCharsNo(kV, kT)) { fError = true; }
                                    break;
                                case "Cd": //Characters allowed (double quotes)
                                    if (!gpf_isCharsDoubleQuote(kV)) { fError = true; }
                                    break;
                                case "Cs": //Characters not allowed (semi Colon)
                                    if (!gpf_isCharsSemiColon(kV)) { fError = true; }
                                    break;
                                case "Vy": //Value must be (single)
                                    if (!gpf_isValueYes(kV, kT)) { fError = true; }
                                    break;
                                case "Vn": //Value cannot be (single)
                                    if (!gpf_isValueNo(kV, kT)) { fError = true; }
                                    break;
                                case "Up": //Upload File
                                    if (!gpf_isFileType(kV, kT)) { fError = true; }
                                    break;
                                default:
                                    fError = true;
                                    break;
                            }
                        }
                    }

                    if (fError == true) {
                        frmError = true;
                    }
                    var callF = gpf_setError(fField, fError, fErrorText)
                }
            }
        }
    }
    if (frmError == false) {

        gpf_changed = false; // on change see top of js

        var i
        for (i = 0; i < frmElements; i++) {
            var fField = document[frmName].elements[i];
            var fId = fField.id
            if (fField.type == 'submit') { fField.disabled = true; fField.value = 'Please Wait ...'; }
            if (fId != null) {
                if (fId.substr(0, 4) == 'gpf_') {
                    if (fField.type == "checkbox") {
                        //flip checkbox unchecked to checked with value of 'false'
                        if (fField.checked == false) {
                            fField.checked = true;
                            fField.value = 0;
                        }
                    }
                }
            }
        }
        return true;
    }
    else {
        window.scrollTo(0, 0);
        if (fSaveBtn != null) {
            fSaveBtn.value = "Save"
            fSaveBtn.disabled = false
        }
        var gpf_msgText = document.getElementById("gpf_msgText")
        if (gpf_msgText != null) {
            gpf_msgText.innerHTML = "Problems found during processing!<br><span class=\"gpf_msgText2\">Rollover red name for more information</span>"
            gpf_msgText.style.display = 'block'
        }
        return false;
    }
}

// == gpf_datePop (popup) ========================================================================================

function gpf_datePop(vThis) {
    //load date constraints
    var i;
    var setDate = new Date();
    var maxDate = new Date();
    var minDate = new Date();
    var Tx = new Date(); Tx = null;
    var Tn = new Date(); Tn = null;
    var Dx = new Date(); Dx = null;
    var Dn = new Date(); Dn = null;
    var vV;
    var vT = new Date();
    var vToday

    //load today's date
    vToday = vT.getMonth() + 1 + '/' + vT.getDate() + '/' + vT.getFullYear();

    //Initial calendar set value
    setDate = vThis.value;
    if (!gpf_isDateSlash(setDate)) { setDate = vToday }


    // load check values and set to given
    var cal = new CalendarPopup();  //new CalendarPopup("gpf_cal");
    var vChecks = vThis.getAttribute("gpK");
    var vArray = vChecks.split(";");

    for (i = 0; i < vArray.length; i++) {
        var vK = gpf_trim(vArray[i].substring(0, 2));
        var vV = gpf_trim(vArray[i].substring(2, vArray[i].length));
        if (vK == 'Tx') { Tx = parseDate(vToday) }
        else if (vK == 'Tn') { Tn = parseDate(vToday) }
        else if (vK == 'Dx') { Dx = parseDate(vV) }
        else if (vK == 'Dn') { Dn = parseDate(vV) }
    }

    //max/min calendar show values
    if (Tx != null || Dx != null) {
        if (Tx != null && Dx == null) { maxDate = Tx }
        else if (Tx == null && Dx != null) { maxDate = Dx }
        else if (Tx > Dx) { maxDate = Dx }
        else { maxDate = Tx }
        maxDate = gpf_dateSlash(maxDate)
        maxDate = gpf_dateAdd(maxDate, 1)
        cal.addDisabledDates(maxDate, null);
    }

    if (Tn != null || Dn != null) {
        if (Tn != null && Dn == null) { minDate = Tn }
        else if (Tn == null && Dn != null) { minDate = Dn }
        else if (Dn > Tn) { minDate = Dn }
        else { minDate = Tn }
        minDate = gpf_dateSlash(minDate);
        minDate = gpf_dateAdd(minDate, -1)
        cal.addDisabledDates(null, minDate);

    }

    //http://www.mattkruse.com/javascript/calendarpopup/combined_compact_source.html
    cal.select(vThis, vThis.id, 'MM/dd/yyyy', setDate);
}

// == support functions ====================================================================================
// ======================== general support	
function gpf_trim(str) {
    if (str != null) { str = str.replace(/^\s*|\s*$/g, ''); }
    return str;
}
function gpf_ltrim(str) {
    if (str != null) { str = str.replace(/^\s*/g, ''); }
    return str;
}
function gpf_rtrim(str) {
    if (str != null) { str = str.replace(/\s*$/g, ''); }
    return str;
}
function gpf_left(str, n)
{ return str.substr(0, n); }

function gpf_right(str, n)
{ return str.substr(str.length - n, str.length); }

function gpf_mid(str, x, n)
{ return str.substr(x, n); }

function gpf_len(str)
{ return str.length; }

function gpf_replace(str, oVal, nVal) {
    if (oVal == '.' || oVal == ')' || oVal == '(') { oVal = '[' + oVal + ']' }
    var oReg = new RegExp(oVal, "gi"); //convert to regular express for search all
    return str.replace(oReg, nVal);
}

function gpf_dateSlash(str) {
    // convert real date into mm/dd/yyyy
    return gpf_right('0' + (str.getMonth() + 1), 2) + '/' + gpf_right('0' + str.getDate(), 2) + '/' + str.getFullYear()
}

function gpf_dateAdd(str, val) {
    // add val days to mm/dd/yyyy and return mm/dd/yyyy
    //if (isDate(str) && !isNaN(val) && val!=null){
    var da = str.split("/");
    var aYear = da[2];
    var aMonth = da[0] - 1;
    var aDay = eval(parseInt(da[1]) + parseInt(val));
    var aDate = new Date(aYear, aMonth, aDay);

    return gpf_dateSlash(aDate);
}

// ======================== check functions
function gpf_isCharsYes(str, vchars) {// Cy - str only contains characters in vchars
    var i = 0
    while (i < str.length) {
        if (vchars.indexOf(str.substr(i, 1)) == -1) {
            fErrorText = "has invalid characters";
            return false;
        }
        i++
    }
    return true;
}

function gpf_isCharsNo(str, vchars) {// Cn - str does not contain any characters in vchars
    var i = 0
    while (i < str.length) {
        if (vchars.indexOf(str.substr(i, 1)) != -1) {
            fErrorText = "has invalid characters";
            return false;
        }
        i++
    }
    return true;
}

function gpf_isCharsDoubleQuote(str) {// Cd - str must not contain double quote
    if (str.indexOf('"') != -1) {
        fErrorText = "has invalid characters";
        return false;
    }
    return true;
}

function gpf_isCharsSemiColon(str) {// Cs - str must not contain semi colon
    if (str.indexOf(';') != -1) {
        fErrorText = "has invalid characters";
        return false;
    }
    return true;
}

function gpf_isValueYes(str, val) {// Vy - str equals val

    if (str == val)
    { return true; }

    fErrorText = "is invalid";
    return false;
}

function gpf_isValueNo(str, val) {// Vn - str does not equal val

    if (str != val)
    { return true; }

    fErrorText = "is invalid";
    return false;
}

function gpf_isLengthMax(str, val) {// Lx - length of str is less than or equal to val
    str = str + '';
    if (str.length <= val)
    { return true; }

    fErrorText = "must be no more than " + val + " characters long";
    return false;
}

function gpf_isLengthMin(str, val) {// Ln - length of str is greater than or equal to val
    str = str + '';
    if (str.length >= val)
    { return true; }

    fErrorText = "must be at least " + val + " characters long";
    return false;
}

function gpf_isNumberMax(str, val) {// Nx - value of str is less than or equal to val
    if (gpf_isNumeric(str)) {
        if (parseFloat(str) <= parseFloat(val))
        { return true; }
    }

    fErrorText = "must be no more than " + val;
    return false;
}

function gpf_isNumberMin(str, val) {// Nn - value of str is greater than or equal to val
    if (gpf_isNumeric(str)) {
        if (parseFloat(str) >= parseFloat(val))
        { return true; }
    }
    fErrorText = "must be at least " + val;
    return false;
}

function gpf_isDateMax(str, val) {// Dx, Tx - value of str is less than or equal to val
    if (gpf_isDateSlash(str) && gpf_isDateSlash(val)) {
        if (parseDate(str) <= parseDate(val))
        { return true; }
    }

    fErrorText = "cannot be later than " + val;
    return false;
}

function gpf_isDateMin(str, val) {// Dn, Tn - value of str is greater than or equal to val
    if (gpf_isDateSlash(str) && gpf_isDateSlash(val)) {
        if (parseDate(str) >= parseDate(val))
        { return true; }
    }

    fErrorText = "cannot be ealier than " + val;
    return false;
}

//-------------------------------------------------

function gpf_isListMin(vThis, val) {// = Xn - list count must be at lease 
    var v;
    var x = 0;
    for (v = 0; v < vThis.length; v++) { if (vThis[v].selected) { x = x + 1 } }

    if (x < val) {
        fErrorText = "requires at least " + val + " selection(s)"
        return false;
    }
    return true;
}

function gpf_isListMax(vThis, val) {// = Xx - list no more than
    var v;
    var x = 0;
    for (v = 0; v < vThis.length; v++) { if (vThis[v].selected) { x = x + 1 } }

    if (x > val) {
        fErrorText = "requires a maximum of " + val + " selection(s)"
        return false;
    }
    return true;
}

//-------------------------------------------------

function gpf_isRequired(str) {// = Rq - a value is required
    str = gpf_trim(str);

    if (str == null || str.length == 0) {
        fErrorText = "is required"
        return false;
    }
    return true;
}

function gpf_confirmField(inField, str) {
    str = gpf_trim(str)
    var cField = document.getElementById(inField.id + '_confirm')
    if (cField != null) {
        var str2 = gpf_trim(cField.value)
        if (str != str2) {
            fErrorText = "'\s confirm value did not match"
            return false;
        }
    }
    else {
        fErrorText = "gpf - confirmation field unavailable (*_confirm)"
        return false;
    }
    return true;
}

function gpf_isFileType(str, val) {// = Up - value of str is a valid (Val) file type
    if (str == '' || val == '')
    { return true; }

    str = str.toLowerCase();
    val = val.toLowerCase();
    var aVal = val.split(',');
    var k;
    var ext;
    var fnd = false;
    var ext_list = "";

    for (k = 0; k < aVal.length; k++) {
        ext = aVal[k];
        if (str.substring(str.length - (ext.length + 1)) == '.' + ext) {
            fnd = true
        }
        else {
            ext_list += ext;
            if (k < (aVal.length - 2)) {
                ext_list += ", ";
            }
            else if (k < (aVal.length - 1)) {
                ext_list += ", or ";
            }
        }
    }

    if (fnd == false) {
        fErrorText = "is not a valid file type.  Only " + ext_list + " format(s) can be accepted.";
        return false;
    }
    return true;
}

function gpf_isNumeric(str) {// = Nu - value of str is a valid number, may include decimals
    fErrorText = "is invalid";
    return (parseFloat(str, 10) == (str * 1));
}

function gpf_isInteger(str) {// = In - value is an Integer
    fErrorText = "is invalid";
    return (str == parseInt(str));
}

function gpf_isZip(str) {// = Zp - value is a zip5/9 once stripped
    str = gpf_replace(str, "-", "");
    str = gpf_replace(str, " ", "");

    if (gpf_isNumeric(str)) {
        if (str.length == 5 || str.length == 9)
        { return true; }
    }

    fErrorText = "is invalid";
    return false;
}

function gpf_isSSN(str) {// = Ss - value is SSN/9 once stripped
    str = gpf_replace(str, "-", "");
    str = gpf_replace(str, " ", "");
    str = gpf_replace(str, ".", "");

    if (gpf_isNumeric(str) && str.length == 9)
    { return true; }

    fErrorText = "is invalid";
    return false;
}

function gpf_isCC(str) {// = Cc - value is a number once stripped, no other checking
    str = gpf_replace(str, "-", "");
    str = gpf_replace(str, " ", "");

    if (gpf_isNumeric(str))
    { return true; }

    fErrorText = "is invalid";
    return false;
}

function gpf_isPhone(str) {// = Ph - value is a number of length 10 once stripped
    str = gpf_replace(str, " ", "");
    str = gpf_replace(str, "-", "");
    str = gpf_replace(str, "(", "");
    str = gpf_replace(str, ")", "");
    str = gpf_replace(str, ".", "");

    if ((gpf_isNumeric(str) && str.length == 10) || (gpf_isNumeric(str) && str.length == 7))
    { return true; }

    fErrorText = "is invalid";
    return false;
}

function gpf_isCurrency(str) {// = Cu - value is 2 decimal once stripped and is number
    str = gpf_replace(str, "$", "");
    str = gpf_replace(str, ",", "");

    if (gpf_isNumeric(str))
    { return (str == Math.round(str * 100) / 100); }

    fErrorText = "is invalid";
    return false;
}

function gpf_isEmail(str) {// = Em - value is Email
    var at = "@";
    var dot = ".";
    var lat = str.indexOf(at);
    var lstr = str.length;
    var ldot = str.indexOf(dot);
    fErrorText = "is invalid";

    if (str.length > 0) {
        if (str.indexOf(at) == -1)
        { return false; }
        if (str.indexOf(at) == -1 || str.indexOf(at) == 0 || str.indexOf(at) == lstr)
        { return false; }
        if (str.indexOf(dot) == -1 || str.indexOf(dot) == 0 || str.indexOf(dot) == lstr)
        { return false; }
        if (str.indexOf(at, (lat + 1)) != -1)
        { return false; }
        if (str.substring(lat - 1, lat) == dot || str.substring(lat + 1, lat + 2) == dot)
        { return false; }
        if (str.indexOf(dot, (lat + 2)) == -1)
        { return false; }
        if (str.indexOf(" ") != -1)
        { return false; }
    }
    return true;
}

function gpf_isDateSlash(str) {
    // determine whether mm/dd/yyyy is a valid date
    var da = str.split("/");
    var aYear = da[2];
    var aMonth = da[0] - 1;
    var aDay = da[1];
    var dx = new Date(aYear, aMonth, aDay);
    var xYear = dx.getFullYear();
    var xMonth = dx.getMonth();
    var xDay = dx.getDate();
    if (aYear == xYear && aMonth == xMonth && aDay == xDay) {
        return true
    }
    else {
        fErrorText = "is not a valid date";
        return false
    }
}