//---------------------------------------------------------------------------
//
//  dhtmlcal.js 
//  a component of ScriptCalendar 
//  (c)2000 Dan Shipe 
//  www.scriptcalendar.com
//  webmaster@scriptcalendar.com
//
//    Date     By   Ver   Description
// ----------  ---  ----  ---------------------------------------------------
// 09-01-2000  DS   1.00  Initial creation
// 04-10-2001  DS   1.01  Now supports Netscape 6, Gekko
// 05-30-2001  DS   1.02  Added cookies to track month & year if user "refreshs"
// 07-06-2001  DS   1.03  Fixed bug to set main table border color to mclrBorder
// 07-09-2001  DS   1.04  Added DHTMLCal_PopUp to support event pop-up windows
// 07-10-2001  DS   1.05  Added support to place text in dead cells
// 08-23-2001  DS   1.06  Added inidividual date cell custom colors
// 08-30-2001  DS   1.07  Added booleans to hide Month and Year drop-downs
// 09-04-2001  DS   1.08  Supports "every month" and "every year" dates
// 09-11-2001  DS   1.09  A week may now begin Sunday or Monday
// 11-16-2001  DS   1.10  Added independent active weekend color
// 01-03-2001  DS   1.11  Supports relatively positioned DHTML elements in NS 4.75
// 03-03-2002  DS   2.00  Object Oriented Design
// 04-10-2002  DS   2.01  Fix for floating year and null weekday
// 06-24-2002  DS   2.02  Fix for Monday weeks and first day is Sunday
// 11-09-2002  DS   2.03  Supports Netscape 7
// 12-01-2002  DS   2.04  modifications for slots & financial calendar
// 02-01-2003  DS   2.05  bug fixes 
// 03-04-2003  DS   2.06  bug fixes (trackSelectedDate and dead dates)
// 01-01-2004  DS   3.00  XML support for MSIE browsers

var maEvents = new Array();
var mobjXml;
var msKey = "k1!2db/84$j4ertw!nloezkt4ieoxgwt5nloh5locslt9xp3.lz9";
var mnOmed;

   function Calendar (name) 
      {var dteNow = new Date();
      this.r = "\r\n";
      this.q = "\"";
      this.name = name;
      this.initialMonth = dteNow.getMonth();
      this.initialYear = dteNow.getFullYear();
      this.slotCount = 1;
      this.xmlFile = "";
      this.cellWidth  = 100;
      this.cellHeight = 90;
      this.borderWidth = 1;
      this.beginMonday = false;
      this.displayDeadText = false;
      this.displayDeadNumber = false;
      this.displayMonthCombo = true;
      this.displayYearCombo = true;
      this.todayText = null;
      this.bottomHeading= false;
      this.dateBreak = true;
      this.trackSelectedDate= true;
      this.clrTable= "#fffffe";
      this.clrDead= "#c0c0c0";
      this.clrNow= "#ffffc0";
      this.clrPast= "#e0e0e0";
      this.clrFuture= "#ffffff";
      this.clrWeekend= null;
      this.clrBorder= "#BDB76B"    /*  This is the Head border */;
      this.clrHdrBg   = "#666633"   /* This is the calendar Head background */;
      this.clrHdrText= "#ffffff";
      this.clrCellText= "#800000";
      
      var szFont = "Arial, Helvetica, Sans Serif";
      this.hdrFace= szFont;
      this.hdrSize= "2";
      this.numFace= szFont;
      this.numSize= "3";
      this.cellFace= szFont;
      this.cellSize= "1";
      
      mnOmed=31;
      this.monthStartDate = new Array(1,1,1,1,1,1,1,1,1,1,1,1);
      this.longDays = new Array( "Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat" );
      this.daysPerMonth = new Array( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );
      this.longMonths   = new Array( "January", "February", "March", "April", "May", "June", "July", "August","September", "October", "November", "December" );
      this.createDateSelect = dcCreateDateSelect;
      this.fillMonth = dcFillMonth;
      this.fillYear = dcFillYear;
      this.chkLeapYear = dcChkLeapYear;
      this.createCalendar = dcCreateCalendar;
      this.calendarHTML = dcCalendarHTML;
      this.chkColor = dcChkColor;
      this.getDay = dcGetDay;
      this.isWeekday = dcIsWeekday;
      this.readDate = dcReadDate;
      this.getFormElement = dcGetFormElement;
      this.chkForEvent = evChkForEvent;
      this.chkForEvent2 = evChkForEvent2;
      this.month = dcMonth;this.year = dcYear;};
      
   function dcCreateDateSelect() 
      {var szHTML;var szTag;
      var szHide;var szOutput = "";
      var dteCurr = new Date();
      var cy = dteCurr.getFullYear();
      var m = this.readDate("m");
      var y = this.readDate("y");
         
         if (this.xmlFile.length!=0) 
            {mobjXml = new ActiveXObject("Microsoft.XMLDOM");
            mobjXml.async = false;mobjXml.load(this.xmlFile);};
            
         if (this.displayMonthCombo==false&& this.displayYearCombo==false) return null;
            szHTML = "<form name='frmCal' id='frmCal' method='post' action=''>" + this.r;
            szOutput = szOutput + szHTML;
            szHTML = "<table"+ " align=center"+ " width='" + ((this.cellWidth) * 7) + "'"+ " border='1'"+ " bordercolor='" + this.clrBorder + "'"+ " bordercolordark='" + this.clrBorder + "'"+ " bordercolorlight='" + this.clrBorder + "'"+ " cellspacing=0"+ " >" + this.r;
            szOutput = szOutput + szHTML;
            szHTML = "<tr><td"+ " align=center"+ " bgcolor=" + this.clrHdrBg+ " >" + this.r + this.r;
            szOutput = szOutput + szHTML;
            szTemp = " cboYear.options[frmCal.cboYear.selectedIndex].value";
         
         if (this.displayYearCombo==false) szTemp = y.toString();
            szHTML = "<select name='cboMonth' id='cboMonth'"+ " onchange='dcUpdate(" + this.name + ", " + this.r+ " cboMonth.options[frmCal.cboMonth.selectedIndex].value"+ "," + this.r+ szTemp+ ");'>" + this.r+ this.fillMonth(m)+ "</select>" + this.r + this.r;
            
         if (this.displayMonthCombo==true) szOutput = szOutput + szHTML;
            szTemp = " cboMonth.options[frmCal.cboMonth.selectedIndex].value";
            
         if (this.displayMonthCombo==false) szTemp = m.toString();
            szHTML = "<select name='cboYear' id='cboYear'"+ " onchange='dcUpdate(" + this.name + ", " + this.r+ szTemp+ "," + this.r+ " cboYear.options[frmCal.cboYear.selectedIndex].value"+ ");'>" + this.r+ this.fillYear(y, cy)+ "</select>" + this.r + this.r;
            
         if (this.displayYearCombo==true) szOutput = szOutput + "&nbsp;" + szHTML;
            szHTML = "</td></tr>" + this.r;szOutput = szOutput + szHTML;
            szOutput = szOutput + "</table></form>" + this.r + this.r;
            document.writeln(szOutput);return szOutput;};
         
   function dcCreateCalendar(m, y) 
      {var obj;
      var szHTML;
      var bRedraw = true;
      var szBrowName = dcBrowserName();
      var szBrowVer = dcBrowserVer();
      
         if (m==null && y==null) 
            {bRedraw = false;
            if (this.trackSelectedDate) {m = this.readDate("m");
               y = this.readDate("y");} 
            else {m = this.initialMonth;y = this.initialYear;};};
            
      var cboMonth = this.getFormElement("frmCal", "cboMonth");
      var cboYear = this.getFormElement("frmCal", "cboYear");
      
         if (cboMonth!=null) cboMonth.selectedIndex = m;
         if (cboYear!=null) cboYear.value = y;
         
         dcSaveDate(m, y);
         szHTML = this.calendarHTML( m, y );
         
         if ( szBrowName=="IE" ) 
            {if (bRedraw==true) {obj = dcGetObj("MSIE");obj.innerHTML = szHTML;} 
            else {document.writeln(szHTML);};} else if ( szBrowName=="NS" ) 
            
            {if ( szBrowVer<"5" ) 
               {if (bRedraw==true) {document.NSALIGN.document.NSLAYER.document.write(szHTML);
               document.NSALIGN.document.NSLAYER.document.close();} 
               else {document.NSALIGN.document.NSLAYER.document.writeln(" ");
               
            document.NSALIGN.document.NSLAYER.document.writeln(szHTML);
            document.NSALIGN.document.NSLAYER.document.writeln(" ");};} 
            else {if (bRedraw==true) {obj = dcGetObj("MSIE");
               dcSetInnerHTML(obj, szHTML);} 
               else {document.writeln(szHTML);};};};};
               
   function dcChkColor( nRow, nCol, dteCal, dteNow, m ) 
      {var currD = dteCal.getDate() ;
      var currM = this.month(dteCal);
      var currY = this.year(dteCal);
      var dteNowSansTime = new Date(dteNow.getFullYear(), dteNow.getMonth(), dteNow.getDate());
      
         if ( currD > nCol + (nRow * 7) + this.monthStartDate[m] || currM != m ) {return this.clrDead;};
         if (this.clrWeekend!=null && this.isWeekday(dteCal)==false) return this.clrWeekend;
         if (currY < this.year(dteNow) ) return this.clrPast;
         if (currY > this.year(dteNow) ) return this.clrFuture;
         if (currM < this.month(dteNow) ) return this.clrPast;
         if (currM > this.month(dteNow) ) return this.clrFuture;
         if (dteCal < dteNowSansTime) return this.clrPast;
         if (dteCal > dteNowSansTime) return this.clrFuture;return this.clrNow;};
         
   function dcCalendarHTML( m, y ) 
      {var chkM;var chkD;
      var chkY;
      var szBackcolor;
      var szEvText;
      var szEvForecolor;
      var szEvBackcolor;
      var szSaveColor;
      var nEvSlot;
      var nSlot;
      var szSlotClass;
      var szOutput;
      var szCell;
      var szNum;
      var szText;
      var szTag;
      var nRow;
      var nCol;
      var nDeadDay;
      var nWidth;
      var bGoodDate=false;
      var dteNow = new Date();
      var dteCal = new Date(y, m, 1);
      var dteMonth = new Date(y, m, 1);
      var dteDead;dteNow = new Date( dteNow.getFullYear(), dteNow.getMonth(), dteNow.getDate());
      var szQueryString;
      var szChar;
      var szURL;
      var szRight;
      var szLeft;
      var i;
      var szHTML = this.clrBorder + " " + this.borderWidth + "px solid;";
      var szBoxTR = "style='BORDER-TOP: " + szHTML + " BORDER-RIGHT: " + szHTML + " '";
      var szBoxTRL = "style='BORDER-TOP: " + szHTML + " BORDER-RIGHT: " + szHTML + " BORDER-LEFT: " + szHTML + " '";
      var szBoxR = "style='BORDER-RIGHT: " + szHTML + " '";var szBoxRL = "style='BORDER-RIGHT: " + szHTML + " BORDER-LEFT: " + szHTML + " '";
      var szBoxTBR = "style='BORDER-TOP: " + szHTML + " BORDER-BOTTOM: " + szHTML + " BORDER-RIGHT: " + szHTML + " '";
      var szBoxTBRL = "style='BORDER-TOP: " + szHTML + " BORDER-BOTTOM: " + szHTML + " BORDER-RIGHT: " + szHTML + " BORDER-LEFT: " + szHTML + " '";
      var szBoxBR = "style='BORDER-BOTTOM: " + szHTML + " BORDER-RIGHT: " + szHTML + " '";
      var szBoxBRL = "style='BORDER-BOTTOM: " + szHTML + " BORDER-RIGHT: " + szHTML + " BORDER-LEFT: " + szHTML + " '";szOutput = "";
      
      this.chkLeapYear(m, y);
      dteCal.setDate( dteCal.getDate() + this.monthStartDate[m] -1 );
      nDeadDay = 1 - this.getDay(dteCal);dteCal.setDate( dteCal.getDate() - this.getDay(dteCal) );
      
      if ( dteCal.getDate() == 2 ) dteCal.setDate( dteCal.getDate() - 7 );
      nWidth = this.cellWidth;if (dcBrowserName=="NS") nWidth = nWidth - 15;
      
      szHTML = "<table align=center"+ " bgColor=" + this.clrTable+ " border='0'"+ " bordercolor='" + this.clrBorder + "'"+ " bordercolordark='" + this.clrBorder + "'"+ " bordercolorlight='" + this.clrBorder + "'"+ " width='" + (this.cellWidth * 7) + "'"+ " cellspacing=0"+ " cellpadding=3"+ " >";
      szOutput = szOutput + szHTML + this.r + this.r;
      szOutput = szOutput + "<tr>" + this.r;
      
      for (nCol=0; nCol<7; nCol++) 
         {szHTML = "<td align=center"+ " width=" + nWidth+ " bgcolor=" + this.clrHdrBg+ " nowrap "+ " >"+ dcFontStr( this.hdrFace, this.hdrSize, this.clrHdrText )+ " <b><center>" + this.longDays[nCol]+ " </center></b></font></td>";
         szOutput = szOutput + szHTML + this.r;}
         
      szOutput = szOutput + "</tr>" + this.r + this.r;
      
      for (nRow=0; nRow<6; nRow++) 
         {for (nSlot=1; nSlot<=parseInt(this.slotCount); nSlot++) 
            {szOutput = szOutput + "<tr>";for (nCol=0; nCol<7; nCol++) 
               {szSlotClass = szBoxR;if (nCol==0) szSlotClass = szBoxRL;if (nSlot==1) 
                  {szSlotClass = szBoxTR;if (nCol==0) szSlotClass = szBoxTRL;};
                  
                  if (nSlot==this.slotCount && nRow==5) 
                     {if (this.slotCount>1) 
                        {szSlotClass = szBoxBR;
                        if (nCol==0) szSlotClass = szBoxBRL;} 
                     else {szSlotClass = szBoxTBR;
                     if (nCol==0) szSlotClass = szBoxTBRL;};};
               
               ev = null;
               szNum = dteCal.getDate();szBackcolor = this.chkColor( nRow, nCol, dteCal, dteNow, m );
               ev = this.chkForEvent2(dteCal, nSlot);if (szBackcolor == this.clrDead) 
                  
                  {if (this.displayDeadText==false) {if (this.displayDeadNumber==false) szNum="&nbsp;";
                  ev = this.chkForEvent(m, nDeadDay, parseInt(y), nSlot);
                  
                  if (m != this.month(dteCal) ) {ev = this.chkForEvent(m, nDeadDay, parseInt(y), nSlot);};};};
                  
         szEvText = "&nbsp;";szEvForecolor = this.clrCellText;
         szEvBackcolor = szBackcolor;nEvSlot = -1;
            if (ev!=null) 
               {if (dteCal.getDate()<=mnOmed /*|| decode(msKey)==document.location*/) 
                  {if (ev.text!="" && ev.text!=null) szEvText= ev.text;
                  if (ev.forecolor!="" && ev.forecolor!=null) szEvForecolor = ev.forecolor;
                  if (ev.backcolor!="" && ev.backcolor!=null) szEvBackcolor = ev.backcolor;
                  if (ev.slot!="" && ev.slot!=null) nEvSlot = ev.slot;};};
                  
            if (dteCal.getDate()==dteNow.getDate() && dteCal.getMonth()==dteNow.getMonth() && dteCal.getMonth()==m) 
               {if (szEvText=="&nbsp;" && nSlot==1) 
                  {if (this.todayText!="" && this.todayText!=null) 
                  {szEvText = this.todayText;if (ev!=null) ev.popuplink=null;};};};
                  
         if (ev!=null) 
            {if (ev.popuplink!=null && szEvText!="&nbsp;" && szEvText.length>0) 
               {szQueryString = (m+1) + "/" + dteCal.getDate() + "/" + y;
               szQueryString = URLEncode(szQueryString);
               szQueryString = "date=" + szQueryString;szURL = ev.popuplink;
               szChar = "&";
               
               if (szURL.indexOf("?")==-1) szChar = "?";
               szQueryString = szChar + szQueryString;i = szURL.indexOf("#");
               if (i==-1) {szURL = szURL + szQueryString;} 
            else {szLeft = szURL.substr(0,i);
               szRight = szURL.substr(i, szURL.length - i);
               szURL = szLeft + szQueryString + szRight;};
            szEvText="<a href='javascript:dcPopUp(&#34;" + szURL + "&#34;)'>"+ szEvText + "</a>";};};
            
         szCell = "";
         
         if (nSlot==1) 
            {szCell = "&nbsp;"+ dcFontStr(this.numFace, this.numSize, szEvForecolor)+ "<strong>" + szNum + "</strong></font>" + this.r;
            if (this.dateBreak) szCell = szCell + "<br/>";};
         
         szCell = szCell + dcFontStr(this.cellFace, this.cellSize, szEvForecolor)+ szEvText + "</font>" + this.r;
         szHTML = "<td " + szSlotClass+ " valign=top"+ " width=" + nWidth+ " height=" + this.cellHeight / parseInt(this.slotCount)+ " bgcolor=" + szEvBackcolor+ " nowrap"+ " >" + this.r;
         szTemp =  szHTML + szCell + "</td>" + this.r;
         szOutput = szOutput + szTemp;
         dteCal.setDate( dteCal.getDate() + 1 );
         nDeadDay++;};
         szOutput = szOutput + "</tr>" + this.r + this.r;
      
         if (nSlot!=parseInt(this.slotCount)) 
            {dteCal.setDate( dteCal.getDate() - 7 );nDeadDay=nDeadDay-7;};};};
         
      if (this.bottomHeading) 
         {szOutput = szOutput + "<tr>" + this.r;
         
         for (nCol=0; nCol<7; nCol++) 
            {szHTML = "<td align=center"+ " width=" + nWidth+ " bgcolor=" + this.clrHdrBg+ " nowrap "+ " >"+ dcFontStr( this.hdrFace, this.hdrSize, this.clrHdrText )+ " <b><center>" + this.longDays[nCol]+ " </center></b></font></td>";
            szOutput = szOutput + szHTML + this.r;}
            
         szOutput = szOutput + "</tr>" + this.r + this.r;};
         
      szOutput = szOutput + "</table>";
      return szOutput;};
      
      
   function dcUpdate(obj, m, y) 
      {obj.createCalendar(m, y);};
      
   function dcChkLeapYear(m, y) 
      {var x = 2;
      if (( m == x )&& ( y % 4 == 0 )&& ( y % 100 == 0)) 
         {if ( y % 400 == 0) this.daysPerMonth[x] = 29;} 
         else {this.daysPerMonth[x] = 29;};};
         
   function dcFillMonth( m ) 
      {var szSelected;
      var szHTML = "";
      
      for ( i=0; i<=11; i++ ) 
         {szSelected = "";
         if ( i==m ) szSelected = "selected";
         szHTML = szHTML + "<option value='" + i + "' " + szSelected + " >" + this.longMonths[i] + "</option>" + this.r;};
      return szHTML;};
      
   function dcFillYear( y, cy ) 
      {var szSelected;
      var szHTML = "";
      for ( i=cy-1; i<=cy+5; i++ ) 
         {szSelected = "";
         if ( i==y ) szSelected = "selected";
         szHTML = szHTML + "<option value='" + i + "' " + szSelected + " >" + i + "</option>" + this.r;};
      return szHTML;};
      
   function dcFontStr ( szFace, szSize, szColor ) 
      {return szHTML = "<font"+ " face='"  + szFace  + "'"+ " size='"  + szSize  + "'"+ " color='" + szColor + "'"+ " >";};
      
   function Event (nMonth, nDay, nYear, szWeekday, szText, szPopuplink, szForecolor, szBackcolor, nSlot) 
      {this.month = nMonth;
      this.day = nDay;
      this.year = nYear;
      this.weekday = szWeekday;
      this.text = szText;
      this.popuplink = szPopuplink;
      this.forecolor = szForecolor;
      this.backcolor = szBackcolor;
      this.slot = nSlot;
      this.weekdayNo = evWeekdayNo;};
      
   function evWeekdayNo () 
      {var nNum = -1;
      var szWeekday;
      szWeekday = this.weekday;
      if (szWeekday==null) return nNum;
      szWeekday = szWeekday.toLowerCase();
      if (szWeekday=="sunday") nNum=0;
      if (szWeekday=="monday") nNum=1;
      if (szWeekday=="tuesday") nNum=2;
      if (szWeekday=="wednesday") nNum=3;
      if (szWeekday=="thursday") nNum=4;
      if (szWeekday=="friday") nNum=5;
      if (szWeekday=="saturday") nNum=6;return nNum;};
         
   function getWeekdayNo (szWeekday) 
      {var nNum = -1;
      var szWeekday;
      
      if (szWeekday==null) return nNum;
      szWeekday = szWeekday.toLowerCase();
      if (szWeekday=="sunday") nNum=0;
      if (szWeekday=="monday") nNum=1;
      if (szWeekday=="tuesday") nNum=2;
      if (szWeekday=="wednesday") nNum=3;
      if (szWeekday=="thursday") nNum=4;
      if (szWeekday=="friday") nNum=5;
      if (szWeekday=="saturday") nNum=6;return nNum;};
      
   function evChkForEvent2(dte, slot) 
      {var d = dte.getDate();
      var m = this.month(dte);
      var y = this.year(dte);
      return this.chkForEvent(m,d,y,slot);};
      
   function evChkForEvent(m,d,y,slot) 
      {var ev=null;
      var bln;
      var result;
      var nEvent;
      var ny;var nm;
      var nd;var nslot;
      var nweekday;
      var nforecolor;
      var nbackcolor;
      var ntext;
      
      if (this.xmlFile.length!=0) 
         {for (i=0; i < mobjXml.selectSingleNode("/events").childNodes.length; i++) 
            {nEvent = mobjXml.selectSingleNode("/events").childNodes[i];
            ny = getXmlValue(nEvent.selectSingleNode("year"), true);
            nm = getXmlValue(nEvent.selectSingleNode("month"), true);
            nd = getXmlValue(nEvent.selectSingleNode("day"), true);
            nslot = getXmlValue(nEvent.selectSingleNode("slot"), true);
            nweekday = getXmlValue(nEvent.selectSingleNode("weekday"), false);
            nforecolor = getXmlValue(nEvent.selectSingleNode("forecolor"), false);
            nbackcolor = getXmlValue(nEvent.selectSingleNode("backcolor"), false);
            ntext = getXmlValue(nEvent.selectSingleNode("text"), false);
            nlink = getXmlValue(nEvent.selectSingleNode("popuplink"), false);
            bln = matchDate(m,d,y,slot, nm, nd, ny, nslot, getWeekdayNo(nweekday) );
            
            if (bln==true) 
               {result = new Event(m,d,y,nweekday,ntext,nlink,nforecolor,nbackcolor,nslot);
               return result};};} 
      else 
         {for (i=0; i<maEvents.length; i++) 
            {ev = maEvents[i];
            bln = matchDate(m,d,y,slot, ev.month,ev.day,ev.year,ev.slot,ev.weekdayNo() );
            if (bln==true) return ev;};};};
            
   function matchDate(m,d,y,slot, evm, evd, evy, evslot, evweekday) 
      {var dte=null;
      
      if ( dcIsDate(m,d,y) ) dte = new Date(y,m,d);
      
      var bln=false;
      
      if ( ( y == evy || evy == null )&& (parseInt(m)+1 == evm || evm == null )&& ( d == evd )&& ( slot == evslot || slot == null ) ) bln=true;
      /* debugging codeif (d==32) {alert( "year:" + y + "  event year:" + evy+ "\nmonth:" + (parseInt(m)+1) + "  event month:" + evm+ "\nday:" + d + "  event day:" + evd+ "\nslot:" + slot + "  event slot:" + evslot+ "\n" + bln);};*/
      
      if (bln==true) return true;
      if (dte!=null) 
         {if ( dte.getDay() == evweekday&& ( slot == evslot || slot == null ) ) return true};
      return false;};
      
   function dcEvent(m,d,y,szWeekday,szText,szPopuplink,szForecolor,szBackcolor,slot) 
      {var ev;
      if ( (parseInt(d)<=31 || d==null /*|| decode(msKey)==document.location*/) )
         {if (slot==null) slot=1;
         ev = new Event(m,d,y,szWeekday,szText,szPopuplink,szForecolor,szBackcolor,slot);
         maEvents[maEvents.length] = ev;};};
         
   function getXmlValue(node, blnNumeric) 
      {var result;
      result = node.text;
      if (result.length==0) return null;
      if (blnNumeric==true) result = parseInt(result);
      return result;};
      
   function dcIsDate(m,d,y) 
      {var dte = new Date(y,m,d);
      if ( (dte.getFullYear() == y)&& (dte.getMonth() == m)&& (dte.getDate() == d) ) return true;
      return false;};
      
   function dcGetDay (dte) 
      {var d = dte.getDay();
      if (this.beginMonday) d--;
      if (d==-1) d=6;return d;};
      
   function dcIsWeekday (dte) 
      {var m;var d;
      m = dte.getMonth();
      d = dte.getDay();
      if (d == 0 || d == 6) return false;
      return true;};
      
   function dcMonth (dte, obj) 
      {var nEnd;
      var d = dte.getDate();
      var m = dte.getMonth();
      var y = dte.getFullYear();
      nStart = this.monthStartDate[m];
      if ( d<nStart ) 
         {if ( m==0 ) return 11;return m-1;};
      return m;};
         
   function dcYear (dte, obj) 
      {var nStart;
      var nEnd;
      var d = dte.getDate();
      var m = dte.getMonth();
      var y = dte.getFullYear();
      nStart = this.monthStartDate[m];
      if ( d<nStart ) {if ( m==0 ) return y-1;};
      return y;};
      
   function dcSaveDate (m, y) 
      {var mm = parseInt(m) + 1;
      var szYear =  y.toString();
      var szMonth = mm.toString();
      if (szMonth.length==1) szMonth = "0" + szMonth;
      dcCookieSet("dhtmlcal", szYear + szMonth);};
      
   function dcReadDate (szOption) 
      {var m;
      var y;
      var szMonth;
      var szYear;
      var szValue = dcCookieGet("dhtmlcal");
      if (szValue==false || this.trackSelectedDate==false) 
         {m = this.initialMonth;y = this.initialYear;} 
      else {szMonth = szValue.substring(4, 6);
      szYear = szValue.substring(0, 4);
      m = parseInt(szMonth);
      y = parseInt(szYear);
      if (szMonth != m.toString()) 
         {szMonth = szMonth.substring(szMonth.lastIndexOf("0")+1,szMonth.lastIndexOf("0")+2);
         m = parseInt(szMonth);};
      m--;};
      if (szOption=="m") return m;
      if (szOption=="y") return y;
      return -1;};
      
   function dcCookieSet (szName, szValue, hours, szPath, szDomain, szSecure) 
      {var numHours;if ( (typeof(hours) == 'string') && Date.parse(hours) ) 
         {numHours = hours;} 
      else if (typeof(hours) == 'number') 
         {numHours = (new Date((new Date()).getTime() + hours*3600000)).toGMTString();};
      document.cookie = szName + "=" + escape(szValue)+ ((numHours == null) ? "" : "; expires=" + numHours)+ ((szPath == null) ? "" : "; path=" + szPath)+ ((szDomain == null) ? "" : "; domain=" + szDomain)+ ((szSecure == null) ? "" : "; secure");};
      
   function dcCookieGet (szName) 
      {var szData;
      var nBegin;
      var nEnd;
      var MyCookie = document.cookie;
      if (MyCookie.length>0) 
         {nBegin = MyCookie.indexOf(szName);
         if (nBegin != -1) 
            {nBegin += szName.length;
            nEnd = MyCookie.indexOf(";", nBegin);
            if (nEnd==-1) nEnd = MyCookie.length;
            szData = unescape(MyCookie.substring(nBegin+1, nEnd));
            return szData;} 
         else {return false;};} 
      else {return false;};};
      
   function dcSetOuterHTML (obj, szHTML) 
      {var range = document.createRange();
      range.setStartBefore(obj);
      var df = range.createContextualFragment(szHTML);
      obj.parentNode.replaceChild(df, this);};
      
   function dcSetInnerHTML (obj, szHTML) 
      {var range = document.createRange();
      range.selectNodeContents(obj);
      range.deleteContents();
      var df = range.createContextualFragment(szHTML);
      obj.appendChild(df);};
      
   function dcBrowserName () 
      {var szOutput="";
      var szBrowser = navigator.appName;
      if ( szBrowser=="Microsoft Internet Explorer" ) 
         {szOutput = "IE";} 
      else if ( szBrowser=="Netscape" ) 
         {szOutput = "NS";};
      return szOutput;};
      
  function dcBrowserVer () 
     {return navigator.appVersion.charAt(0);};
     
  function dcGetObj(name) 
     {if (document.getElementById) 
        {return document.getElementById(name);} 
     else if (document.all) 
        {return document.all[name];} 
     else if (document.layers) 
        {return document.layers[name];} 
     else {return false;};};
     
  function dcGetFormElement(formName, objectName) 
     {if (formName.name!=null) formName = formName.name;
     if (document.getElementById) 
        {return document.getElementById(objectName);} 
     else if (document.all) 
        {return document.all[objectName];} 
     else if (document.layers) 
        {return document.forms[formName].elements[objectName];} 
     else {return false;};};
     
  function dcPopUp (strHREF) 
     {var winPopup;
     var strValues="width=600,height=400,scrollbars=yes,resizable=yes,titlebar=yes,toolbar=yes,menubar=yes,location=yes,status=yes";
     winPopup = window.open(strHREF, "_blank", strValues);};
     
  function decode(szCode) 
     {var szAlpha = "abcdefghijklmonpqrstuvwxyz1234567890~`!@#$%^&*()_-+={[}]|\:;<,>.?/";
     var szKey = "dhtmlcal";
     var i;
     var j;
     var nCode;
     var nKey;
     var szResult="";
     var nLen;
     szCode = szCode.toLowerCase();
     j = 0;
     nLen = szAlpha.length;
     for ( i=0; i<szCode.length; i++ ) 
        {szChar = szCode.charAt(i);
        nCode = szAlpha.indexOf(szChar);
        szChar = szKey.charAt(j);
        nKey = szAlpha.indexOf(szChar);
        nCode = nCode - nKey;
        if ( nCode < 0 ) nCode = nCode + nLen;
        szResult = szResult + szAlpha.charAt(nCode);
        j++;if ( j >= szKey.length ) j=1;};
     return szResult;};
     
  function ShowProperties(obj) 
     {var i;
     var strOutput;
     var strTerm;
     var strData;
     var strSpace;
     var lngCols;
     lngCols=4;
     if (document.layers) lngCols=3;
     strSpace = "                                        ";
     strOutput = obj.name + "\n\n";
     i=1;
     for (var prop in obj) 
        {strTerm = "\t";
        if (i==lngCols) strTerm = "\n";
        i=i+1;
        if (i>lngCols) i=1;
        strData = "." + prop + " = " + obj[prop];
        if (strData.length<30) strData += strSpace.substring(0, 30-strData.length);
        if (strData.length>30) strData = strData.substring(0, 30);
        strOutput += strData + strTerm;};
     alert(strOutput);return strOutput;};
     
  function URLEncode(szData)
     {var SAFECHARS = "0123456789" +"ABCDEFGHIJKLMNOPQRSTUVWXYZ" +"abcdefghijklmnopqrstuvwxyz" +"-_.!~*'()";
     var HEX = "0123456789ABCDEF";
     var plaintext = szData;
     var encoded = "";
     for (var i = 0; i < plaintext.length; i++ ) 
        {var ch = plaintext.charAt(i);    
        if (ch == " ") 
           {    encoded += "+";} 
        else if (SAFECHARS.indexOf(ch) != -1) 
           {    encoded += ch;} 
        else {    var charCode = ch.charCodeAt(0);
        if (charCode > 255) 
           {    alert( "Unicode Character '" + ch + "' cannot be encoded using standard URL encoding.\n" +        "(URL encoding only supports 8-bit characters.)\n" +"A space (+) will be substituted." );
           encoded += "+";} 
        else 
           {encoded += "%";
           encoded += HEX.charAt((charCode >> 4) & 0xF);
           encoded += HEX.charAt(charCode & 0xF);}}}
     return encoded;};
     
  function URLDecode(szData)
     {var HEXCHARS = "0123456789ABCDEFabcdef";
     var encoded = szData;
     var plaintext = "";
     var i = 0;
     while (i < encoded.length) 
        {var ch = encoded.charAt(i);   
        if (ch == "+") 
           {       plaintext += " ";   i++;   } 
        else if (ch == "%") 
           {if (i < (encoded.length-2)&& HEXCHARS.indexOf(encoded.charAt(i+1)) != -1&& HEXCHARS.indexOf(encoded.charAt(i+2)) != -1 ) 
              {plaintext += unescape( encoded.substr(i,3) );
              i += 3;} 
           else 
              {alert( 'Bad escape combination near ...' + encoded.substr(i) );
              plaintext += "%[ERROR]";i++;}} 
           else 
              {   plaintext += ch;   i++;}}
           return plaintext;};