//copyright © Keith Trotter. All rights reserved
function writecal(target,restriction,instanceID,startYear)
{
document.writeln("
");
}
function showcal(cal_event,instanceID,startYear)
{
var d = new Date();
var months=new Array("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec");
ev=cal_event;
scrheight=window.innerHeight||document.body.offsetHeight;
scrwidth=document.body.offsetWidth;
if((Number(ev.clientX)+175)<=Number(scrwidth))
{
tmp="0px";
document.getElementById('cal_div'+instanceID).style.left=tmp;
if(document.getElementById('cal_iframe'+instanceID)!=null) document.getElementById('cal_iframe'+instanceID).style.left=tmp;
}
else
{
tmp="-191px";
document.getElementById('cal_div'+instanceID).style.left=tmp;
if(document.getElementById('cal_iframe'+instanceID)!=null) document.getElementById('cal_iframe'+instanceID).style.left=tmp;
}
if((Number(ev.clientY)+145)<=Number(scrheight))
{
tmp="16px";
document.getElementById('cal_div'+instanceID).style.top=tmp;
if(document.getElementById('cal_iframe'+instanceID)!=null) document.getElementById('cal_iframe'+instanceID).style.top=tmp;
}
else
{
tmp="-145px";
document.getElementById('cal_div'+instanceID).style.top=tmp;
if(document.getElementById('cal_iframe'+instanceID)!=null) document.getElementById('cal_iframe'+instanceID).style.top=tmp;
}
document.getElementById('cal_div'+instanceID).style.display='inline';
if(document.getElementById('cal_iframe'+instanceID)!=null) document.getElementById('cal_iframe'+instanceID).style.display='inline';
if(document.getElementById(document.getElementById('input_target'+instanceID).value).value.match(/^(0[1-9]|1[012])[/](0[1-9]|[12][0-9]|3[01])[/](18|19|20)[0-9]{2}$/))
{
date_parts=document.getElementById(document.getElementById('input_target'+instanceID).value).value.split("/",3);
if(d.getMonth()<9) cm="0"+(d.getMonth()+1);
else cm=d.getMonth();
var user_date=date_parts[2]+"-"+date_parts[0];
var current=d.getFullYear()+"-"+cm;
if(user_datecurrent && document.getElementById('date_restriction'+instanceID).value=='past')
{
document.getElementById('year_val'+instanceID).innerHTML=d.getFullYear();
document.getElementById('month_val'+instanceID).innerHTML=months[d.getMonth()];
document.getElementById('month_num'+instanceID).value=d.getMonth();
}
else
{
document.getElementById('year_val'+instanceID).innerHTML=date_parts[2];
document.getElementById('month_val'+instanceID).innerHTML=months[Number(date_parts[0])-1];
document.getElementById('month_num'+instanceID).value=(Number(date_parts[0])-1);
}
}
else if(startYear.length>0 && document.getElementById(startYear).value.match(/^(0[1-9]|1[012])[/](0[1-9]|[12][0-9]|3[01])[/](18|19|20)[0-9]{2}$/))
{
date_parts=document.getElementById(startYear).value.split("/",3);
if(d.getMonth()<9) cm="0"+(d.getMonth()+1);
else cm=d.getMonth();
var user_date=date_parts[2]+"-"+date_parts[0];
var current=d.getFullYear()+"-"+cm;
if(user_datecurrent && document.getElementById('date_restriction'+instanceID).value=='past')
{
document.getElementById('year_val'+instanceID).innerHTML=d.getFullYear();
document.getElementById('month_val'+instanceID).innerHTML=months[d.getMonth()];
document.getElementById('month_num'+instanceID).value=d.getMonth();
}
else
{
document.getElementById('year_val'+instanceID).innerHTML=date_parts[2];
document.getElementById('month_val'+instanceID).innerHTML=months[Number(date_parts[0])-1];
document.getElementById('month_num'+instanceID).value=(Number(date_parts[0])-1);
}
}
else
{
document.getElementById('year_val'+instanceID).innerHTML=d.getFullYear();
document.getElementById('month_val'+instanceID).innerHTML=months[d.getMonth()];
document.getElementById('month_num'+instanceID).value=d.getMonth();
}
drawdays(document.getElementById('year_val'+instanceID).innerHTML,document.getElementById('month_val'+instanceID).innerHTML,instanceID);
}
function hidecal(instanceID)
{
document.getElementById('cal_div'+instanceID).style.display='none';
if(document.getElementById('cal_iframe'+instanceID)!=null) document.getElementById('cal_iframe'+instanceID).style.display='none';
}
function yeardown(num,instanceID)
{
var d = new Date();
var months=new Array("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec");
cy=document.getElementById('year_val'+instanceID).innerHTML;
if(document.getElementById('date_restriction'+instanceID).value=='future')
{
if(d.getFullYear()<=(Number(cy)-Number(num)))
{
document.getElementById('year_val'+instanceID).innerHTML=Number(cy)-Number(num);
if(d.getFullYear()==(Number(cy)-Number(num)) && d.getMonth()>document.getElementById('month_num'+instanceID).value)
{
document.getElementById('month_num'+instanceID).value=d.getMonth();
document.getElementById('month_val'+instanceID).innerHTML=months[Number(document.getElementById('month_num'+instanceID).value)];
}
}
}
else if((Number(cy)-Number(num))>=1800)
{
document.getElementById('year_val'+instanceID).innerHTML=Number(cy)-Number(num);
}
drawdays(document.getElementById('year_val'+instanceID).innerHTML,document.getElementById('month_val'+instanceID).innerHTML,instanceID);
}
function yearup(num,instanceID)
{
var d = new Date();
var months=new Array("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec");
cy=document.getElementById('year_val'+instanceID).innerHTML;
if(document.getElementById('date_restriction'+instanceID).value=='past')
{
if(d.getFullYear()>=(Number(cy)+Number(num)))
{
document.getElementById('year_val'+instanceID).innerHTML=Number(cy)+Number(num);
if(d.getFullYear()==(Number(cy)+Number(num)) && d.getMonth()=d.getMonth())
{
document.getElementById('month_val'+instanceID).innerHTML=months[Number(mn)-1];
document.getElementById('month_num'+instanceID).value=Number(mn)-Number(1);
}
}
else if(Number(mn)==0 && Number(document.getElementById('year_val'+instanceID).innerHTML)>1800)
{
document.getElementById('month_val'+instanceID).innerHTML="Dec";
document.getElementById('month_num'+instanceID).value="11";
document.getElementById('year_val'+instanceID).innerHTML=Number(document.getElementById('year_val'+instanceID).innerHTML)-1;
}
else if(Number(mn)!=0)
{
document.getElementById('month_val'+instanceID).innerHTML=months[Number(mn)-1];
document.getElementById('month_num'+instanceID).value=Number(mn)-Number(1);
}
drawdays(document.getElementById('year_val'+instanceID).innerHTML,document.getElementById('month_val'+instanceID).innerHTML,instanceID);
}
function drawdays(year,month,instanceID)
{
var months=new Array("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec");
var days_in_month=new Array("31","28","31","30","31","30","31","31","30","31","30","31");
var d = new Date();
mn=document.getElementById('month_num'+instanceID).value;
d.setDate(1);
d.setMonth(Number(mn));
d.setFullYear(Number(year));
if(Number(mn)==1)
{
if(Number(year)%4==0)
{
if(Number(year)%100==0 && Number(year)%400==0)
{
days=29;
}
else if(Number(year)%100==0)
{
days=28;
}
else days=29;
}
else
{
days=28;
}
}
else
{
days=days_in_month[Number(mn)];
}
for(cell=1;cell<=42;cell++)
{
tmp="cal_d"+Number(cell)+instanceID;
document.getElementById(tmp).innerHTML="";
}
var d2 = new Date();
mn=Number(mn)+1;
if(Number(mn)<10) mn="0"+mn;
for(cell=1;cell<=Number(days);cell++)
{
day=cell;
if(Number(day)<10) day="0"+day;
tmp="cal_d"+Number(d.getDay()+cell)+instanceID;
if(document.getElementById('date_restriction'+instanceID).value=='past' &&
d2.getFullYear()==document.getElementById('year_val'+instanceID).innerHTML &&
d2.getMonth()==document.getElementById('month_num'+instanceID).value &&
d2.getDate()cell)
{
document.getElementById(tmp).style.color='gray';
document.getElementById(tmp).innerHTML=cell;
}
else
{
if(Number(cell)<10) a_space=' ';
else a_space='';
document.getElementById(tmp).innerHTML=""+a_space+cell+"";
}
}
}
function populatedate(date,instanceID)
{
document.getElementById(document.getElementById('input_target'+instanceID).value).value=date;
hidecal(instanceID);
}
function cal_mouseover(e)
{
e.style.backgroundColor='#FFEBCD';
}
function cal_mouseout(e)
{
e.style.backgroundColor='white';
}
