// +------------------------------------------------------------+
// |                   Popup Calendar(Window)                   |
// +------------------------------------------------------------+
// | Last Modified:                  03-Oct-2003                |
// | Web Site:                       http://www.yxscripts.com   |
// | EMail:                          m_yangxin@hotmail.com      |
// +------------------------------------------------------------+
// |       Copyright 2002  Xin Yang   All Rights Reserved.      |
// |           This version featured on Dynamic Drive           |
// |               (http://www.dynamicdrive.com)                |
// +------------------------------------------------------------+

// default settings
var fontFace = "verdana";
var fontSize = 9;

var titleWidth = 90;
var titleMode = 1;
var dayWidth = 12;
var dayDigits = 1;

var titleColor = "#cccccc";
var daysColor = "#cccccc";
var bodyColor = "#ffffff";
var dayColor = "#ffffff";
var currentDayColor = "#333333";
var footColor = "#cccccc";
var borderColor = "#333333";

var titleFontColor = "#333333";
var daysFontColor = "#333333";
var dayFontColor = "#333333";
var currentDayFontColor = "#ffffff";
var footFontColor = "#333333";

var calFormat = "yyyy/mm/dd";

var weekDay = 0;
// ------

// codes
var calWidth = 200, calHeight = 200, calOffsetX = -200, calOffsetY = 16;
var calWin = null;
var winX = 0, winY = 0;
var cal = "cal";
var cals = new Array();
var currentCal = null;

var yxMonths = new Array("January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December");
var yxDays = new Array("Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday", "Sunday");
var yxLinks = new Array("[close]", "[clear]");

var isOpera = (navigator.userAgent.indexOf("Opera") != -1) ? true : false;
var isOpera5 = (navigator.appVersion.indexOf("MSIE 5") != -1 && navigator.userAgent.indexOf("Opera 5") != -1) ? true : false;
var isOpera6 = (navigator.appVersion.indexOf("MSIE 5") != -1 && navigator.userAgent.indexOf("Opera 6") != -1) ? true : false;
var isN6 = (navigator.userAgent.indexOf("Gecko") != -1);
var isN4 = (document.layers) ? true : false;
var isMac = (navigator.userAgent.indexOf("Mac") != -1);
var isIE = (document.all && !isOpera && (!isMac || navigator.appVersion.indexOf("MSIE 4") == -1)) ? true : false;

if (isN4) {
    fontSize += 2;
}

var span2 = "</span>";

function span1(tag) {
    return "<span class='" + tag + "'>";
}
function spanx(tag, color) {
    return "." + tag + " { font-family:" + fontFace + "; font-size:" + fontSize + "px; color:" + color + "; }\n";
}

function a1(tag) {
    return "<a class='" + tag + "' href=";
}

function ax(tag, color) {
    return "." + tag + " { text-decoration:none; color:" + color + "; }\n";
}

function calOBJ(name, title, field, form) {
    this.name = name;
    this.title = title;
    this.field = field;
    this.formName = form;
    this.form = null
}

function setFont(font, size) {
    if (font != "") {
        fontFace = font;
    }
    if (size > 0) {
        fontSize = size;

        if (isN4) {
            fontSize += 2;
        }
    }
}

function setWidth(tWidth, tMode, dWidth, dDigits) {
    if (tWidth > 0) {
        titleWidth = tWidth;
    }
    if (tMode == 1 || tMode == 2) {
        titleMode = tMode;
    }
    if (dWidth > 0) {
        dayWidth = dWidth;
    }
    if (dDigits > 0) {
        dayDigits = dDigits;
    }
}

function setColor(tColor, dsColor, bColor, dColor, cdColor, fColor, bdColor) {
    if (tColor != "") {
        titleColor = tColor;
    }
    if (dsColor != "") {
        daysColor = dsColor;
    }
    if (bColor != "") {
        bodyColor = bColor;
    }
    if (dColor != "") {
        dayColor = dColor;
    }
    if (cdColor != "") {
        currentDayColor = cdColor;
    }
    if (fColor != "") {
        footColor = fColor;
    }
    if (bdColor != "") {
        borderColor = bdColor;
    }
}

function setFontColor(tColorFont, dsColorFont, dColorFont, cdColorFont, fColorFont) {
    if (tColorFont != "") {
        titleFontColor = tColorFont;
    }
    if (dsColorFont != "") {
        daysFontColor = dsColorFont;
    }
    if (dColorFont != "") {
        dayFontColor = dColorFont;
    }
    if (cdColorFont != "") {
        currentDayFontColor = cdColorFont;
    }
    if (fColorFont != "") {
        footFontColor = fColorFont;
    }
}

function setFormat(format) {
    calFormat = format;
}

function setSize(width, height, ox, oy) {
    if (width > 0) {
        calWidth = width;
    }
    if (height > 0) {
        calHeight = height;
    }

    calOffsetX = ox;
    calOffsetY = oy;
}

function setWeekDay(wDay) {
    if (wDay == 0 || wDay == 1) {
        weekDay = wDay;
    }
}

function setMonthNames(janName, febName, marName, aprName, mayName, junName, julName, augName, sepName, octName, novName, decName) {
    if (janName != "") {
        yxMonths[0] = janName;
    }
    if (febName != "") {
        yxMonths[1] = febName;
    }
    if (marName != "") {
        yxMonths[2] = marName;
    }
    if (aprName != "") {
        yxMonths[3] = aprName;
    }
    if (mayName != "") {
        yxMonths[4] = mayName;
    }
    if (junName != "") {
        yxMonths[5] = junName;
    }
    if (julName != "") {
        yxMonths[6] = julName;
    }
    if (augName != "") {
        yxMonths[7] = augName;
    }
    if (sepName != "") {
        yxMonths[8] = sepName;
    }
    if (octName != "") {
        yxMonths[9] = octName;
    }
    if (novName != "") {
        yxMonths[10] = novName;
    }
    if (decName != "") {
        yxMonths[11] = decName;
    }
}

function setDayNames(sunName, monName, tueName, wedName, thuName, friName, satName) {
    if (sunName != "") {
        yxDays[0] = sunName;
        yxDays[7] = sunName;
    }
    if (monName != "") {
        yxDays[1] = monName;
    }
    if (tueName != "") {
        yxDays[2] = tueName;
    }
    if (wedName != "") {
        yxDays[3] = wedName;
    }
    if (thuName != "") {
        yxDays[4] = thuName;
    }
    if (friName != "") {
        yxDays[5] = friName;
    }
    if (satName != "") {
        yxDays[6] = satName;
    }
}

function setLinkNames(closeLink, clearLink) {
    if (closeLink != "") {
        yxLinks[0] = closeLink;
    }
    if (clearLink != "") {
        yxLinks[1] = clearLink;
    }
}

function addCalendar(name, title, field, form) {
    cals[cals.length] = new calOBJ(name, title, field, form);
}

function findCalendar(name) {
    for (var i = 0; i < cals.length; i++) {
        if (cals[i].name == name) {
            if (cals[i].form == null) {
                if (cals[i].formName == "") {
                    if (document.forms[0]) {
                        cals[i].form = document.forms[0];
                    }
                }
                else if (document.forms[cals[i].formName]) {
                    cals[i].form = document.forms[cals[i].formName];
                }
            }

            return cals[i];
        }
    }

    return null;
}

function getDayName(y, m, d) {
    var wd = new Date(y, m, d);
    return yxDays[wd.getDay()].substring(0, 3);
}

function getMonthFromName(m3) {
    for (var i = 0; i < yxMonths.length; i++) {
        if (yxMonths[i].toLowerCase().substring(0, 3) == m3.toLowerCase()) {
            return i;
        }
    }

    return 0;
}

function getFormat() {
    var calF = calFormat;

    calF = calF.replace(/\\/g, '\\\\');
    calF = calF.replace(/\//g, '\\\/');
    calF = calF.replace(/\[/g, '\\\[');
    calF = calF.replace(/\]/g, '\\\]');
    calF = calF.replace(/\(/g, '\\\(');
    calF = calF.replace(/\)/g, '\\\)');
    calF = calF.replace(/\{/g, '\\\{');
    calF = calF.replace(/\}/g, '\\\}');
    calF = calF.replace(/\</g, '\\\<');
    calF = calF.replace(/\>/g, '\\\>');
    calF = calF.replace(/\|/g, '\\\|');
    calF = calF.replace(/\*/g, '\\\*');
    calF = calF.replace(/\?/g, '\\\?');
    calF = calF.replace(/\+/g, '\\\+');
    calF = calF.replace(/\^/g, '\\\^');
    calF = calF.replace(/\$/g, '\\\$');

    calF = calF.replace(/dd/i, '\\d\\d');
    calF = calF.replace(/mm/i, '\\d\\d');
    calF = calF.replace(/yyyy/i, '\\d\\d\\d\\d');
    calF = calF.replace(/day/i, '\\w\\w\\w');
    calF = calF.replace(/mon/i, '\\w\\w\\w');

    return new RegExp(calF);
}

function getDateNumbers(date) {
    var y, m, d;

    var yIdx = calFormat.search(/yyyy/i);
    var mIdx = calFormat.search(/mm/i);
    var m3Idx = calFormat.search(/mon/i);
    var dIdx = calFormat.search(/dd/i);

    y = date.substring(yIdx, yIdx + 4) - 0;
    if (mIdx != -1) {
        m = date.substring(mIdx, mIdx + 2) - 1;
    }
    else {
//        var m = getMonthFromName(date.substring(m3Idx, m3Idx + 3));
        m = getMonthFromName(date.substring(m3Idx, m3Idx + 3));
    }
    d = date.substring(dIdx, dIdx + 2) - 0;

    return new Array(y, m, d);
}

function hideCal() {
    calWin.close();
    calWin = null;
    window.status = "";
}

function getLeftIE(x, m) {
    var dx = 0;
    if (x.tagName == "TD") {
        dx = x.offsetLeft;
    }
    else if (x.tagName == "TABLE") {
        dx = x.offsetLeft;
        if (m) { dx += (x.cellPadding != "" ? parseInt(x.cellPadding) : 2); m = false; }
    }
    return dx + (x.parentElement.tagName == "BODY" ? 0 : getLeftIE(x.parentElement, m));
}
function getTopIE(x, m) {
    var dy = 0;
    if (x.tagName == "TR") {
        dy = x.offsetTop;
    }
    else if (x.tagName == "TABLE") {
        dy = x.offsetTop;
        if (m) { dy += (x.cellPadding != "" ? parseInt(x.cellPadding) : 2); m = false; }
    }
    return dy + (x.parentElement.tagName == "BODY" ? 0 : getTopIE(x.parentElement, m));
}

function getLeftN4(l) { return l.pageX; }
function getTopN4(l) { return l.pageY; }

function getLeftN6(l) { return l.offsetLeft; }
function getTopN6(l) { return l.offsetTop; }

function lastDay(d) {
    var yy = d.getFullYear(), mm = d.getMonth();
    for (var i = 31; i >= 28; i--) {
        var nd = new Date(yy, mm, i);
        if (mm == nd.getMonth()) {
            return i;
        }
    }
}

function firstDay(d) {
    var yy = d.getFullYear(), mm = d.getMonth();
    var fd = new Date(yy, mm, 1);
    return fd.getDay();
}

function dayDisplay(i) {
    if (dayDigits == 0) {
        return yxDays[i];
    }
    else {
        return yxDays[i].substring(0, dayDigits);
    }
}

function calTitle(d) {
    var yy = d.getFullYear(), mm = yxMonths[d.getMonth()];
    var s;

    if (titleMode == 2) {
        s = "<tr align='center' bgcolor='" + titleColor + "'><td colspan='7'>\n<table cellpadding='0' cellspacing='0' border='0'><tr align='center' valign='middle'><td align='right'>" + span1("title") + "<b>" + a1("titlea") + "'javascript:if(window.opener && !window.opener.closed && window.opener.moveYear) window.opener.moveYear(-10)'>&nbsp;&#171;</a>&nbsp;" + a1("titlea") + "'javascript:if(window.opener && !window.opener.closed && window.opener.moveYear) window.opener.moveYear(-1)'>&#139;&nbsp;</a></b>" + span2 + "</td><td width='" + titleWidth + "'><b>" + span1("title") + yy + span2 + "</b></td><td align='left'>" + span1("title") + "<b>" + a1("titlea") + "'javascript:if (window.opener && !window.opener.closed && window.opener.moveYear) window.opener.moveYear(1)'>&nbsp;&#155;</a>&nbsp;" + a1("titlea") + "'javascript:if (window.opener && !window.opener.closed && window.opener.moveYear) window.opener.moveYear(10)'>&#187;&nbsp;</a></b>" + span2 + "</td></tr><tr align='center' valign='middle'><td align='right'>" + span1("title") + "<b>" + a1("titlea") + "'javascript:if (window.opener && !window.opener.closed && window.opener.prepMonth) window.opener.prepMonth(" + d.getMonth() + ")'>&nbsp;&#139;&nbsp;</a></b>" + span2 + "</td><td width='" + titleWidth + "'><b>" + span1("title") + mm + span2 + "</b></td><td align='left'>" + span1("title") + "<b>" + a1("titlea") + "'javascript:if (window.opener && !window.opener.closed && window.opener.nextMonth) window.opener.nextMonth(" + d.getMonth() + ")'>&nbsp;&#155;&nbsp;</a></b>" + span2 + "</td></tr></table>\n</td></tr><tr align='center' bgcolor='" + daysColor + "'>";
    }
    else {
        s = "<tr align='center' bgcolor='" + titleColor + "'><td colspan='7'>\n<table cellpadding='0' cellspacing='0' border='0'><tr align='center' valign='middle'><td>" + span1("title") + "<b>" + a1("titlea") + "'javascript:if(window.opener && !window.opener.closed && window.opener.moveYear) window.opener.moveYear(-1)'>&nbsp;&#171;</a>&nbsp;" + a1("titlea") + "'javascript:if (window.opener && !window.opener.closed && window.opener.prepMonth) window.opener.prepMonth(" + d.getMonth() + ")'>&#139;&nbsp;</a></b>" + span2 + "</td><td width='" + titleWidth + "'><nobr><b>" + span1("title") + mm + " " + yy + span2 + "</b></nobr></td><td>" + span1("title") + "<b>" + a1("titlea") + "'javascript:if (window.opener && !window.opener.closed && window.opener.nextMonth) window.opener.nextMonth(" + d.getMonth() + ")'>&nbsp;&#155;</a>&nbsp;" + a1("titlea") + "'javascript:if(window.opener && !window.opener.closed && window.opener.moveYear) window.opener.moveYear(1)'>&#187;&nbsp;</a></b>" + span2 + "</td></tr></table>\n</td></tr><tr align='center' bgcolor='" + daysColor + "'>";
    }

    for (var i = weekDay; i < weekDay + 7; i++) {
        s += "<td width='" + dayWidth + "'>" + span1("days") + dayDisplay(i) + span2 + "</td>";
    }

    s += "</tr>";

    return s;
}

function calHeader() {
    return "<head>\n<title>" + currentCal.title + "</title>\n<style type='text/css'>\n" + spanx("title", titleFontColor) + spanx("days", daysFontColor) + spanx("foot", footColor) + spanx("day", dayFontColor) + spanx("currentDay", currentDayFontColor) + ax("titlea", titleFontColor) + ax("daya", dayFontColor) + ax("currenta", currentDayFontColor) + ax("foota", footFontColor) + "</style>\n</head>\n<body>\n<table align='center' border='0' bgcolor='" + borderColor + "' cellspacing='0' cellpadding='1'><tr><td>\n<table cellspacing='1' cellpadding='3' border='0'>";
}

function calFooter() {
    return "<tr bgcolor='" + footColor + "'><td colspan='7' align='center'>" + span1("foot") + "<b>" + a1("foota") + "'javascript:if (window.opener && !window.opener.closed && window.opener.hideCal) window.opener.hideCal()'>" + yxLinks[0] + "</a>&nbsp;&nbsp;" + a1("foota") + "'javascript:if (window.opener && !window.opener.closed && window.opener.clearDate) window.opener.clearDate()'>" + yxLinks[1] + "</a></b>" + span2 + "</td></tr></table>\n</td></tr></table>\n</body>";
}

function calBody(d, day) {
    var s = "", dayCount = 1, fd = firstDay(d), ld = lastDay(d);

    if (weekDay > 0 && fd == 0) {
        fd = 7;
    }

    for (var i = 0; i < 6; i++) {
        s += "<tr align='center' bgcolor='" + bodyColor + "'>";
        for (var j = weekDay; j < weekDay + 7; j++) {
            if (i * 7 + j < fd || dayCount > ld) {
                s += "<td>" + span1("day") + "&nbsp;" + span2 + "</td>";
            }
            else {
                var bgColor = dayColor;
                var fgTag = "day";
                var fgTagA = "daya";
                if (dayCount == day) {
                    bgColor = currentDayColor;
                    fgTag = "currentDay";
                    fgTagA = "currenta";
                }

                s += "<td bgcolor='" + bgColor + "'>" + span1(fgTag) + a1(fgTagA) + "'javascript: if (window.opener && !window.opener.closed && window.opener.pickDate) window.opener.pickDate(" + dayCount + ")'>" + (dayCount++) + "</a>" + span2 + "</td>";
            }
        }
        s += "</tr>";
    }

    return s;
}

function moveYear(dy) {
    cY += dy;
    var nd = new Date(cY, cM, 1);
    changeCal(nd);
}

function prepMonth(m) {
    cM = m - 1;
    if (cM < 0) { cM = 11; cY--; }
    var nd = new Date(cY, cM, 1);
    changeCal(nd);
}

function nextMonth(m) {
    cM = m + 1;
    if (cM > 11) { cM = 0; cY++; }
    var nd = new Date(cY, cM, 1);
    changeCal(nd);
}

function changeCal(d) {
    var dd = 0;

    if (currentCal != null) {
        var calRE = getFormat();

        if (currentCal.form[currentCal.field].value != "" && calRE.test(currentCal.form[currentCal.field].value)) {
            var cd = getDateNumbers(currentCal.form[currentCal.field].value);
            if (cd[0] == d.getFullYear() && cd[1] == d.getMonth()) {
                dd = cd[2];
            }
        }
        else {
//            var cd = new Date();
            var cd = new Date();
            if (cd.getFullYear() == d.getFullYear() && cd.getMonth() == d.getMonth()) {
                dd = cd.getDate();
            }
        }
    }

    var calendar = calHeader() + calTitle(d) + calBody(d, dd) + calFooter();

    calWin.document.open();
    calWin.document.write(calendar);
    calWin.document.close();
}

function markClick(e) {
    if (isIE || isOpera6) {
        winX = event.screenX;
        winY = event.screenY;
    }
    else if (isN4 || isN6) {
        winX = e.screenX;
        winY = e.screenY;

        document.routeEvent(e);
    }

    if (isN4 || isN6) {
        document.routeEvent(e);
    }
    else {
        event.cancelBubble = false;
    }

    return true;
}

function showCal(name) {
    var lastCal = currentCal;
    var d = new Date(), hasCal = false;

    currentCal = findCalendar(name);

    if (currentCal != null && currentCal.form != null && currentCal.form[currentCal.field]) {
        var calRE = getFormat();

        if (currentCal.form[currentCal.field].value != "" && calRE.test(currentCal.form[currentCal.field].value)) {
            var cd = getDateNumbers(currentCal.form[currentCal.field].value);
            d = new Date(cd[0], cd[1], cd[2]);

            cY = cd[0];
            cM = cd[1];
            dd = cd[2];
        }
        else {
            cY = d.getFullYear();
            cM = d.getMonth();
            dd = d.getDate();
        }

        var calendar = calHeader() + calTitle(d) + calBody(d, dd) + calFooter();

        if (calWin != null && !calWin.closed) {
            hasCal = true;
            calWin.moveTo(winX + calOffsetX, winY + calOffsetY);
        }

        if (!hasCal) {
            if (isIE || isOpera6) {
                calWin = window.open("", "cal", "toolbar=0,width=" + calWidth + ",height=" + calHeight + ",left=" + (winX + calOffsetX) + ",top=" + (winY + calOffsetY));
            }
            else {
                calWin = window.open("", "cal", "toolbar=0,width=" + calWidth + ",height=" + calHeight + ",screenx=" + (winX + calOffsetX) + ",screeny=" + (winY + calOffsetY));
            }
        }

        calWin.document.open();
        calWin.document.write(calendar);
        calWin.document.close();

        calWin.focus();
    }
    else {
        if (currentCal == null) {
            window.status = "Calendar [" + name + "] not found.";
        }
        else if (!currentCal.form) {
            window.status = "Form [" + currentCal.formName + "] not found.";
        }
        else if (!currentCal.form[currentCal.field]) {
            window.status = "Form Field [" + currentCal.formName + "." + currentCal.field + "] not found.";
        }

        if (lastCal != null) {
            currentCal = lastCal;
        }
    }
}

function get2Digits(n) {
    return ((n < 10) ? "0" : "") + n;
}

function clearDate() {
    currentCal.form[currentCal.field].value = "";
    hideCal();
}

function pickDate(d) {
    hideCal();
    window.focus();

    var date = calFormat;
    date = date.replace(/yyyy/i, cY);
    date = date.replace(/mm/i, get2Digits(cM + 1));
    date = date.replace(/MON/, yxMonths[cM].substring(0, 3).toUpperCase());
    date = date.replace(/Mon/i, yxMonths[cM].substring(0, 3));
    date = date.replace(/dd/i, get2Digits(d));
    date = date.replace(/DAY/, getDayName(cY, cM, d).toUpperCase());
    date = date.replace(/day/i, getDayName(cY, cM, d));

    currentCal.form[currentCal.field].value = date;
    // IE5/Mac needs focus to show the value, weird.
    currentCal.form[currentCal.field].focus();
}
// ------

// user functions
function checkDate(name) {
    var thisCal = findCalendar(name);

    if (thisCal != null && thisCal.form != null && thisCal.form[thisCal.field]) {
        var calRE = getFormat();

        if (calRE.test(thisCal.form[thisCal.field].value)) {
            return 0;
        }
        else {
            return 1;
        }
    }
    else {
        return 2;
    }
}

function getCurrentDate() {
    var date = calFormat, d = new Date();
    date = date.replace(/yyyy/i, d.getFullYear());
    date = date.replace(/mm/i, get2Digits(d.getMonth() + 1));
    date = date.replace(/dd/i, get2Digits(d.getDate()));

    return date;
}

function compareDates(date1, date2) {
    var calRE = getFormat();
    var d1, d2;

    if (calRE.test(date1)) {
        d1 = getNumbers(date1);
    }
    else {
        d1 = getNumbers(getCurrentDate());
    }

    if (calRE.test(date2)) {
        d2 = getNumbers(date2);
    }
    else {
        d2 = getNumbers(getCurrentDate());
    }

    var dStr1 = d1[0] + "" + d1[1] + "" + d1[2];
    var dStr2 = d2[0] + "" + d2[1] + "" + d2[2];

    if (dStr1 == dStr2) {
        return 0;
    }
    else if (dStr1 > dStr2) {
        return 1;
    }
    else {
        return -1;
    }
}

function getNumbers(date) {
    var calRE = getFormat();
    var y, m, d;

    if (calRE.test(date)) {
        var yIdx = calFormat.search(/yyyy/i);
        var mIdx = calFormat.search(/mm/i);
        var m3Idx = calFormat.search(/mon/i);
        var dIdx = calFormat.search(/dd/i);

        y = date.substring(yIdx, yIdx + 4);
        if (mIdx != -1) {
            m = date.substring(mIdx, mIdx + 2);
        }
        else {
            var mm = getMonthFromName(date.substring(m3Idx, m3Idx + 3)) + 1;
            m = (mm < 10) ? ("0" + mm) : ("" + mm);
        }
        d = date.substring(dIdx, dIdx + 2);

        return new Array(y, m, d);
    }
    else {
        return new Array("", "", "");
    }
}
// ------

if (isN4 || isN6) {
    document.captureEvents(Event.CLICK);
}
document.onclick = markClick;