var MINUTE = 60 * 1000
var HOUR   = MINUTE * 60
var DAY    = HOUR * 24
var WEEK   = DAY * 7

var monthItem
var dayItem
var yearItem

var objDtL1
var objDtL2

var arrDates  = new Array()
var arrMonths = new Array()
var arrDays   = new Array()

var prevMonth
var prevYear

var gdtmToday;

function objDateSet(itmY,itmM,itmD,objL1,objL2,blnNoDate) {
  this.itmY      = itmY
  this.itmM      = itmM
  this.itmD      = itmD
  this.objL1     = objL1
  this.objL2     = objL2
  this.blnNoDate = blnNoDate
}


function objMonth(name) {
  this.name = name
}


function objDay(name) {
  this.name = name
}

function isNonPeakDay(dtmDate) {
   var arrPeakDates = ["6/29","6/30","7/1","7/2","7/3","7/4","7/5","8/31","9/1","9/2","9/3","9/4","9/5"];

   var mstrDateMonthDay = (dtmDate.getMonth() + 1).toString() + '/' + (dtmDate.getDate()).toString();
   var blnNonPeak = false;

   if (((dtmDate.getDay() == 2) || (dtmDate.getDay() == 3)) && (dtmDate.getDate() <= 17)) {
      for (var i=0; i < arrPeakDates.length; i++) {
         if (mstrDateMonthDay == arrPeakDates[i]) {
            blnNonPeak = false;
            break;
         }
         else blnNonPeak = true;
      }
   }

   return blnNonPeak;
}

function isHoliday(dtmDate) {
  var mstrChristmasEve = '12/24'
  var mstrChristmasDay = '12/25'
  var mstrNewYearsDay  = '1/1'
  var mstrJuly4th      = '7/4'
  var mdtmTempDate     = new Date(dtmDate)
  var mstrDateMonthDay = (dtmDate.getMonth() + 1).toString() + '/' + (dtmDate.getDate()).toString()

// csm Use switch statement
// http://developer.netscape.com/docs/manuals/communicator/jsref/stmt14.htm#1018610
  if ((dtmDate.getMonth() + 1) == 1) {
    return (mstrNewYearsDay == mstrDateMonthDay)
  }
  else if ((dtmDate.getMonth() + 1) == 5) {
    return isMemorialDay(dtmDate)
  }
  else if ((dtmDate.getMonth() + 1) == 7) {
    return (mstrJuly4th == mstrDateMonthDay)
  }
  else if ((dtmDate.getMonth() + 1) == 9) {
    return isLaborDay(dtmDate)
  }
  else if ((dtmDate.getMonth() + 1) == 11) {
    if (isThanksgiving(dtmDate)) {
      return true
    }
    else if (dtmDate.getDate() > 1) {
      mdtmTempDate.setDate(dtmDate.getDate() - 1)
      return isThanksgiving(mdtmTempDate)
    }
  }
  else if ((dtmDate.getMonth() + 1) == 12) {
    return ((mstrChristmasDay == mstrDateMonthDay) || (mstrChristmasEve == mstrDateMonthDay))
  }
  return false
}

function isLeapYear(intYear) {
  return (((intYear % 4 == 0) && (intYear % 100 != 0)) || (intYear % 400 == 0))
}

function getNumDays(intMonth, intYear) {
   if ((intMonth == 4) || (intMonth == 6) || (intMonth == 9) || (intMonth == 11)) {
      return 30
   }
   else if (intMonth == 2) {
      if (isLeapYear(intYear)) return 29;
      else return 28;
   }
   else return 31;
}

function nthOccurenceOfDay(intDoW, intN, intYear, intMonth) {
  var mDtmTemp
  var mIntDay
  var mIntModifier

  if (intN > 0) {
    mDtmTemp = new Date(intYear, intMonth, 1)
    mIntModifier = 1
  }
  else {
    mDtmTemp = new Date(intYear, intMonth, getNumDays(intMonth + 1, intYear))
    mIntModifier = -1
  }

  while (mDtmTemp.getDay() != intDoW) {
    mDtmTemp.setDate(mDtmTemp.getDate() + mIntModifier)
  }
  mIntDay = mDtmTemp.getDate() + ((intN - mIntModifier) * 7)
  if (isNaN(mIntDay)) {
    mIntDay = 0
  }
  return mIntDay
}

function isThanksgiving(dtmDate) {
  if ((dtmDate.getMonth() + 1) == 11) {
    if ((dtmDate.getDate() == nthOccurenceOfDay(4, 4, y2kFmt(dtmDate.getYear()), dtmDate.getMonth())) ||
       (dtmDate.getDate() == nthOccurenceOfDay(5, 4, y2kFmt(dtmDate.getYear()), dtmDate.getMonth())) ||
       (dtmDate.getDate() == nthOccurenceOfDay(6, 4, y2kFmt(dtmDate.getYear()), dtmDate.getMonth()))) {
       return true;
    }
    else return false;
  }
  return false;
}

function isMemorialDay(dtmDate) {
  if ((dtmDate.getMonth() + 1) == 5) {
    return (dtmDate.getDate() == nthOccurenceOfDay(1, -1, y2kFmt(dtmDate.getYear()), dtmDate.getMonth()))
  }
  return false;
}

function isLaborDay(dtmDate) {
  if ((dtmDate.getMonth() + 1) == 9) {
    return (dtmDate.getDate() == nthOccurenceOfDay(1, 1, y2kFmt(dtmDate.getYear()), dtmDate.getMonth()))
  }
  return false
}

function initMonthList() {
  arrMonths[0]  = new objMonth('Enero')
  arrMonths[1]  = new objMonth('Febrero')
  arrMonths[2]  = new objMonth('Marzo')
  arrMonths[3]  = new objMonth('Abril')
  arrMonths[4]  = new objMonth('Mayo')
  arrMonths[5]  = new objMonth('Junio')
  arrMonths[6]  = new objMonth('Julio')
  arrMonths[7]  = new objMonth('Agosto')
  arrMonths[8]  = new objMonth('Septiembre')
  arrMonths[9]  = new objMonth('Octubre')
  arrMonths[10] = new objMonth('Noviembre')
  arrMonths[11] = new objMonth('Diciembre')
}


function initDayList() {
  arrDays[0] = new objDay('Domingo')
  arrDays[1] = new objDay('Lunes')
  arrDays[2] = new objDay('Martes')
  arrDays[3] = new objDay('Miercoles')
  arrDays[4] = new objDay('Jueves')
  arrDays[5] = new objDay('Viernes ')
  arrDays[6] = new objDay('Sabado')
}

function initEmptyDayList() {
  arrDays[0] = new objDay('')
  arrDays[1] = new objDay('')
  arrDays[2] = new objDay('')
  arrDays[3] = new objDay('')
  arrDays[4] = new objDay('')
  arrDays[5] = new objDay('')
  arrDays[6] = new objDay('')
}


function initDate(seq,yr,mn,dy,dysL1,dysL2,blnBusinessDays,blnWeekends,bln1stWeekend,blnSaturday,blnSunday) {
  var objDtNow = new Date(gdtmToday);
  objDtL1 = null
  objDtL2 = null
  objDtL1 = dateFromDays(y2kFmt(objDtNow.getYear()),(objDtNow.getMonth()+1),objDtNow.getDate(),dysL1, blnBusinessDays)
  objDtL2 = dateFromDays(y2kFmt(objDtNow.getYear()),(objDtNow.getMonth()+1),objDtNow.getDate(),dysL2, blnBusinessDays)

  arrDates[seq].objL1 = objDtL1
  arrDates[seq].objL2 = objDtL2

  if ((yr == 0)||(mn == 0)||(dy == 0)) {
    setListDate(seq,y2kFmt(objDtNow.getYear()),(objDtNow.getMonth()+1),objDtNow.getDate(),blnWeekends,true,bln1stWeekend,blnSaturday,blnSunday)
  }
  else {
    setListDate(seq,yr,mn,dy,blnWeekends,true,bln1stWeekend,blnSaturday,blnSunday)
  }

  if (arrDates[seq].blnNoDate) { setDateFirst(seq) }
}


function setListDate(seq,yr,mn,dy,blnWeekends,blnFromCal,bln1stWeekend,blnSaturday,blnSunday) {
  var idx    = 0
  var idxSet = 0
  var objDtDay
  var intBegin
  var intEnd
  var intWkndDays = 0
  var intTempCnt = 0
  var intC1 = dateComp(yr,mn,dy,y2kFmt(arrDates[seq].objL1.getYear()),(arrDates[seq].objL1.getMonth()+1),arrDates[seq].objL1.getDate())
  var intC2 = dateComp(yr,mn,dy,y2kFmt(arrDates[seq].objL2.getYear()),(arrDates[seq].objL2.getMonth()+1),arrDates[seq].objL2.getDate())
  var blnDaySet = false;
  var objDtNow = new Date(gdtmToday);
  var datediff = 0;

  if (bln1stWeekend == undefined) bln1stWeekend = blnWeekends
  if (blnSaturday == undefined) blnSaturday = blnWeekends
  if (blnSunday == undefined) blnSunday = blnWeekends

  if (intC1 < 0) {
    while ((arrDates[seq].objL1.getDay() == 0) || (arrDates[seq].objL1.getDay() == 6) || isHoliday(arrDates[seq].objL1)) {
       arrDates[seq].objL1.setDate(arrDates[seq].objL1.getDate() + 1)
    }
    yr = y2kFmt(arrDates[seq].objL1.getYear())
    mn = arrDates[seq].objL1.getMonth()+1
    dy = arrDates[seq].objL1.getDate()
  }

  if (intC2 > 0) {
    while ((arrDates[seq].objL2.getDay() == 0) || (arrDates[seq].objL2.getDay() == 6) || isHoliday(arrDates[seq].objL2)) {
       arrDates[seq].objL2.setDate(arrDates[seq].objL2.getDate() + 1)
    }
    yr = y2kFmt(arrDates[seq].objL2.getYear())
    mn = arrDates[seq].objL2.getMonth()+1
    dy = arrDates[seq].objL2.getDate()
  }

  // Set year:
  idx    = 0
  idxSet = 0

  arrDates[seq].itmY.options.length = 0

  if (arrDates[seq].blnNoDate) {
    arrDates[seq].itmY.options[idx] = new Option("- - - -","")
    idx++
  }

  for (var y = y2kFmt(arrDates[seq].objL1.getYear()); y < (y2kFmt(arrDates[seq].objL2.getYear())+1); y++) {
    arrDates[seq].itmY.options[idx] = new Option(y,y)
    if (y == yr) { idxSet = idx}
    idx++
  }
  arrDates[seq].itmY.options[idxSet].selected = true

  // Set month:
  idx    = 0
  idxSet = 0

  arrDates[seq].itmM.options.length = 0

  if (arrDates[seq].blnNoDate) {
    arrDates[seq].itmM.options[idx] = new Option("- - -","")
    idx++
  }

  if (yr == y2kFmt(arrDates[seq].objL1.getYear())) { intBegin = arrDates[seq].objL1.getMonth()}
  else { intBegin = 0}

  if (yr == y2kFmt(arrDates[seq].objL2.getYear())) { intEnd = arrDates[seq].objL2.getMonth()}
  else { intEnd = 11}

  for (var m = intBegin; m < (intEnd+1); m++) {
    arrDates[seq].itmM.options[idx] = new Option(arrMonths[m].name.substring(0,3),m+1)
    if (m == (mn-1)) { idxSet = idx}
    idx++
  }
  arrDates[seq].itmM.options[idxSet].selected = true

  // Set day:
  idx    = 0
  idxSet = 0

  arrDates[seq].itmD.options.length = 0

  if (arrDates[seq].blnNoDate) {
    arrDates[seq].itmD.options[idx] = new Option("- - - - -","")
    idx++
  }

  if ((yr == y2kFmt(arrDates[seq].objL1.getYear())) && (mn == (arrDates[seq].objL1.getMonth()+1))) { intBegin = arrDates[seq].objL1.getDate()}
  else { intBegin = 1}

  if ((yr == y2kFmt(arrDates[seq].objL2.getYear())) && (mn == (arrDates[seq].objL2.getMonth()+1))) { intEnd = arrDates[seq].objL2.getDate()}
  else { intEnd = lastDay(yr,mn)}

  prevMonth = mn
  prevYear  = yr

   for (var d = intBegin; d < (intEnd+1); d++) {
      objDtDay = new Date(yr,mn-1,d)
      intTempCnt += 1

      if (!isHoliday(objDtDay)) {
         //count the first two weekend days
         if (!bln1stWeekend && intWkndDays <= 2){
            if (objDtDay.getDay() == 0 || objDtDay.getDay() == 6) {
               intWkndDays += 1
               datediff = Math.ceil((objDtDay - objDtNow)/86400000) //86400000 = number of milliseconds in one day
               //if we are past the 6th day then we have already past the first weekend
               if (datediff >= 6) intWkndDays = 3
            }
         }
         if ((blnWeekends && (bln1stWeekend || intWkndDays > 2) && (blnSaturday || objDtDay.getDay() != 6) && (blnSunday || objDtDay.getDay() != 0)) || ((objDtDay.getDay() != 0) && (objDtDay.getDay() != 6))) {
            arrDates[seq].itmD.options[idx] = new Option(d + " " + arrDays[objDtDay.getDay()].name.substring(0,3),d)
            if (blnFromCal) {
               if (d == dy) idxSet = idx;
            }
            else if (!blnDaySet) {
               if (isNonPeakDay(objDtDay)) {
                  idxSet = idx;
                  blnDaySet = true;
               }
            }
            idx++;
         }
      }
   }
   arrDates[seq].itmD.options[idxSet].selected = true;
}

function chkYear(seq,weekends,bln1stWeekend,blnSaturday,blnSunday) {
  if (arrDates[seq].itmY.options[arrDates[seq].itmY.options.selectedIndex].value == "") {
    setDateFirst(seq)
  }
  else {
    updateDate(seq,true,false,weekends,bln1stWeekend,blnSaturday,blnSunday)
  }
}


function chkMonth(seq,weekends,bln1stWeekend,blnSaturday,blnSunday) {
  if (arrDates[seq].itmM.options[arrDates[seq].itmM.options.selectedIndex].value == "") {
    setDateFirst(seq)
  }
  else {
    updateDate(seq,false,false,weekends,bln1stWeekend,blnSaturday,blnSunday)
  }
}


function chkDay(seq,weekends,bln1stWeekend,blnSaturday,blnSunday) {
  if (arrDates[seq].itmD.options[arrDates[seq].itmD.options.selectedIndex].value == "") {
    setDateFirst(seq)
  }
  else if (arrDates[seq].itmY.options[arrDates[seq].itmY.options.selectedIndex].value == "") {
    	updateDate(seq,false,true,weekends,bln1stWeekend,blnSaturday,blnSunday)
  }
}


function updateDate(seq,blnYr,blnDay,blnWeekends,bln1stWeekend,blnSaturday,blnSunday) {
   if (blnDay) {
	   var intY = prevYear
		var intM = prevMonth
		var intD = arrDates[seq].itmD.options[arrDates[seq].itmD.options.selectedIndex].value
   }
	else {
      if (arrDates[seq].blnNoDate) {
			var intY = (!blnYr)? arrDates[seq].itmY.options[1].value : arrDates[seq].itmY.options[arrDates[seq].itmY.options.selectedIndex].value
		}
      else {
		   var intY = arrDates[seq].itmY.options[arrDates[seq].itmY.options.selectedIndex].value
		}
	   var intM = (blnYr)? 1 : arrDates[seq].itmM.options[arrDates[seq].itmM.options.selectedIndex].value
		var intD = 1
	}

   setListDate(seq,intY,intM,intD,blnWeekends,false,bln1stWeekend,blnSaturday,blnSunday)
}


function setDateFirst(seq) {
  arrDates[seq].itmY.options[0].selected = true
  arrDates[seq].itmM.options[0].selected = true
  arrDates[seq].itmD.options[0].selected = true
}


function buildDateOps(sz) {
  var strX = "XXXXXXXXXXXXXXXXXXXX";
  var sText = "";

  for (var z = 0; z < 10; z++) {   
    sText += "<OPTION>"+strX.substring(0,sz)+"</OPTION>"
  }
  return sText;
}


function buildDate(seq,fName,yName,mName,dName,blnCal,blnNoDate,intSD,intED,blnColors,blnSqueeze,blnWeekends,bln1stWeekend,blnSaturday,blnSunday) {
   var sdate  = 'document.' + fName + '.' + mName + '.options[document.' + fName + '.' + mName + '.selectedIndex].value'
   var strColors = (blnColors) ? 'Y' : ''
   var strWeekends = (blnWeekends) ? 'Y' : ''
   var str1stWeekend = (bln1stWeekend) ? 'Y' : 'N'
   var strSaturday = (blnSaturday) ? 'Y' : 'N'
   var strSunday = (blnSunday) ? 'Y' : 'N'
   var sText = "";
   if (bln1stWeekend == undefined) str1stWeekend = strWeekends
   if (blnSaturday == undefined) strSaturday = strWeekends
   if (blnSunday == undefined) strSunday = strWeekends

   sdate += '+ \'/\' + document.' + fName + '.' + dName + '.options[document.' + fName + '.' + dName + '.selectedIndex].value'
   sdate += '+ \'/\' + document.' + fName + '.' + yName + '.options[document.' + fName + '.' + yName + '.selectedIndex].value'

   sText = '<TABLE CELLPADDING="0" CELLSPACING="0"><TR>'
   if (blnSqueeze) {
      yCol = 55
      mCol = 50
      dCol = 45
   }
   else {
      yCol = 70
      mCol = 65
      dCol = 75
   }

   sText += '<TD WIDTH="' + yCol + '" NOWRAP>'
   sText += '<SELECT NAME="' + yName + '" ID="' + yName + '" SIZE="1" ONCHANGE="chkYear(' + seq + ',' + blnWeekends + ',' + bln1stWeekend + ',' + blnSaturday + ',' + blnSunday + ');">'
   sText += buildDateOps(4);
   sText += '</SELECT></TD>'

   sText += '<TD WIDTH="' + mCol + '" NOWRAP>'
   sText += '<SELECT NAME="' + mName + '" ID="' + mName + '" SIZE="1" ONCHANGE="chkMonth(' + seq + ',' + blnWeekends + ',' + bln1stWeekend + ',' + blnSaturday + ',' + blnSunday + ')">'
   sText += buildDateOps(3);
   sText += '</SELECT></TD>'

   sText += '<TD WIDTH="' + dCol + '" NOWRAP>'
   sText += '<SELECT NAME="' + dName + '" ID="' + dName + '" SIZE="1" ONCHANGE="chkDay(' + seq + ',' + blnWeekends + ',' + bln1stWeekend + ',' + blnSaturday + ',' + blnSunday + ')">'
   if (!blnSqueeze) sText += buildDateOps(6);
   else sText += buildDateOps(2);
   sText += '</SELECT></TD>'

   if (blnCal) {
      sText += '<TD NOWRAP>'
      if (!blnSqueeze) sText += '&nbsp;'
      sText += '<A HREF="javascript:upWinXY(\'calWin\',\'/calwin.asp?seq=' + seq + '&wknd=' + strWeekends + '&wknd1=' + str1stWeekend + '&sat=' + strSaturday + '&sun=' + strSunday + '&cg=' + strColors + '&sdays=' + intSD + '&edays=' + intED + '&sd=\' + ' + sdate + ',340,290,false);">'
      sText += '<IMG SRC="/images/cal1.gif" ALT="Click to select date..." ALIGN="MIDDLE" WIDTH="16" HEIGHT="14" BORDER="0" NAME="cal' + seq + '" ID="cal' + seq + '"></TD>'
   }
   sText += '</TR>'
   sText += '</TABLE>'

   document.writeln(sText)

   yearItem  = null
   monthItem = null
   dayItem   = null

   eval('yearItem = document.' + fName + '.' + yName)
   eval('monthItem = document.' + fName + '.' + mName)
   eval('dayItem = document.' + fName + '.' + dName)

   arrDates[seq] = new objDateSet(yearItem,monthItem,dayItem,null,null,blnNoDate)

}


function dateFromDays(yr,mn,dy,intDays,blnBusinessDays) {
   var mn2 = mn - 1

   var objDate1 = new Date(yr,mn2,dy,12,0,0)
   var objDate2 = new Date(gdtmToday)
   if (blnBusinessDays) {
      for (var i = 0; i <= intDays; i++) {
         if ((objDate2.getDay() == 0) || (objDate2.getDay() == 6) || (isHoliday(objDate2))) {
            intDays++
         }
         objDate2.setTime(objDate2.getTime() + DAY)
      }
   }
   objDate2.setTime(objDate1.getTime() + (intDays * DAY))

   return objDate2
}


function y2kFmt(yr) {
  return (yr < 2000)? (yr + 1900) : yr
}


function dateComp(yr1,mn1,dy1,yr2,mn2,dy2) {
  mn1--
  mn2--

  var objDt1 = new Date(yr1,mn1,dy1)
  var objDt2 = new Date(yr2,mn2,dy2)

  objDt1.setHours(0)
  objDt1.setMinutes(0)
  objDt1.setSeconds(0)

  objDt2.setHours(0)
  objDt2.setMinutes(0)
  objDt2.setSeconds(0)

  var int1 = Date.parse(objDt1.toGMTString())
  var int2 = Date.parse(objDt2.toGMTString())

   if ((int1 - int2) == 0) {
      return 0
   }
   else {
      if ((int1 - int2) > 0) return 1;
      else return -1;
   }
}

function lastDay(yr,mn) {
   var lDay
   var objDt = new Date(yr,(mn-1),28)

   for (var d = 28; d < 32; d++) {
      objDt.setDate(d)
      if (objDt.getMonth()+1 == mn) lDay = d;
   }
   return lDay;
}

function isDate(year, month, day) {
   if (!isInteger(year) || !isInteger(month) || !isInteger(day)) return false;
   return true;
}