/* --- Swazz Javascript Calendar ---
/* --- v 1.0 3rd November 2006
By Oliver Bryant
http://calendar.swazz.org */

/* --- SCOOB addition:  date format selection ---
   --- USA:  MM/DD/YYYY
   --- ISO:  YYYY-MM-DD
   --- EU:   DD/MM/YYYY (the default behavior for this script)
 
 *** Just uncomment either the 'USA' or 'ISO' line below
 *** to override the default European date format
 */
var format='EU';   var separator='/';  // DEFAULT FORMAT
format='USA';  separator='/';
//  format='ISO';  var separator='-';
 

function getObj(objID)
{
    if (document.getElementById) {return document.getElementById(objID);}
    else if (document.all) {return document.all[objID];}
    else if (document.layers) {return document.layers[objID];}
}

function checkClick(e) {
  e?evt=e:evt=event;
  CSE=evt.target?evt.target:evt.srcElement;
  if (getObj('fc'))
    if (!isChild(CSE,getObj('fc')))
      getObj('fc').style.display='none';
}

function isChild(s,d) {
  while(s) {
    if (s==d) 
      return true;
    s=s.parentNode;
  }
  return false;
}

function Left(obj)
{
  var curleft = 0;
  if (obj.offsetParent)
  {
    while (obj.offsetParent)
    {
      var tempObj = $(obj);
      if ( tempObj.hasClassName( 'dialog' ) )
      {
         break;
      }

      curleft += obj.offsetLeft;
      obj = obj.offsetParent;
    }
  }
  else if (obj.x)
    curleft += obj.x;
    
  if ( Prototype.Browser.IE )
  {
     curleft -= 7;
  }

  return curleft;
}

function Top(obj)
{
  var curtop = 0;
  if (obj.offsetParent)
  {
    while (obj.offsetParent)
    {
      var tempObj = $(obj);
      if ( tempObj.hasClassName( 'dialog' ) )
      {
         break;
      }

      curtop += obj.offsetTop;
      obj = obj.offsetParent;
    }
  }
  else if (obj.y)
    curtop += obj.y;

  if ( Prototype.Browser.IE )
  {
     curtop -= 37;
  }

  return curtop;
}

// Calendar script
var now = new Date;
var sccm=now.getMonth();
var sccy=now.getFullYear();
var ccm=now.getMonth();
var ccy=now.getFullYear();
var ccd;                // SCOOB: new code

var updobj;
function lcs(ielem) {
  updobj=ielem;
  getObj('fc').style.left=Left(ielem);
  getObj('fc').style.top=Top(ielem)+ielem.offsetHeight;
  getObj('fc').style.display='';
  
  // First check date is valid
  curdt=ielem.value;
//  curdtarr=curdt.split('/');        // SCOOB old code:
  curdtarr=curdt.split(separator);  // SCOOB: new code
  isdt=true;
  for(var k=0;k<curdtarr.length;k++) {
    if (isNaN(curdtarr[k]))
      isdt=false;
  }
  if (isdt&(curdtarr.length==3)) {

// SCOOB: New code if/else if/else
     if (format=='USA') {      // USA foramt:  MM/DD/YYYY
    ccm=curdtarr[0]-1;
          ccd=curdtarr[1];
    ccy=curdtarr[2];

     }
     else if (format=='ISO') { // ISO format:  YYYY-MM-DD
    ccy=curdtarr[0];
    ccm=curdtarr[1]-1;
          ccd=curdtarr[2];
     }
     else {                    // DEFAULT behavior:  i.e. European format DD/MM/YYYY
          ccd=curdtarr[0];
    ccm=curdtarr[1]-1;
    ccy=curdtarr[2];
     }

     prepcalendar(ccd,ccm,ccy);
  }
  
}

function evtTgt(e)
{
  var el;
  if(e.target)el=e.target;
  else if(e.srcElement)el=e.srcElement;
  if(el.nodeType==3)el=el.parentNode; // defeat Safari bug
  return el;
}
function EvtObj(e){if(!e)e=window.event;return e;}
function cs_over(e) {
  evtTgt(EvtObj(e)).style.background='#FFCC66';
}
function cs_out(e) {
  evtTgt(EvtObj(e)).style.background='#C4D3EA';
}
function cs_click(e) {
  updobj.value=calvalarr[evtTgt(EvtObj(e)).id.substring(1,evtTgt(EvtObj(e)).id.length)];
  getObj('fc').style.display='none';
  
}

var mn=new Array('JAN','FEB','MAR','APR','MAY','JUN','JUL','AUG','SEP','OCT','NOV','DEC');
var mnn=new Array('31','28','31','30','31','30','31','31','30','31','30','31');
var mnl=new Array('31','29','31','30','31','30','31','31','30','31','30','31');
var calvalarr=new Array(42);

function f_cps(obj) {
  obj.style.background='#C4D3EA';
  obj.style.font='10px Arial';
  obj.style.color='#333333';
  obj.style.textAlign='center';
  obj.style.textDecoration='none';
  obj.style.border='1px solid #6487AE';
  obj.style.cursor='pointer';
}

function f_cpps(obj) {
  obj.style.background='#C4D3EA';
  obj.style.font='10px Arial';
  obj.style.color='#ABABAB';
  obj.style.textAlign='center';
  obj.style.textDecoration='line-through';
  obj.style.border='1px solid #6487AE';
  obj.style.cursor='default';
}

function f_hds(obj) {
  obj.style.background='#FFF799';
  obj.style.font='bold 10px Arial';
  obj.style.color='#333333';
  obj.style.textAlign='center';
  obj.style.border='1px solid #6487AE';
  obj.style.cursor='pointer';
}

// day selected
function prepcalendar(hd,cm,cy) {
  now=new Date();
  sd=now.getDate();
  td=new Date();
  td.setDate(1);
  td.setFullYear(cy);
  td.setMonth(cm);
  cd=td.getDay();
  getObj('mns').innerHTML=mn[cm]+ ' ' + cy;
  marr=((cy%4)==0)?mnl:mnn;
  for(var d=1;d<=42;d++) {
    f_cps(getObj('v'+parseInt(d)));
    if ((d >= (cd -(-1))) && (d<=cd-(-marr[cm]))) {
      dip=((d-cd < sd)&&(cm==sccm)&&(cy==sccy));
      htd=((hd!='')&&(d-cd==hd));
      if (dip)
        f_cpps(getObj('v'+parseInt(d)));
      else if (htd)
        f_hds(getObj('v'+parseInt(d)));
      else
        f_cps(getObj('v'+parseInt(d)));

      getObj('v'+parseInt(d)).onmouseover=(dip)?null:cs_over;
      getObj('v'+parseInt(d)).onmouseout=(dip)?null:cs_out;
      getObj('v'+parseInt(d)).onclick=(dip)?null:cs_click;
      
      getObj('v'+parseInt(d)).innerHTML=d-cd; 
 


      // SCOOB: New code if/else if/else
      if (format=='USA') {      // USA foramt:  MM/DD/YYYY
          calvalarr[d]=''+(cm-(-1))+separator+(d-cd)+separator+cy;
      }
      else if (format=='ISO') { // ISO format:  YYYY-MM-DD
          calvalarr[d]=''+cy+separator+(cm-(-1))+separator+(d-cd);    // SCOOB: new code
      }
      else {                    // DEFAULT behavior:  i.e. European format DD/MM/YYYY
          calvalarr[d]=''+(d-cd)+separator+(cm-(-1))+separator+cy;
      }
    }
    else {
      getObj('v'+d).innerHTML='&nbsp;';
      getObj('v'+parseInt(d)).onmouseover=null;
      getObj('v'+parseInt(d)).onmouseout=null;
      getObj('v'+parseInt(d)).style.cursor='default';
      }
  }
}

//prepcalendar('',ccm,ccy);
//getObj('fc'+cc).style.visibility='hidden';

function caddm() {
  marr=((ccy%4)==0)?mnl:mnn;
  
  ccm+=1;
  if (ccm>=12) {
    ccm=0;
    ccy++;
  }
  cdayf();
  prepcalendar('',ccm,ccy);
}

function csubm() {
  marr=((ccy%4)==0)?mnl:mnn;
  
  ccm-=1;
  if (ccm<0) {
    ccm=11;
    ccy--;
  }
  cdayf();
  prepcalendar('',ccm,ccy);
}

function cdayf() {
if ((ccy>sccy)|((ccy==sccy)&&(ccm>=sccm)))
  return;
else {
  ccy=sccy;
  ccm=sccm;
  }
}