// Product title: Gurt Calendar JavaScript
// Product version details: 1.2.0, 03-01-2006 (mm-dd-yyyy)
// Product URL: http://gurtom.com/products/calendars/js
// Contact info: gurt-feedback@gurtom.com (specify product title in the subject)
// 2008-01-25 HK
// 	NEW Time Select Box hinzugefügt
// 	NEW Datumsformat angepasst an lokale Benutzereinstellungen
//		NEW Texte lokalisiert
//		NEW Dragable
// 	NEW callBack Option

var GC_APPEARANCE = {
	'weekdays':  ['Su', 'Mo', 'Tu', 'We', 'Th', 'Fr', 'Sa'], 
	'longmonth' : ['January','February','March','April','May','June','July','August','September','October','November','December'],
	'messages' : {
				'Warning' : 'Warning: the date entered does not meet preset date format',
				'AltPrevYear' : 'to previous year',
				'AltNextYear' : 'to next year',
				'AltPrevMonth' : 'to previous month',
				'AltNextMonth' : 'to next month',
				'Hour' : 'Hour',
				'Min' : 'Min'
	},
	'CalDiv' : 'clsCalDiv',
	'OuterFrame' : 'clsOuterFrame',
	'InnerFrame' : 'clsInnerFrame',
	'TopPartNavpanel' : 'clsTopPartNavpanel',
	'BottomPartNavpanel' : 'clsBottomPartNavpanel',
	'MidRow' : 'clsMidRow',
	'DateGrid':'clsDateGrid',
	'WeekDay':'clsWeekDay',
	'WorkDayCell': 'clsWorkDayCell',
	'HoliDayCell': 'clsHoliDayCell',
	'OtherMonthDayCell': 'clsOtherMonthDayCell',
	'SelectedDayCell': 'clsSelectedDayCell',
	'CurrentMonthDay': 'clsCurrentMonthDay',
	'OtherMonthDay': 'clsOtherMonthDay',
	'SelectedDay': 'clsSelectedDay',
	'InfoTitle':'clsInfoTitle',
	'DataArea':'clsDataArea',
	'PrevYear':'DateTimePicker/prev_year.gif',
	'PrevMonth':'DateTimePicker/prev_month.gif',
	'NextYear':'DateTimePicker/next_year.gif',
	'NextMonth':'DateTimePicker/next_month.gif',
	'IcoCalUnVis': 'DateTimePicker/dpr_unvis.gif',
	'IcoCalVis': 'DateTimePicker/dpr_vis.gif'

};

var agC= [],ogB,oD;

//*****************************************************************************************
function gCalendar(oSettings)
	{
	var _ = this;
	_.nCId = agC.length;
	agC[_.nCId] = _;
	
	if (!ogB) 
		ogB = new _UserAgent();
		
	if (!oD) 
		oD = new _DManager();
		
	_.sNameControl = oSettings.dataArea ? oSettings.dataArea :'dataArea'+_.nCId;
	_.sIcoName = 'icoCls'+_.nCId;
	_.sPosName = 'icoPos'+_.nCId;
	_.sDivName = 'clsDiv'+_.nCId;
	_.sBoxName = 'clsBox'+_.nCId;
	_.sTimName = 'clsTim'+_.nCId;
	_.sTitleName =  'clsTitle'+_.nCId;
	_.sPmiName = 'clsPMI'+_.nCId;
	_.sNmiName = 'clsNMI'+_.nCId;
	_.sPyiName = 'clsPYI'+_.nCId;
	_.sNyiName = 'clsNYI'+_.nCId;
	_.sPmaName = 'clsPMA'+_.nCId;
	_.sNmaName = 'clsNMA'+_.nCId;
	_.sPyaName = 'clsPYA'+_.nCId;
	_.sNyaName = 'clsNYA'+_.nCId;
	_.oChiefDate = new Date();
	_.oChiefDate.setHours(0);
	_.oChiefDate.setMinutes(0);

	_.sChiefFormat = !oSettings.dateFormat ? sDateTimePickerFormat+' h:i' : oSettings.dateFormat;
	_.oApp     = oSettings['appearance'];
	_.callBack = oSettings['callBack'];
	_.iFloat   = oSettings['float'];
	_.sData    = oSettings['data'];
	
	gBuildControl(_);
	}
	

	
//*****************************************************************************************
function dtpKeypress(_, e)
	{
	if(!e)
		e=window.event;

	if(e.keyCode!=13)
		return(true);
		
	eval(_.callBack);
	return(false);
	}
	
//*****************************************************************************************
function gBuildControl(_) 
	{
	var oWbuf = new writer();
	
	oWbuf.into  ('<div style="position:relative; z-index:1;" id=',_.sDivName,'_parent>',
					'<table cellspacing=0 cellpadding=0"><tr>',
					'<td><input type="Text" id="', _.sNameControl+_.nCId , '"  name="' , _.sNameControl , '" value="',_.sData,'" class ="',_.oApp['DataArea'],'" onKeypress="return dtpKeypress(agC['+_.nCId+'], event);"></td>',
					'<td><a href="javascript:gDisplayCalendar(agC[' + _.nCId + ']);" >',
					'<img src="',_.oApp['IcoCalVis'],'" alt="" name="'+ _.sIcoName +'" id="', _.sIcoName ,
					'" onMouseOver="toolTip(\'Calender window open/close\')" width="22" height="22" border="0" onDblClick=""></a></td></tr></table></div>');
					
	document.write(oWbuf.out());
	
	gBuildCalendar(_);
	}
	
//*****************************************************************************************
function gBuildCalendar(_)
	{
	var oWbuf = new writer();
	oWbuf.into(	'<table  width="100%" cellpadding="0" cellspacing="1" border="0" class="',
					_.oApp['OuterFrame'],
					'"><tr><td ><table  width="100%" cellpadding="0" cellspacing="0" border="0" class="',
					_.oApp['InnerFrame'],
					'"  ><tr><td  colspan="3" class="',
					_.oApp['TopPartNavpanel'],
					'"><img src="spacer.gif" width="1 px" height="1 px"></td></tr><tr><td  width="100%"  colspan="3" class="',
					_.oApp['Navpanel'],
					'"><table cellpadding="1" cellspacing="1" border="0" width=100%><tr><td width=1><a href="#" name="',
					_.sPyaName,
					'" id="',_.sPyaName,'"><img src="',
					_.oApp['PrevYear'],
					'" alt="',_.oApp['messages']['AltPrevYear'],
					'" name="',
					_.pyiName,
					'" id="',
					_.pyiName,
					'" width="18" height="21" border="0"></a></td><td width=1><a href="#" name="',
					_.sPmaName,
					'" id="',
					_.sPmaName,
					'"><img src="',
					_.oApp['PrevMonth'],
					'" alt="',
					_.oApp['messages']['AltPrevMonth'],
					'" name="',
					_.sPmiName,
					'" id="',
					_.sPmiName,
					'" width="18" height="21" border="0"></a></td><td style="cursor:pointer;" onSelectStart="return false" ');
					
	if(_.iFloat=='1')
		oWbuf.into( ' onmousedown="DragWindow(agC['+_.nCId+'].oDiv); return false;" ');
		
	oWbuf.into( 'class="',
		
					_.oApp['InfoTitle'],
					'" id="',
					_.sTitleName,
					'" name="',
					_.sTitleName,
					'">');
	
	oWbuf.into(	_.oApp['longmonth'][_.oChiefDate.getMonth()],
					'&nbsp;',
					_.oChiefDate.getFullYear());
					
	oWbuf.into(	'</td><td width=1><a href="#" name="',
					_.sNmaName,
					'" id="',
					_.sNmaName,
					'"><img src="',
					_.oApp['NextMonth'],
					'" alt="',_.oApp['messages']['AltNextMonth'],
					'" name="',
					_.sNmiName,
					'" id="',
					_.sNmiName,
					'" width="18" height="21" border="0"></a></td><td width=1><a href="#" name="',
					_.sNyaName,
					'" id="',
					_.sNyaName,
					'"><img src="',
					_.oApp['NextYear'],
					'" alt="',
					_.oApp['messages']['AltNextYear'],
					'" name="',
					_.sNyiName,
					'" id="',
					_.sNyiName,
					'" width="18" height="21" border="0"></a></td></tr></table></td></tr>',
					'<tr>',
						'<td colspan="3" class="',_.oApp['BottomPartNavpanel'],'"><img src="spacer.gif" width="1 px" height="1 px"></td>',
					'</tr>',
					'<tr class="',_.oApp['MidRow'],'">',
						'<td><img src="spacer.gif"  width="4 px"height="1 px"></td>',
						'<td  align="center" id="',_.sBoxName,'" name="',_.sBoxName,'">',gUnitedGrid(_),'</td>',
						'<td width="4 px"><img src="spacer.gif"  width="4 px" height="1 px"></td>',
					'</tr>',
					'<tr>',
						'<td colspan="3" class="',_.oApp['BottomPartNavpanel'],'"><img src="spacer.gif" width="1 px" height="1 px"></td>',
					'</tr>',
					'<tr class="',_.oApp['MidRow'],'">',
						'<td><img src="spacer.gif"  width="4 px"height="1 px"></td>',
						'<td  align="center" id="',_.sTimName,'" name="',_.sTimName,'">',gTimeGrid(_),'</td>',
						'<td width="4 px"><img src="spacer.gif"  width="4 px" height="1 px"></td>',
					'</tr>',
					'<tr>',
						'<td colspan="3" class="',_.oApp['BottomPartNavpanel'],'"><img src="spacer.gif" width="1 px" height="1 px"></td>',
					'</tr>',
					'</table></td ></tr></table>');
	
	
	_.oDiv=document.createElement("div");
	_.oDiv.setAttribute('id', _.sDivName);
	_.oDiv.style.position='absolute';
	_.oDiv.style.zIndex=100;
	_.oDiv.style.width=186;
	_.oDiv.style.visibility='hidden';
	_.oDiv.innerHTML=oWbuf.out();
	_.oDiv.appended_=false;
/*		
	if(ogB.ie6)
		{
		oWbuf="";
		oWbuf.into(	'<iframe id="IE6bug',_.sDivName, '" src="spacer.gif"  name="IE6bug', _.sDivName,
						'" style="position: absolute; left:0; top:0; width:0; height:0; visibility:hidden; filter:alpha(opacity=0); z-index: ' ,
						_.nCId, '"></iframe>');       
		document.write(oWbuf.out());
		}
*/		
	}
	
//*****************************************************************************************
function gResetPoition(_, objDiv)
	{
	var objRef=document.getElementById(_.sDivName+'_parent');
	objDiv.style.left=getLeft(objRef);
	objDiv.style.top=getTop(objRef)+23;
	}
	
//*****************************************************************************************
function gDateReset(oInDate)
	{
	var oTmpDate = oInDate ? new Date(oInDate) : new Date();
	oTmpDate.setHours(0);oTmpDate.setMinutes(0);oTmpDate.setSeconds(0);oTmpDate.setMilliseconds(0);
	return oTmpDate;
	}
	
//*****************************************************************************************
function gDateType(c,oInDate)
	{
	var nResType = 1,oTmpDate = new Date(oInDate);
	oTmpDate = gDateReset(oTmpDate);
	var oChiefDateTmp = c.oChiefDate;
	
	if (gDateReset(oChiefDateTmp).valueOf() == oTmpDate.valueOf()) 
		nResType |= 2;
		
	if (oTmpDate.getMonth() != oChiefDateTmp.getMonth() || oTmpDate.getFullYear() != oChiefDateTmp.getFullYear())	
		nResType |= 8;
		
	if (oTmpDate.getDay() == 0 || oTmpDate.getDay() == 6)	
		nResType |= 4;
		
	return nResType;
	}
	
//*****************************************************************************************
function gDisplayCalendar(_) 
	{

	if(!_.oDiv.appended_)
		{
		var body = document.getElementsByTagName('BODY')[0];
		body.appendChild(_.oDiv);
		
		gSetControl(_);
		gUpdateCalendarControl(_);
		
		_.oDiv.appended_=true;
		}
	
	var sVis = String(_.oDiv.style.visibility).toLowerCase();
	
	if (sVis == 'visible' || sVis == 'show') 
		{
		_.oDiv.style.visibility = 'hidden';
//		if(ogB.ie6) {_.oDiv2.style.visibility = 'hidden';}
		_.oIco.src = _.oApp['IcoCalVis'];
		
		_.oDivParent.style.zIndex=1;
		}
	else
		{
		_.oDivParent.style.zIndex=2;
		
		if(gVerifyDataArea(_))	
			gUpdateCalendarData(_);
		
		gResetPoition(_, _.oDiv);
		
		_.oDiv.style.visibility = 'visible';
/*		if(ogB.ie6) 
			{
			_.oDiv2.style.width = _.oDiv.offsetWidth;
			_.oDiv2.style.height  = _.oDiv.offsetHeight;
			_.oDiv2.style.visibility = 'visible';
			}*/
			
		_.oIco.src = _.oApp['IcoCalUnVis'];

		}
	}
	
//*****************************************************************************************
function gDoNothing()
	{
	return(false);
	}
	
//*****************************************************************************************
function gUserClickHandler(_, inDa, typeClick)
	{
	var tmpDa = inDa ? new Date(inDa) : new Date(_.oChiefDate); 
	_.oChiefDate = new Date(tmpDa);
	_.oDataArea.value = oD.GenerateDate(_.oChiefDate,_.sChiefFormat);
		
	gUpdateCalendarData(_);
	
	if(!typeClick || _.iFloat=='1')
		eval(_.callBack);
	}
	
//*****************************************************************************************
function gHourClickHandler(_,inH)
	{
	_.oChiefDate.setHours(inH);
	_.oDataArea.value = oD.GenerateDate(_.oChiefDate,_.sChiefFormat);
	gUpdateCalendarData(_);
	eval(_.callBack);
	}
	
//*****************************************************************************************
function gMinuteClickHandler(_,inM)
	{
	_.oChiefDate.setMinutes(inM);
	_.oDataArea.value = oD.GenerateDate(_.oChiefDate,_.sChiefFormat);
	gUpdateCalendarData(_);
	eval(_.callBack);
	}
	
//*****************************************************************************************
function gUpdateCalendarData(_)
	{
	gUpdateCalendarControl(_);
	
	var sTitle='';
	
	sTitle += _.oApp['longmonth'][_.oChiefDate.getMonth()]+'&nbsp;'+_.oChiefDate.getFullYear();
	
	_.oInfoTitle.innerHTML = sTitle;
	_.oUnitedGrid.innerHTML = '';
	_.oUnitedGrid.innerHTML =  gUnitedGrid(_);
	_.oTimeGrid.innerHTML =  gTimeGrid(_);
	}
	
//*****************************************************************************************
function gSetControl(_)
	{
	var oTmpDate;
	_.oDiv = gObja(_,_.sDivName);
	
	if(ogB.ie6) 
		_.oDiv2 = gObja(_,'IE6bug'+_.sDivName);
		
	_.oIco = gObja(_,_.sIcoName);
	_.oPos  = gObja(_,_.sNameControl+_.nCId);
	_.oDataArea = gObja(_,_.sNameControl+_.nCId);
	_.oUnitedGrid = gObja(_,_.sBoxName);
	_.oTimeGrid = gObja(_,_.sTimName);
	_.oInfoTitle = gObja(_,_.sTitleName);
	_.oDivParent = gObja(_,_.sDivName+'_parent');
	_.oPMI = gObja(_,_.sPmiName);
	_.oNMI = gObja(_,_.sNmiName);
	_.oPYI = gObja(_,_.pyiName);
	_.oNYI = gObja(_,_.sNyiName);
	_.oPMA = gObja(_,_.sPmaName);
	_.oNMA = gObja(_,_.sNmaName);
	_.oPYA = gObja(_,_.sPyaName);
	_.oNYA = gObja(_,_.sNyaName);
	}
	
//*****************************************************************************************
function gShiftDate (oInDate, sShiftYear, sShiftMonth ,sShiftHour,sShiftMinute,sShiftSecond) 
	{
	var oTmpDate = new Date(oInDate);
	
	if (sShiftYear) 
		oTmpDate.setFullYear(oTmpDate.getFullYear() + sShiftYear);
		
	if (sShiftMonth) 
		{
		oTmpDate.setMonth(oTmpDate.getMonth() + sShiftMonth);
		}
		
	if (sShiftHour) 
		{
		oTmpDate.setHours(oTmpDate.getHours() + sShiftHour);
		}
		
	if (sShiftMinute) 
		{
		oTmpDate.setMinutes(oTmpDate.getMinutes() + sShiftMinute);
		}
		
	if (sShiftSecond) 
		{
		oTmpDate.setSeconds(oTmpDate.getSeconds() + sShiftSecond);
		}
		
	if(!(sShiftHour||sShiftMinute||sShiftSecond)) 
		{
		if (oTmpDate.getDate() != oInDate.getDate()) 
			{
			oTmpDate.setDate(0);
			}
		}
	
	return oTmpDate.valueOf();
	}
	
//*****************************************************************************************
function gUpdateCalendarControl(_)
	{
	_.oPYA.href = "javascript:  gUserClickHandler(agC["+_.nCId+"],"+gShiftDate (_.oChiefDate,-1)+",2);";
	_.oNYA.href = "javascript:  gUserClickHandler(agC["+_.nCId+"],"+gShiftDate (_.oChiefDate,1)+",2);";
	_.oPMA.href = "javascript: gUserClickHandler(agC["+_.nCId+"],"+gShiftDate (_.oChiefDate,null,-1)+",1);";
	_.oNMA.href = "javascript: gUserClickHandler(agC["+_.nCId+"],"+gShiftDate (_.oChiefDate,null,1)+",1);";
	}
	
//*****************************************************************************************
function gVerifyDataArea(_)
	{
	if (_.oDataArea.value)	
		{
		oTmpDate = oD.ParseDate(_.oDataArea.value+'',_.sChiefFormat);
		
		if(!oTmpDate) 
			{
//			alert(_.oApp['messages']['Warning']);
			oTmpDate=new Date();
			oTmpDate.setHours(0);
			oTmpDate.setMinutes(0);
			};

		if(oTmpDate.valueOf() != _.oChiefDate.valueOf()) 
			{
			_.oChiefDate = new Date(oTmpDate);
			return true;
			}
		else  
			{
			_.oDataArea.value = oD.GenerateDate(_.oChiefDate,_.sChiefFormat);
			return false;
			}
		}
	else return false;
	}
	
//*****************************************************************************************
function gDayTitle (o) 
	{
	var oWbuf = new writer();
	oWbuf.into('<tr  class="',o.oApp['WeekDay'],'">');
	
	for (var nWD = 0; nWD < 7; nWD++) 
		oWbuf.into('<td>',o.oApp.weekdays[(nWD+1)%7],'</td>');
		
	oWbuf.into('</tr>');
	return(oWbuf.out());
	}
	
//*****************************************************************************************
function gDayGrid(a)
	{
	var oWbuf = new writer(),oFDay = new Date(a.oChiefDate);
	oFDay.setDate(1);
	oFDay.setDate(1 - (6 + oFDay.getDay()) % 7);
	var oTDay = new Date(oFDay);
	
	while (oTDay.getMonth() == a.oChiefDate.getMonth() || oTDay.getMonth() == oFDay.getMonth()) 
		{
		oWbuf.into('<tr>');
		
		for (var nWD = 0; nWD < 7; nWD++) 
			{
			oWbuf.into(gDayCell(a,oTDay));
			oTDay.setDate(oTDay.getDate() + 1);
			}
	
		oWbuf.into('</tr>\n');
		}
		
	return(oWbuf.out());
	}
	
//*****************************************************************************************
function gUnitedGrid(_)
	{
	var oWbuf = new writer();
	oWbuf.into('<table cellpadding="2"  cellspacing="1" border="0" width="100%"   class="',_.oApp['DateGrid'],'">');
	oWbuf.into(gDayTitle(_));
	oWbuf.into(gDayGrid(_));
	oWbuf.into('</table>');
	return(oWbuf.out());
	}

//*****************************************************************************************
function gTimeGrid(_)
	{
	var oWbuf = new writer();
	oWbuf.into('<table cellpadding="2"  cellspacing="1" border="0" width="100%" class="',_.oApp['DateGrid'],'">');

	oWbuf.into('<tr  class="',_.oApp['WeekDay'],'">');
	oWbuf.into('<td colspan=6>',_.oApp['messages']['Hour'],'</td>');
	oWbuf.into('<td >',_.oApp['messages']['Min'],'</td>');
	oWbuf.into('</tr>');

	var nH=0, nM=0;
	for(var nL=0; nL<4; nL++)
		{
		oWbuf.into('<tr>');
				
		for(var nI=0; nI<6; nI++, nH++)
			oWbuf.into(gHourCell(_, nH));
		
		oWbuf.into(gMinuteCell(_, nM));
		nM+=15;
		
		oWbuf.into('</tr>');
		}
	
	oWbuf.into('</table>');
	return(oWbuf.out());
	}
	
//*****************************************************************************************
function _UserAgent() 
	{
	var _ = this,br = navigator.appName,v = _.version = navigator.appVersion,ua=_.uas = navigator.userAgent.toLowerCase(),re_num = /opera/;
	_.op = re_num.exec(ua)?true:false;
	_.ie = (br == "Microsoft Internet Explorer");
	
	if(_.op) 
		{
		_.ie = false;
		}
		
	_.v = parseInt(v);
	
	if (_.ie) 
		{
		_.ie4 = _.ie5 = _.ie55 = _.ie6 = false;
		if (v.indexOf('MSIE 6') > 0) 
			{
			_.ie6 = true; 
			_.v = 6;
			}
		}
		
	_.win32 = ua.indexOf("win")>-1;
	_.mac = ua.indexOf("mac")>-1;
	}
	
//*****************************************************************************************
function dmMakeWorkTemplate(inFormat)
	{
	var _=this,sCh,nKey=0,aTmp=[],aDel=["\\\\","\\/","\\.","\\+","\\*","\\?","\\$","\\^","\\|","\\:"];
	
	for(nI = 0; nI < inFormat.length; nI ++)
		{
		sCh = inFormat.substr(nI,1);
		
		if(_.dmFormatChar.indexOf(sCh) != -1 && sCh != '')
			{
			aTmp[nKey]=sCh;
			_.dmTmpFormat[nKey++]=sCh;
			}
		}

	nKey=1;
	for(nI in aDel) 
		{
		inFormat=inFormat.replace(eval("/"+aDel[nI]+"/g"),aDel[nI]);
		}
		
	for(nI=0;nI<aTmp.length;nI++)
		{
		re=new RegExp(aTmp[nI]);
		inFormat=inFormat.replace(re,_.dmRegFormatChar[aTmp[nI]])
		}
		
	return new RegExp("^"+inFormat.replace(/\s+/g,"\\s+")+"$");
	}
	
//*****************************************************************************************
function dmGenerateDate(inData,inFormat)
	{
	var _=this,nKeyCh,nI=0,sTr='',sTo='',dt_d=new Date(inData);
	
	do
		{
		nKeyCh = inFormat.substr(nI,1);
		
		if(_.dmFormatChar.indexOf(nKeyCh)!=-1&&nKeyCh!='')
			{
			if(typeof(dt_d[_.dmCallChar[nKeyCh][1]])!='function')	
				sTo=new String(_.dmCallChar[nKeyCh][1](dt_d));
			else 
				sTo=new String(dt_d[_.dmCallChar[nKeyCh][1]]());
				
			sTr+=sTo
			}
		else 
			sTr+=nKeyCh;
			
		nI++
		} 
	while (nI < inFormat.length)
	
	return sTr;
	}
	
//*****************************************************************************************
function dmParseDate(oInDate,inFormat)
	{ 
	var _=this,aOut = [], nI, nK = 1;
	var workTemplate = _.MakeWorkTemplate(inFormat);
	var tmpData= _.DateReset();
	var nI,flag_date = false,oDate=null;
	var tmpData = new Date(0,0,1),chKey,oRe = workTemplate.exec(oInDate);
	
	if (!oRe || typeof(oRe) != 'object') 
		{
		return null;
		}
		
	for (nI in _.dmTmpFormat) 
		{
		aOut[nI] = [oRe[nK++], _.dmTmpFormat[nI]]
		}
		
	oAdate = aOut;
	
	for(nI in oAdate)
		{
		if(_.dmSignFormatChar.indexOf(oAdate[nI][1])!=-1)
			{
			chKey=oAdate[nI][1];
			var oTmp=_.dmCallChar[oAdate[nI][1]][2](oAdate[nI][0]);
			
			if(chKey == 'd') 
				{ 
				chDate = chKey; 
				oDate = oTmp;
				}
				
			tmpData[_.dmCallChar[chKey][0]](oTmp);
			
			if(oDate) 
				tmpData[_.dmCallChar[chDate][0]](oDate);
			}
		}
		
	return tmpData;
	}

//*****************************************************************************************
function gDayCell(oB,oInDate)
	{
	var oTDay = new Date (oInDate),nTD = gDateType(oB,oTDay),stTName,sLink,sCell;
	
	if(nTD&2) 
		stTName = 'SelectedDay';
	else 
		if(nTD&8) 
			stTName = 'OtherMonthDay';
		else 
			stTName = 'CurrentMonthDay';
			
	sLink = 'javascript: gUserClickHandler(agC['+oB.nCId+'],'+oInDate.valueOf()+');';
	sCell = '<a href="'+sLink+'" class="'+oB.oApp[stTName]+'">' + oInDate.getDate() + '</a>';
	
	if(nTD&2) 		stTName = 'SelectedDay';
	else if(nTD&4) stTName = 'HoliDay';
	else if(nTD&8) stTName = 'OtherMonthDay';
	else 				stTName = 'WorkDay';
	
	sCell = '<td class="'+oB.oApp[stTName+'Cell']+'" align="center" onClick="gUserClickHandler(agC['+oB.nCId+'],'+oInDate.valueOf()+')">' + sCell + '</td>';
	return sCell;
	}
	
//*****************************************************************************************
function gHourCell(oB, nH)
	{
	if(oB.oChiefDate.getHours()==nH)
		stTName = 'SelectedDay';
	else
		stTName = 'CurrentMonthDay';
		
	sLink = 'javascript: gHourClickHandler(agC['+oB.nCId+'],'+nH+');';
	sCell = '<a href="'+sLink+'" class="'+oB.oApp[stTName]+'">' + nH + '</a>';

	if(oB.oChiefDate.getHours()==nH)
		stTName = 'SelectedDay';
	else
		stTName = 'WorkDay';	
			
	sCell = '<td class="'+oB.oApp[stTName+'Cell']+'" align="center" onClick="gHourClickHandler(agC['+oB.nCId+'],'+nH+');">' + sCell + '</td>';
	return sCell;
	}
	
//*****************************************************************************************
function gMinuteCell(oB, nM)
	{
	if(oB.oChiefDate.getMinutes()==nM)
		stTName = 'SelectedDay';
	else
		stTName = 'CurrentMonthDay';
	
	sLink = 'javascript: gMinuteClickHandler(agC['+oB.nCId+'],'+nM+');';
	sCell = '<a href="'+sLink+'" class="'+oB.oApp[stTName]+'">' + nM + '</a>';
	
	if(oB.oChiefDate.getMinutes()==nM)
		stTName = 'SelectedDay';
	else
		stTName = 'HoliDay';
		
	sCell = '<td class="'+oB.oApp[stTName+'Cell']+'" align="center" onClick="gMinuteClickHandler(agC['+oB.nCId+'],'+nM+')">' + sCell + '</td>';
	return sCell;
	}
	
//*****************************************************************************************
function _DManager()
	{
	var _=this;
	_.dmFormatChar='dmYhis';
	_.dmSignFormatChar='dmYhis';
	_.dmRegFormatChar = {'d' : "([0-9]{0,2})",'m' : "([0-9]{0,2})",'Y' : "([0-9]{4})", 'h' : "([0-9]{0,2})", 'i' : "([0-9]{0,2})", 's' : "([0-9]{0,2})"};
	
	_.dmCallChar={	'd':['setDate', function(_v,_m){_v=_v.getDate();if(_v<10)return('0'+_v);else return _v},function(_v){return _v*1}],
	 					'm':['setMonth',function(_v){_v=_v.getMonth()+1;if(_v<10)return('0'+_v);else return _v},function(_v){return(_v*1-1)}],
	 					'Y':['setFullYear','getFullYear',function(_v){return _v*1}],
	 					'h':['setHours',function(_v){_v=_v.getHours();if(_v<10)return('0'+_v);else return _v},function(_v){return(_v*1)}],
	 					'i':['setMinutes',function(_v){_v=_v.getMinutes();if(_v<10)return('0'+_v);else return _v},function(_v){return(_v*1)}],
	 					's':['setSeconds',function(_v){_v=_v.getSeconds();if(_v<10)return('0'+_v);else return _v},function(_v){return(_v*1)}]      };
	
	_.dmTmpFormat =[]; 	
	_.DateReset = gDateReset;
	_.MakeWorkTemplate = dmMakeWorkTemplate;
	_.GenerateDate = dmGenerateDate;
	_.ParseDate = dmParseDate;
	}
	
//*****************************************************************************************
function gGlobalPosition (_,displace) 
	{
	var nPos = 0, tPos = _.oPos;
	
	while (tPos)	
		{
		nPos += tPos["offset" + displace];
		tPos = tPos.offsetParent;
		}
		
	return nPos;
	}
	
//*****************************************************************************************
function gObja (_,_id) 
	{
	if (document.images && document.images[_id]) return document.images[_id];
	else if (_.formName &&  document.forms[_.formName].elements[_id])  return document.forms[_.formName].elements[_id];
	else if (document.all && document.all[_id])  return document.all[_id];
	else if (document.getElementById)  return document.getElementById(_id);
	else return null;
	}
	
//*****************************************************************************************
function writer() 
	{
	var _ = this;
	_.bufArray = [];
	
	_.into = function () 
		{
		var n = arguments.length;
	
		for (var nI = 0; nI < n; nI++)
		_.bufArray[_.bufArray.length] = arguments[nI];
		};
	
	_.out = function () 
		{
		return _.bufArray.join('');
		};
	}