// Project: Dynamic Date Selector (DtTvB) - 2006-03-16
// Script featured on JavaScript Kit- http://www.javascriptkit.com
// Code begin...
// Set the initial date.
var ds_i_date = new Date();
var ds_e_day;
var ds_e_month;
var ds_e_year;
var today_d = ds_c_day = ds_i_date.getDate();
var today_m = ds_c_month = ds_i_date.getMonth() + 1;
var today_y = ds_c_year = ds_i_date.getFullYear();
var enable_futuredates = true;
var enable_pastdates = true;

// Get Element By Id
function ds_getel(id) {
    return document.getElementById(id);
}

// Get the left and the top of the element.
function ds_getleft(el) {
    var curleft = 0;

    if (el.offsetParent) {
        curleft = el.offsetLeft;
        while (el = el.offsetParent) {
            curleft += el.offsetLeft;
        }
    }
    return curleft;
}
function ds_gettop(el) {
    var curtop = 0;
    if (el.offsetParent) {
        curtop = el.offsetTop;
        while (el = el.offsetParent) {
            curtop += el.offsetTop;
        }
    }
    return curtop;
}

// Output Element
var ds_oe = ds_getel('ds_calclass');
// Container
var ds_ce = ds_getel('ds_conclass');

// Output Buffering
var ds_ob = ''; 
function ds_ob_clean() {
    ds_ob = '';
}
function ds_ob_flush() {
    ds_oe.innerHTML = ds_ob;
    ds_ob_clean();
}
function ds_echo(t) {
    ds_ob += t;
}

var ds_element; // Text Element...

var ds_monthnames = [
'Janvier', 'Février', 'Mars', 'Avril', 'Mai', 'Juin',
'Juillet', 'Aout', 'Septembre', 'Octobre', 'Novembre', 'Décembre'
]; // You can translate it for your language.

var ds_daynames = [
'Dim', 'Lun', 'Mar', 'Me', 'Jeu', 'Ven', 'Sam'
]; // You can translate it for your language.

// Calendar template
function ds_template_main_above(t) {
    return '<table cellpadding="3" cellspacing="1" class="ds_tbl">'
         + '<tr>'
         + '<td class="ds_head" style="cursor: pointer" onclick="ds_py();">&lt;&lt;</td>'
         + '<td class="ds_head" style="cursor: pointer" onclick="ds_pm();">&lt;</td>'
         + '<td class="ds_head" style="cursor: pointer" onclick="ds_hi();" colspan="3">[Fermer]</td>'
         + '<td class="ds_head" style="cursor: pointer" onclick="ds_nm();">&gt;</td>'
         + '<td class="ds_head" style="cursor: pointer" onclick="ds_ny();">&gt;&gt;</td>'
         + '</tr>'
         + '<tr>'
         + '<td colspan="7" class="ds_head">' + t + '</td>'
         + '</tr>'
         + '<tr>';
}

function ds_template_day_row(t) {
    return '<td class="ds_subhead">' + t + '</td>';
    // Define width in CSS, XHTML 1.0 Strict doesn't have width property for it.
}

function ds_template_new_week() {
    return '</tr><tr>';
}

function ds_template_blank_cell(colspan) {
    return '<td colspan="' + colspan + '"></td>'
}

function ds_template_day(d, m, y) {
    var enabled_date = true;
    if (y > today_y || y == today_y && (m > today_m || m == today_m && (d > today_d))) {
        // Future date
        enabled_date = enable_futuredates;
    } else if (y < today_y || y == today_y && (m < today_m || m == today_m && (d < today_d))) {
        // Past date
        enabled_date = enable_pastdates;
    }
    // Define the day cell style.
    var class_date = 'ds_cell';
    if (d == ds_e_day && m == ds_e_month && y == ds_e_year) {
        class_date = 'ds_cell_current';
    } else if (d == today_d && m == today_m && y == today_y) {
        class_date = 'ds_cell_today';
    } else if (((new Date(y, m-1, d)).getDay() +1) % 7 < 2) {
        class_date = 'ds_cell_holiday';
    }
    // Define the day cell event.
    if (enabled_date) {
        return '<td class="' + class_date + '" onclick="ds_onclick(' + d + ',' + m + ',' + y + ')">' + d + '</td>';
    } else {
        class_date += ' ds_unavailable';
        return '<td class="' + class_date + '">' + d + '</td>';
    }
}

function ds_template_main_below() {
    return '</tr>'
         + '</table>';
}

// This one draws calendar...
function ds_draw_calendar(m, y) {
    // First clean the output buffer.
    ds_ob_clean();
    // Here we go, do the header
    ds_echo (ds_template_main_above(ds_monthnames[m - 1] + ' ' + y));
    for (i = 0; i < 7; i ++) {
        ds_echo (ds_template_day_row(ds_daynames[i]));
    }
    // Make a date object.
    var ds_dc_date = new Date();
    ds_dc_date.setDate(1);
    ds_dc_date.setMonth(m - 1);
    ds_dc_date.setFullYear(y);
    if (m == 1 || m == 3 || m == 5 || m == 7 || m == 8 || m == 10 || m == 12) {
        days = 31;
    } else if (m == 4 || m == 6 || m == 9 || m == 11) {
        days = 30;
    } else {
        days = (y % 4 == 0) ? 29 : 28;
    }
    var first_day = ds_dc_date.getDay();
    var first_loop = 1;
    // Start the first week
    ds_echo (ds_template_new_week());
    // If sunday is not the first day of the month, make a blank cell...
    if (first_day != 0) {
        ds_echo (ds_template_blank_cell(first_day));
    }
    var j = first_day;
    for (i = 0; i < days; i ++) {
        // Today is sunday, make a new week.
        // If this sunday is the first day of the month,
        // we've made a new row for you already.
        if (j == 0 && !first_loop) {
            // New week!!
            ds_echo (ds_template_new_week());
        }
        // Make a row of that day!
        ds_echo (ds_template_day(i + 1, m, y));
        // This is not first loop anymore...
        first_loop = 0;
        // What is the next day?
        j ++;
        j %= 7;
    }
    // Do the footer
    ds_echo (ds_template_main_below());
    // And let's display..
    ds_ob_flush();
    // Scroll it into view.
//    ds_ce.scrollIntoView();
}

// A function to show the calendar.
// When user click on the date, it will set the content of t.
function ds_sh(t, doformatdate, ontop, pastdates, futuredates, offsetX, offsetY) {
    // Check if future and past dates could be clicked
    enable_pastdates = pastdates;
    enable_futuredates = futuredates;
    // Set the element to set...
    ds_element = t;
    if (!ds_element || ds_element.readOnly || ds_element.disabled) {
        return;
    }
    if (!ds_element.onblur) {
        ds_element.onblur = ds_hi_timer;
    }
    // Cancel the ds_hi_timerId
    ds_hi_clear_timer();
    // Try to load the date from the element
    var ds_element_date_string = "-";
    if (typeof(ds_element.value) != 'undefined') {
        ds_element_date_string = ds_element.value;
    } else if (typeof(ds_element.innerHTML) != 'undefined') {
        ds_element_date_string = ds_element.innerHTML;
    }
    // Make a new date or load it from the element, and set the current month and year.
    var ds_sh_date = new Date();
    today_d = ds_sh_date.getDate();
    today_m = ds_sh_date.getMonth() + 1;
    today_y = ds_sh_date.getFullYear();
    if ((ds_element_date = parseDate(ds_element_date_string, true)) != null) {
        ds_sh_date = ds_element_date;
            ds_e_day = ds_sh_date.getDate();
            ds_e_month = ds_sh_date.getMonth() + 1;
            ds_e_year = ds_sh_date.getFullYear();
            if (doformatdate) {
               ds_set_element(ds_e_day, ds_e_month, ds_e_year);
            }
    } else {
            ds_e_day = null;
            ds_e_month = null;
            ds_e_year = null;
    }
    ds_c_day = ds_sh_date.getDate();
    ds_c_month = ds_sh_date.getMonth() + 1;
    ds_c_year = ds_sh_date.getFullYear();
    // Draw the calendar
    ds_draw_calendar(ds_c_month, ds_c_year);
    // To change the position properly, we must show it first.
    ds_ce.style.display = '';
    // Move the calendar container!
    the_left = ds_getleft(t);
    if (ontop) {
        the_top = ds_gettop(t) - ds_ce.offsetHeight;
    } else {
        the_top = ds_gettop(t) + t.offsetHeight;
    }
    if (offsetX) {
        the_left += offsetX;
    }
    if (offsetY) {
        the_top += offsetY;
    }
//    alert(the_left + '/' + the_top);
    ds_ce.style.left = the_left + 'px';
    ds_ce.style.top = the_top + 'px';
    // Scroll it into view.
//    ds_ce.scrollIntoView();
    if (ds_element.focus) { try {ds_element.focus(); ds_hi_clear_timer();} catch(e){}}
}

var ds_hi_timerId = 0;

function ds_hi_clear_timer() {
    if (ds_hi_timerId != 0) {
        clearTimeout(ds_hi_timerId);
        ds_hi_timerId = 0;
    }
}
// Hide the calendar.
function ds_hi_do() {
    if (ds_ce && ds_element) {
      var ds_element_date_string = "-";
      if (typeof(ds_element.value) != 'undefined') {
          ds_element_date_string = ds_element.value;
      } else if (typeof(ds_element.innerHTML) != 'undefined') {
          ds_element_date_string = ds_element.innerHTML;
      }
      if ((ds_element_date = parseDate(ds_element_date_string, true)) != null) {
          ds_sh_date = ds_element_date;
          ds_e_day = ds_sh_date.getDate();
          ds_e_month = ds_sh_date.getMonth() + 1;
          ds_e_year = ds_sh_date.getFullYear();
          ds_set_element(ds_e_day, ds_e_month, ds_e_year);
      }
    }
    if (ds_ce) {
        ds_ce.style.display = 'none';
    }
}
function ds_hi_timer() {
    if (ds_hi_timerId == 0) {
        ds_hi_timerId = setTimeout("ds_hi_do()", 500);
    }
}

// Clik to close the calendar.
function ds_hi() {
    ds_hi_do();
    if (ds_element.focus) { try {ds_element.focus(); } catch(e){}}
}

// Moves to the next month...
function ds_nm() {
    // Increase the current month.
    ds_c_month ++;
    // We have passed December, let's go to the next year.
    // Increase the current year, and set the current month to January.
    if (ds_c_month > 12) {
        ds_c_month = 1; 
        ds_c_year++;
    }
    // Redraw the calendar.
    ds_draw_calendar(ds_c_month, ds_c_year);
    if (ds_element.focus) { try {ds_element.focus(); ds_hi_clear_timer();} catch(e){}}
}

// Moves to the previous month...
function ds_pm() {
    ds_c_month = ds_c_month - 1; // Can't use dash-dash here, it will make the page invalid.
    // We have passed January, let's go back to the previous year.
    // Decrease the current year, and set the current month to December.
    if (ds_c_month < 1) {
        ds_c_month = 12; 
        ds_c_year = ds_c_year - 1; // Can't use dash-dash here, it will make the page invalid.
    }
    // Redraw the calendar.
    ds_draw_calendar(ds_c_month, ds_c_year);
    if (ds_element.focus) { try {ds_element.focus(); ds_hi_clear_timer();} catch(e){}}
}

// Moves to the next year...
function ds_ny() {
    // Increase the current year.
    ds_c_year++;
    // Redraw the calendar.
    ds_draw_calendar(ds_c_month, ds_c_year);
    if (ds_element.focus) { try {ds_element.focus(); ds_hi_clear_timer();} catch(e){}}
}

// Moves to the previous year...
function ds_py() {
    // Decrease the current year.
    ds_c_year = ds_c_year - 1; // Can't use dash-dash here, it will make the page invalid.
    // Redraw the calendar.
    ds_draw_calendar(ds_c_month, ds_c_year);
    if (ds_element.focus) { try {ds_element.focus(); ds_hi_clear_timer();} catch(e){}}
}

// Format the date to output.
function ds_format_date(d, m, y) {
    // 2 digits month.
    m2 = '00' + m;
    m2 = m2.substr(m2.length - 2);
    // 2 digits day.
    d2 = '00' + d;
    d2 = d2.substr(d2.length - 2);
    // DD-MM-YYYY
    return d2 + '-' + m2 + '-' + y;
}

// When the user clicks the day.
function ds_onclick(d, m, y) {
    ds_set_element(d, m, y);
    ds_hi();
    if (ds_element.focus) { try {ds_element.focus(); ds_hi_clear_timer();} catch(e){}}
}
function ds_set_element(d, m, y) {
    // Set the value of it, if we can.
    if (typeof(ds_element.value) != 'undefined') {
        ds_element.value = ds_format_date(d, m, y);
    // Maybe we want to set the HTML in it.
    } else if (typeof(ds_element.innerHTML) != 'undefined') {
        ds_element.innerHTML = ds_format_date(d, m, y);
    // I don't know how should we display it, just alert it to user.
    } else {
        alert (ds_format_date(d, m, y));
    }
}