var MonthDays=new Array(31,29,31,30,31,30,31,31,30,31,30,31);
//var oneDay=86400000;
//var td=new Date();
var today=new Date(cYr,cMt,cDy,0,0,0);
var periodEnd=new Date(cYr+1,(cMt==0?11:cMt-1),cDy,0,0,0);

var reconcileFn = "reconcile_dates"; // function to call after clicking on a date
//current
//var cYr=td.getFullYear();
//var cMt=td.getMonth();
//var cDy=td.getDate();

//selected
var sYr=2006;
var sMt=1;
var sDy=17;
var sDate;
var tYr,tMt,tDy;

var d=document;
var cal,ical,sec_d,sec_m,oFrames,oObjs,oBody;
var defcol='';
var oStatus,timerID;

//document.onload=place_cal;
var old_onload=(window.onload) ? window.onload : function(){};
window.onload=function(){old_onload(); place_cal(); if(typeof place_cal_dest=='function') place_cal_dest();};
function delayed_close_cal() {
  if(typeof cal=='object')
  {
    if(typeof timerID!='undefined') clearTimeout(timerID);
    timerID=setTimeout('close_cal()', 1000);
  }
}

function place_cal() {
  var sel_tst=d.getElementById('sector_1_m');
  if(!sel_tst || sel_tst == -1) return;
  oBody=d.getElementsByTagName('body')[0];
  var img;
  for(var i=1;i<=2;i++) {
    var formCal=d.createElement('td');
    img='<'+'a href="#" onclick="open_cal(event,'+i+', \'reconcile_dates\');return false;" onmouseout="delayed_close_cal()" title="Calendar" id="calbtn_'+i+'"><im'+'g src="/php/calendar/cal.gif" border="0" alt="Calendar"><'+'/a>';
    sec_m=eval('d.SBform.sector_'+i+'_m');
    sec_m.parentNode.parentNode.appendChild(formCal);
    //sec_d.parentNode.parentNode.insertBefore(formCal,sec_d.parentNode);
    formCal.innerHTML=img;
  }
}

MonthDays[1]=tst_bissextile(sYr);

//test of bissextile
function tst_bissextile(tYr){
  var tst=new Date(tYr,1,29);
  if(tst.getDate()!=29)return 28;
  return 29;
}

function get_start(_Yr,_Mt,firtsday){
  var st=new Date(_Yr,_Mt,1, 0,0,0);
  while(st.getDay()!=firtsday) st=new Date(st.getFullYear(),st.getMonth(),st.getDate()-1,0,0,0);
  return st;
}

function get_end(_Yr,_Mt,firtsday) {
  var en = new Date(_Yr,_Mt,MonthDays[_Mt],0,0,0);
  var temp='['+en.getDate()+']';
  var lastday=(firtsday==0)?6:firtsday-1;
  while(en.getDay()!=lastday) en=new Date(en.getFullYear(),en.getMonth(),en.getDate()+1,0,0,0);
  return en;
}

function getObj(nm){
//var x = new getObj('idname');
  if(d.getElementById){this.obj=d.getElementById(nm);this.style=d.getElementById(nm).style;}
  else if(d.all){this.obj=d.all[nm];this.style=d.all[nm].style;}
  else if(d.layers){this.obj=d.layers[nm];this.style=d.layers[nm];}
}
//***********************
function open_cal(e,sec,onclk){
  reconcileFn = onclk;
  if(typeof timerID != 'undefined')
   clearTimeout(timerID);
  var posx=0;
  var posy=0;
  if(!e) var e=window.event;
  if(e.pageX||e.pageY){posx=e.pageX;posy=e.pageY;}
  else if (e.clientX || e.clientY){
    posx = e.clientX + (d.documentElement.scrollLeft?d.documentElement.scrollLeft:d.body.scrollLeft);
    posy = e.clientY + (d.documentElement.scrollTop?d.documentElement.scrollTop:d.body.scrollTop);
  }

  if(typeof cal=='object') close_cal();

  //values from selects of one sector
  sec_m=eval('d.SBform.sector_'+sec+'_m');
  sec_d=eval('d.SBform.sector_'+sec+'_d');
  var cYM=sec_m.options[sec_m.selectedIndex].value;
  if((cYM=='') || (cYM=='--') || (cYM=='00'))
    return;
  sYr=tYr=parseInt(cYM.substr(2,4),10);
  sMt=tMt=parseInt(cYM.substr(0,2),10)-1;
  sDy=tDy=parseInt(sec_d.options[sec_d.selectedIndex].value,10);
  sDate=new Date(sYr,sMt,sDy,0,0,0);
  if(MSIE5){
    oFrames=d.getElementsByTagName('iframe');
    oObjs=d.getElementsByTagName('object');
    for(var i=0;i<oFrames.length;i++) oFrames[i].style.visibility='hidden';
    for(var i=0;i<oObjs.length;i++) oObjs[i].style.visibility='hidden';
  }

  with(cal=d.createElement('div')){
  style.zIndex=500;
  className='cal';
  id='cal';
  cal.onmouseover=function(){if(typeof timerID != 'undefined') clearTimeout(timerID); cal.onmouseout=function(){timerID=setTimeout('close_cal()',1000);};};
  style.left=posx+'px';
  style.top=posy+'px';
  }
  with(ical=d.createElement('iframe')){
  src='';
  scrolling='no';
  ical.frameborder='0';
  style.border='0';
  className='cal';
  }
  
  oBody.appendChild(cal);
  oBody.appendChild(ical);
  //ical.getElementsByTagName('body')[0].appendChild(cal);

  make_cal();

  with(ical){
  style.width=cal.offsetWidth;
  style.height=cal.offsetHeight;
  style.top=cal.style.top;
  style.left=cal.style.left;
  style.zIndex=cal.style.zIndex-1;
  }
}

function close_cal(){
  cal.parentNode.removeChild(cal);
  ical.parentNode.removeChild(ical);
  cal=ical='';
  if(MSIE5){
    for(var i=0;i<oFrames.length;i++) oFrames[i].style.visibility='visible';
    for(var i=0;i<oObjs.length;i++) oObjs[i].style.visibility='visible';
  }
}

function make_cal() {
  cal.innerHTML='';
  MonthDays[1]=tst_bissextile(tYr);
  yr_field(tYr,cYr,2);
  mt_field(tMt,cMt);
  dy_field();
  oStatus=d.createElement('div');
  cal.appendChild(oStatus);
  oStatus.id='stat';
  oStatus.innerHTML=days[sDate.getDay()]+' '+sDy+delim+(sMt+1)+delim+sYr;
  ical.style.height = cal.offsetHeight;
}

function cr_tbl(idval) {
  var oTBL=d.createElement('table');
  oTBL.id=idval;
  cal.appendChild(oTBL);
  var oTB=d.createElement('tbody');
  oTBL.appendChild(oTB);
  return oTB;
}
function over_top(obj){
  obj.onmouseover=function(){defcol=this.style.backgroundColor; this.style.backgroundColor='#1396ff';}
  obj.onmouseout=function(){this.style.backgroundColor=defcol;};
}

function yr_field(selY, curY, max) {
  var oTB=cr_tbl('year');
  var oTR=d.createElement('tr');
  oTB.appendChild(oTR);
  var oTD;
  for(var i=0;i<max;i++) {
    oTD=d.createElement('td');
    oTD.innerHTML=curY+i;
    oTD.id='yr_'+(curY+i);
    oTD.className=(selY==curY+i)?'act_mt':'lnk_t';
    if(selY!=(curY+i)) {
      oTD.onclick=function(){tYr=parseInt(this.id.substr(3));make_cal();};
      over_top(oTD);
    }
    oTR.appendChild(oTD);
  }
}

function mt_field(selM, curM) {
  var oTB=cr_tbl('month');
  var oTR=d.createElement('tr');
  oTB.appendChild(oTR);
  var oTD;
  var mths=new Array();
  //var a_prev=new Array('&laquo;','','');
  //var a_next=new Array('','','&raquo;');
  mths[0]=(selM==0)?11:(selM-1);
  mths[1]=selM;
  mths[2]=(selM==11)?0:(selM+1);
  var mtTab=new Array('&laquo;&laquo;&laquo;',months[selM],'&raquo;&raquo;&raquo;');
  for(var i=0;i<3;i++) {
    oTD=d.createElement('td');
    //oTD.innerHTML=a_prev[i]+months[mths[i]]+a_next[i];
    oTD.innerHTML=mtTab[i];
    oTD.id='mt_'+mths[i];
    oTD.className=(selM==mths[i])?'act_mt':'lnk_t';
    if(selM!=mths[i]) {
      oTD.onmousedown=oTD.ondblclick=function(){var tmp=tMt; tMt=parseInt(this.id.substr(3));
      if((tmp==11)&&(tMt==0)) tYr++; else if((tmp==0)&&(tMt==11)) tYr--; make_cal();};
      over_top(oTD);
    }
    oTR.appendChild(oTD);
  }
}

function dy_field() {
  var oTB=cr_tbl('body');
  var oTR;
  var oTH;
  var oTD;
  var st=get_start(tYr,tMt,firstD);
  var actD=st;
  var en=get_end(tYr,tMt,firstD);
  var numdays=en-st;
  var numW=((numdays/(1000*60*60*24))+1)/7;
  //alert(today);
  oTR=d.createElement('tr');
  oTB.appendChild(oTR);
  oTB.onmouseout=function(){oStatus.innerHTML=days[sDate.getDay()]+' '+sDy+delim+(sMt+1)+delim+sYr;};
  var dd=firstD;
  for(var j=0;j<7;j++){
    oTH=d.createElement('th');
    oTH.innerHTML=days[dd];
    oTR.appendChild(oTH);
    dd=(dd==6)?0:dd+1;
  }

  for(var i=0;i<numW;i++){
    oTR=d.createElement('tr');
    oTB.appendChild(oTR);
    for(var j=0;j<7;j++){
      oTD=d.createElement('td');
      oTR.appendChild(oTD);
      var xd=actD.getDate();
      oTD.innerHTML=xd;
      oTD.id=actD.valueOf();
      if(today.valueOf()<=actD.valueOf() && periodEnd.valueOf()>=actD.valueOf()){
        oTD.onmouseover=function(){defcol=this.style.backgroundColor; this.style.backgroundColor='#FFFF99'; on_over(this);};
        oTD.onmouseout=function(){this.style.backgroundColor=defcol;}; //'transparent'
        oTD.onclick=function(){on_sel(this);};
      }
      else oTD.style.color='#8D8D8D';
      if(today.valueOf()==actD.valueOf()) {
        oTD.style.color='#cc0000';
        oTD.title=flytoday;
        //oTD.onclick=function(){alert('Contact reservation center!');};
      }
      if(tMt!=actD.getMonth()) oTD.style.backgroundColor='#D4D4D4';
      if(sDate.valueOf()==actD.valueOf()) oTD.style.backgroundColor='#FFFF99';
      if(actD.getDay() == 0) oTD.style.fontWeight='bold';
      actD=new Date(actD.getFullYear(),actD.getMonth(),actD.getDate()+1,0,0,0);
    }
    if(actD>=en) break;
  }
}

function on_sel(obj){
  var cell=new Date(parseInt(obj.id));
  close_cal();
  var dField=cell.getDate().toString();
  if(dField.length==1) dField='0'+dField;
  var mField=(cell.getMonth()+1).toString();
  if(mField.length==1) mField='0'+mField;
  for(var i=0;i<sec_m.options.length;i++) if(sec_m.options[i].value==mField+cell.getFullYear()) {sec_m.options[i].selected=true; break;}
  for(var j=0;j<sec_d.options.length;j++) if(sec_d.options[j].value==dField) {sec_d.options[j].selected=true; break;}

  if(reconcileFn && typeof eval(reconcileFn)=="function")
    eval(reconcileFn+'()')
  else
  if(typeof reconcile_dates=="function")
    reconcile_dates(obj);
}

function on_over(obj) {
  var cell=new Date(parseInt(obj.id));
  oStatus.innerHTML=days[cell.getDay()]+' '+cell.getDate()+delim+(cell.getMonth()+1)+delim+cell.getFullYear();
}