// ********************
// Begin Popup Calendar
// ********************
var popCalDstFld;
var temp;
var popCalWin;

// ******************************
// Expected params:
// [0] Window Name
// [1] Destination Field
// [2] Short Date Format
// [3] Month Names
// [4] Day Names
// [5] Localized Today string
// [6] Localized Close string
// [7] Window Title
// [8] First Day of Week
// ******************************
function popupCal()
{
    //debugger;         //remove slashes to activate debugging in Visual Studio
    var tmpDate         = new Date();
    var tmpString       = "";
    var tmpNum          = 0;
    var popCalDateVal;
    var dstWindowName   = "";

    //Initialize the window to an empty object.
    popCalWin = new Object();
    
    //Check for the right number of arguments
    if (arguments.length < 2)
    {
        alert("popupCal(): Wrong number of arguments.");
        return void(0);
    }
    //Get the command line arguments -- Localization is optional
    dstWindowName = popupCal.arguments[0];
    popCalDstFld = popupCal.arguments[1];
    temp = popupCal.arguments[1];
    popCalDstFmt = popupCal.arguments[2]; //Localized Short Date Format String
    popCalMonths = popupCal.arguments[3]; //Localized Month Names String
    popCalDays = popupCal.arguments[4];   //Localized Day Names String
    popCalToday = popupCal.arguments[5];  //Localized Today string
    popCalClose = popupCal.arguments[6];  //Localized Close string
    popCalTitle = popupCal.arguments[7];  //Window Title
    popCalFirstDayWeek = popupCal.arguments[8];  //First Day of Week
    
    //check destination field name
    if (popCalDstFld != "")
      popCalDstFld = document.getElementById(popCalDstFld);

    //default localized short date format if not provided
    if (popCalDstFmt == "")
      popCalDstFmt = "MM/dd/yyyy";

    //default localized months string if not provided
    if (popCalMonths == "")
      popCalMonths = "January,February,March,April,May,June,July,August,September,October,November,December";
 
    //default localized months string if not provided
    if (popCalDays == "")
      popCalDays = "Sun,Mon,Tue,Wed,Thu,Fri,Sat";
    
    //default localized today string if not provided
    if (popCalToday == "" || typeof popCalToday == "undefined")
      popCalToday = "Today";

    //default localized close string if not provided
    if (popCalClose == "" || typeof popCalClose == "undefined")
      popCalClose = "Close";

    //default window title if not provided
    if (popCalTitle == "" || typeof popCalTitle == "undefined")
      popCalTitle = "Calendar";
 
    tmpString = new String(popCalDstFld.value);  
    //If tmpString is empty (meaning that the field is empty) 
    //use todays date as the starting point
    if(tmpString == "")
        popCalDateVal = new Date()
    else
    {
        //Make sure the century is included, if it isn't, add this 
        //century to the value that was in the field
        tmpNum = tmpString.lastIndexOf( "/" );
        if ( (tmpString.length - tmpNum) == 3 )
        {
            tmpString = tmpString.substring(0,tmpNum + 1)+"20"+tmpString.substr(tmpNum+1);
            popCalDateVal = new Date(tmpString);
        }
        else
        {
            //localized date support:
            //If we got to this point, it means the field that was passed 
            //in has no slashes in it. Use an extra function to build the date 
            //according to supplied date formatstring.
            popCalDateVal = getDateFromFormat(tmpString,popCalDstFmt);
        }
    }
    
    //Make sure the date is a valid date.  Set it to today if it is invalid
    //"NaN" is the return value for an invalid date
    if( popCalDateVal.toString() == "NaN" )
    {
        popCalDateVal = new Date();
        popCalDstFld.value = "";
    }
            
    //Set the base date to midnight of the first day of the specified month, 
    //this makes things easier?
    var dateString = String(popCalDateVal.getMonth()+1) + "/" + String(popCalDateVal.getDate()) + "/" + String(popCalDateVal.getFullYear());

    //Call the routine to draw the initial calendar
    reloadCalPopup(dateString, dstWindowName);
    
    return void(0);
}
 
function closeCalPopup()
{
    //Can't tell the child window to close itself, the parent window has to 
    //tell it to close.
    popCalWin.close();
    return void(0);
}
 
function reloadCalPopup() //[0]dateString, [1]dstWindowName
{
    //Set the window's features here

    var windowFeatures = "toolbar=no, location=no, status=no, menubar=no, scrollbars=no, resizable=no, height=270, width=270, top=" + ((screen.height - 270)/2).toString()+",left="+((screen.width - 270)/2).toString();
    var tmpDate = new Date( reloadCalPopup.arguments[0] );
    
    if (tmpDate.toString() == "Invalid Date")
        tmpDate = new Date();
    
    tmpDate.setDate(1);
    
    //Get the calendar data
    var popCalData = calPopupSetData(tmpDate,reloadCalPopup.arguments[1]);
 
    //Check to see if the window has been initialized, create it if it hasn't been
    if( popCalWin.toString() == "[object Object]" )
    {
        popCalWin = window.open("",reloadCalPopup.arguments[1],windowFeatures);
        popCalWin.opener = self;
        // Window im Vordergrund
        popCalWin.focus();
    }
    else 
    {
        popCalWin.document.close();
        popCalWin.document.clear();
    }
    
    //this is the line with the big problem
    popCalWin.document.write(popCalData);
    return void(1);
}
 
function calPopupSetData(firstDay,dstWindowName)
{
    var popCalData = "";
    var lastDate = 0;
    var fnt = new Array( "<FONT SIZE=\"1\">", "<B><FONT SIZE=\"2\">", "<FONT SIZE=\"2\" COLOR=\"#EF741D\"><B>");
    var dtToday = new Date();
    var thisMonth = firstDay.getMonth();
    var thisYear = firstDay.getFullYear();
    var nPrevMonth = (thisMonth == 0 ) ? 11 : (thisMonth - 1);
    var nNextMonth = (thisMonth == 11 ) ? 0 : (thisMonth + 1);
    var nPrevMonthYear = (nPrevMonth == 11) ? (thisYear - 1): thisYear;
    var nNextMonthYear = (nNextMonth == 0) ? (thisYear + 1): thisYear;
    var sToday = String((dtToday.getMonth()+1) + "/01/" + dtToday.getFullYear());
    var sPrevMonth = String((nPrevMonth+1) + "/01/" + nPrevMonthYear);
    var sNextMonth = String((nNextMonth+1) + "/01/" + nNextMonthYear);
    var sPrevYear1 = String((thisMonth+1) + "/01/" + (thisYear - 1));
    var sNextYear1 = String((thisMonth+1) + "/01/" + (thisYear + 1));
    var tmpDate = new Date( sNextMonth );
    
    tmpDate = new Date( tmpDate.valueOf() - 1001 );
    lastDate = tmpDate.getDate();

    if (this.popCalMonths.split) // javascript 1.1 defensive code
    {
        var monthNames = this.popCalMonths.split(",");
        var dayNames = this.popCalDays.split(",");
    }
    else  // Need to build a js 1.0 split algorithm, default English for now
    {
        var monthNames = new Array("January","February","March","April","May","June","July","August","September","October","November","December");
        var dayNames = new Array("Sun","Mon","Tue","Wed","Thu","Fri","Sat")
    }

    var styles = "<style><!-- body{font-family:Arial,Helvetica,sans-serif;font-size:9pt}; td {  font-family: Arial, Helvetica, sans-serif; font-size: 9pt; color: #666666}; A { text-decoration: none; };TD.day { border-bottom: solid black; border-width: 0px; }--></style>"
    var cellAttribs = "align=\"center\" class=\"day\" BGCOLOR=\"#F1F1F1\"onMouseOver=\"temp=this.style.backgroundColor;this.style.backgroundColor='#CCCCCC';\" onMouseOut=\"this.style.backgroundColor=temp;\""
    var cellAttribs2 = "align=\"center\" BGCOLOR=\"#F1F1F1\" onMouseOver=\"temp=this.style.backgroundColor;this.style.backgroundColor='#CCCCCC';\" onMouseOut=\"this.style.backgroundColor=temp;\""
    var htmlHead = "<HTML><HEAD><TITLE>"+popCalTitle+"</TITLE>" + styles + "</HEAD><BODY BGCOLOR=\"#F1F1F1\" TEXT=\"#000000\" LINK=\"#364180\" ALINK=\"#FF8100\" VLINK=\"#424282\">";
    var htmlTail = "</BODY></HTML>";
    var closeAnchor = "<CENTER><input type=button value=\""+popCalClose+"\" onClick=\"javascript:window.opener.closeCalPopup()\"></CENTER>";            
    var todayAnchor = "<A HREF=\"javascript:window.opener.reloadCalPopup('"+sToday+"','"+dstWindowName+"');\">"+popCalToday+"</A>";
    var prevMonthAnchor = "<A HREF=\"javascript:window.opener.reloadCalPopup('"+sPrevMonth+"','"+dstWindowName+"');\">" + monthNames[nPrevMonth] + "</A>";
    var nextMonthAnchor = "<A HREF=\"javascript:window.opener.reloadCalPopup('"+sNextMonth+"','"+dstWindowName+"');\">" + monthNames[nNextMonth] + "</A>";
    var prevYear1Anchor = "<A HREF=\"javascript:window.opener.reloadCalPopup('"+sPrevYear1+"','"+dstWindowName+"');\">"+(thisYear-1)+"</A>";
    var nextYear1Anchor = "<A HREF=\"javascript:window.opener.reloadCalPopup('"+sNextYear1+"','"+dstWindowName+"');\">"+(thisYear+1)+"</A>";
        
    popCalData += (htmlHead + fnt[1]);
    popCalData += ("<DIV align=\"center\">");
    popCalData += ("<TABLE BORDER=\"0\" cellspacing=\"0\" callpadding=\"0\" width=\"250\"><TR><TD width=\"45\">&nbsp</TD>");
    popCalData += ("<TD width=\"45\" align=\"center\" " + cellAttribs2);
    popCalData += (" >");
    popCalData += (fnt[0]+prevYear1Anchor+"</FONT></TD>");
    popCalData += ("<TD width=\"70\" align=\"center\" "+cellAttribs2);
    popCalData += (" >");
    popCalData += (fnt[0]+todayAnchor+"</FONT></TD>");
    popCalData += ("<TD width=\"45\" align=\"center\" "+cellAttribs2);
    popCalData += (" >");
    popCalData += (fnt[0]+nextYear1Anchor+"</FONT></TD><TD width=\"45\">&nbsp</TD>");
    popCalData += ("</TR></TABLE>");
    popCalData += ("<TABLE BORDER=\"0\" cellspacing=\"0\" callpadding=\"0\" width=\"250\">");          
    popCalData += ("<TR><TD width=\"55\" align=\"center\" "+cellAttribs2);
    popCalData += (" >");
    popCalData += (fnt[0] + prevMonthAnchor + "</FONT></TD>");
    popCalData += ("<TD width=\"140\" align=\"center\">");
    popCalData += ("&nbsp;&nbsp;"+fnt[1]+"<FONT COLOR=\"#000000\">" + monthNames[thisMonth] + ", " + thisYear + "&nbsp;&nbsp;</FONT></TD>");
    popCalData += ("<TD width=\"55\" align=\"center\" "+cellAttribs2);
    popCalData += (" >");
    popCalData += (fnt[0]+nextMonthAnchor+"</FONT></TD></TR></TABLE><BR>");       
    popCalData += ("<TABLE BORDER=\"0\" cellspacing=\"2\" cellpadding=\"1\"  width=\"245\">" );
    popCalData += ("");
    popCalData += ("<TR>");
    
    /*
    popCalData += ("<TD width=\"35\" align=\"center\">"+fnt[1]+"<FONT COLOR=\"#000000\">"+dayNames[0]+"</FONT></TD>");
    popCalData += ("<TD width=\"35\" align=\"center\">"+fnt[1]+"<FONT COLOR=\"#000000\">"+dayNames[1]+"</FONT></TD>");
    popCalData += ("<TD width=\"35\" align=\"center\">"+fnt[1]+"<FONT COLOR=\"#000000\">"+dayNames[2]+"</FONT></TD>");
    popCalData += ("<TD width=\"35\" align=\"center\">"+fnt[1]+"<FONT COLOR=\"#000000\">"+dayNames[3]+"</FONT></TD>");
    popCalData += ("<TD width=\"35\" align=\"center\">"+fnt[1]+"<FONT COLOR=\"#000000\">"+dayNames[4]+"</FONT></TD>");
    popCalData += ("<TD width=\"35\" align=\"center\">"+fnt[1]+"<FONT COLOR=\"#000000\">"+dayNames[5]+"</FONT></TD>");
    popCalData += ("<TD width=\"35\" align=\"center\">"+fnt[1]+"<FONT COLOR=\"#000000\">"+dayNames[6]+"</FONT></TD>");
    */
    var xday = 0;
    for (xday = 0; xday < 7; xday++)
    {
        popCalData += ("<TD width=\"35\" align=\"center\">"+fnt[1]+"<FONT COLOR=\"#000000\">"+dayNames[(xday+popCalFirstDayWeek)%7]+"</FONT></TD>");
    };
    popCalData += ("</TR>");
    
    var calDay = 0;
    var monthDate = 1;
    var weekDay = firstDay.getDay();
    do
    {
        popCalData += ("<TR>");
        for (calDay = 0; calDay < 7; calDay++ )
        {
            if(((weekDay+7-popCalFirstDayWeek)%7 != calDay) || (monthDate > lastDate))
            {
                popCalData += ("<TD width=\"35\">"+fnt[1]+"&nbsp;</FONT></TD>");
                continue;
            }
            else
            {
                //anchorVal = "<A HREF=\"javascript:window.opener.calPopupSetDate(window.opener.popCalDstFld,'" + (thisMonth+1) + "/" + monthDate + "/" + thisYear + "');window.opener.closeCalPopup()\">";
                anchorVal = "<A HREF=\"javascript:window.opener.calPopupSetDate(window.opener.popCalDstFld,'" + constructDate(monthDate,thisMonth+1,thisYear) + "');window.opener.closeCalPopup()\">";
                jsVal = "javascript:window.opener.calPopupSetDate(window.opener.popCalDstFld,'" + constructDate(monthDate,thisMonth+1,thisYear) + "');window.opener.closeCalPopup()";

                popCalData += ("<TD width=\"35\" "+cellAttribs+" onClick=\""+jsVal+"\">");
                
                if ((firstDay.getMonth() == dtToday.getMonth()) && (monthDate == dtToday.getDate()) && (thisYear == dtToday.getFullYear()) )
                    popCalData += (anchorVal+fnt[2]+monthDate+"</A></FONT></TD>");
                else
                    popCalData += (anchorVal+fnt[1]+monthDate+"</A></FONT></TD>");
                
                weekDay++;
                monthDate++;
            }
        }
        weekDay = popCalFirstDayWeek;
        popCalData += ("</TR>");
    } while( monthDate <= lastDate );
    
    popCalData += ("</TABLE></DIV><BR>");
 
    popCalData += (closeAnchor+"</FONT>"+htmlTail);
    return( popCalData );
}
 
function calPopupSetDate()
{
    calPopupSetDate.arguments[0].value = calPopupSetDate.arguments[1];
}

// utility function
function padZero(num)
{
  return ((num <= 9) ? ("0" + num) : num);
}

// Format short date
function constructDate(d,m,y)
{
  var fmtDate = this.popCalDstFmt
  fmtDate = fmtDate.replace ('dd', padZero(d))
  fmtDate = fmtDate.replace ('d', d)
  fmtDate = fmtDate.replace ('MM', padZero(m))
  fmtDate = fmtDate.replace ('M', m)
  fmtDate = fmtDate.replace ('yyyy', y)
  fmtDate = fmtDate.replace ('yy', padZero(y%100))
  return fmtDate;
}

// ------------------------------------------------------------------
// Utility functions for parsing in getDateFromFormat()
// ------------------------------------------------------------------
function _isInteger(val) {
    var digits="1234567890";
    for (var i=0; i < val.length; i++) {
        if (digits.indexOf(val.charAt(i))==-1) { return false; }
        }
    return true;
    }
function _getInt(str,i,minlength,maxlength) {
    for (var x=maxlength; x>=minlength; x--) {
        var token=str.substring(i,i+x);
        if (token.length < minlength) { return null; }
        if (_isInteger(token)) { return token; }
        }
    return null;
    }
    
// ------------------------------------------------------------------
// getDateFromFormat( date_string , format_string )
//
// This function takes a date string and a format string. It matches
// If the date string matches the format string, it returns the 
// getTime() of the date. If it does not match, it returns 0.
// ------------------------------------------------------------------
function getDateFromFormat(val,format) {
    val=val+"";
    format=format+"";
    var i_val=0;
    var i_format=0;
    var c="";
    var token="";
    var x,y;
    var now=new Date();
    var year=now.getYear();
    var month=now.getMonth()+1;
    var date=1;
        
    while (i_format < format.length) {
        // Get next token from format string
        c=format.charAt(i_format);
        token="";
        while ((format.charAt(i_format)==c) && (i_format < format.length)) {
            token += format.charAt(i_format++);
            }
        // Extract contents of value based on format token
        if (token=="yyyy" || token=="yy" || token=="y") {
            if (token=="yyyy") { x=4;y=4; }
            if (token=="yy")   { x=2;y=2; }
            if (token=="y")    { x=2;y=4; }
            year=_getInt(val,i_val,x,y);
            if (year==null) { return 0; }
            i_val += year.length;
            if (year.length==2) {
                if (year > 70) { year=1900+(year-0); }
                else { year=2000+(year-0); }
                }
            }
        else if (token=="MM"||token=="M") {
            month=_getInt(val,i_val,token.length,2);
            if(month==null||(month<1)||(month>12)){return 0;}
            i_val+=month.length;}
        else if (token=="dd"||token=="d") {
            date=_getInt(val,i_val,token.length,2);
            if(date==null||(date<1)||(date>31)){return 0;}
            i_val+=date.length;}
        else {
            if (val.substring(i_val,i_val+token.length)!=token) {return 0;}
            else {i_val+=token.length;}
            }
        }
    // If there are any trailing characters left in the value, it doesn't match
    if (i_val != val.length) { return 0; }
    // Is date valid for month?
    if (month==2) {
        // Check for leap year
        if ( ( (year%4==0)&&(year%100 != 0) ) || (year%400==0) ) { // leap year
            if (date > 29){ return 0; }
            }
        else { if (date > 28) { return 0; } }
        }
    if ((month==4)||(month==6)||(month==9)||(month==11)) {
        if (date > 30) { return 0; }
        }
    var newdate=new Date(year,month-1,date);
    return newdate;
    }


// ******************
// End Popup Calendar
// ******************