function popup(url,framename) {    
    var w=parent.open(url,framename,"top=200,left=200,width=400,height=200,scrollbars=1,resizable=1");
    if (w&&url.split(":")[0]=="mailto") w.close();
    else if (w&&!framename) w.focus();
}

// return the d(ate) of the q-th n-day of a specific m(onth) in a specific y(ear)
function getDateByDOW(y,m,q,n) { 
// q: 1 - 5 ( 5 denotes the last n-day )
// n: 0 - Sunday, 1 - Monday ... 6 - Saturday
    var dom=new Date(y,m-1,1).getDay();
    var d=7*q-6+n-dom;
    if (dom>n) d+=7;
    if (d>fGetDays(y)[m]) d-=7;
    return d;    // ranged from 1 to 31
}

// ====== Following are self-defined and/or custom-built functions! =======

var _startc,_endc;
function fStartPop(startc,endc) {
  _startc=startc;
  _endc=endc;
  var sd=fParseDate(endc.value); 
  if (!sd) sd=gEnd;
  fPopCalendar(startc, [gBegin,sd,sd]);
}

function fEndPop(startc,endc) {
  _startc=startc;
  _endc=endc;
  var sd=fParseDate(startc.value);
  if (!sd) sd=gBegin; 
  fPopCalendar(endc, [sd,gEnd,sd]);
}

function fClearSelected() { // clear the date field and reset the dynamic range.
  _startc.value="";
  _endc.value="";
  fUpdSelect(0,0,0);
  gRange=[gBegin,gEnd];
  gdBegin=new Date(gBegin[0],gBegin[1]-1,gBegin[2]);
  gdEnd=new Date(gEnd[0],gEnd[1]-1,gEnd[2]);
  fRepaint();
}




// ======= the following plugin is coded for the artificial internal dropdown seletors ========
// You may change the left,top in the fPopMenu() to adjust the popup position.
// Other Settings
var _highlite_background="black";    // highlight background color
var _highlite_fontColor="white";    // highlight font color
var _pop_length=7;    // how many months to be shown
var _pop_width=80;    // pixels of the popup width

// Override the gsCalTitle option to popup a date-selector layer. Remember to keep it as an expression or a function returning a string.
gsCalTitle="\"<a class='PopAnchor' href='javascript:void(0);' onclick='if(this.blur)this.blur();fPopMenu(this,event);return false;'>\"+gMonths[gCurMonth[1]-1]+' '+gCurMonth[0]+\"</a>\"";



function fPopMenu(dc,e) {
    var lyr=NN4?document.freeDiv0:fGetById(document,"freeDiv0");
    var bv=NN4?lyr.visibility=="show":lyr.style.visibility=="visible";
    if (bv) { fToggleLayer(0,false); return; }
    fSetDPop(gCurMonth[0],gCurMonth[1]);
    if (NN4) with (lyr) {
        left=25;
        top=4;
    } else with (lyr.style) {
        left=25+"px";
        top=4+"px";
    }
    fToggleLayer(0,true);
}

var _tmid=null;
function fSetDPop(y,m) {
    var mi=_pop_length;
    var wd=_pop_width;
    var sME=NN4||IE4?"":" onmouseover='fToggleColor(this,0)' onmouseout='fToggleColor(this,1)' ";    // menu-item focus background-color
    var padstr="&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;";
    var cm=fCalibrate(y,m);
    var a=[NN4||IE4||IE&&MAC?"<table border=1 cellspacing=0 cellpadding=0><tr><td>":"","<div onmouseover='clearTimeout(_tmid)' onmouseout='_tmid=setTimeout(\"fToggleLayer(0,false)\",100)'><table class='PopMenu' border=0 cellspacing=0 cellpadding=0><tr><td align='center' class='PopMenuItem' nowrap width=",wd,sME," onclick='fSetDPop(",cm[0],",",cm[1]-mi,")'><a class='PopMenuItem' href='javascript:void(0)' onclick='if(NN4)fSetDPop(",cm[0],",",cm[1]-mi,");return false;'>",padstr,"-",padstr,"</a></td></tr>"];
    var al=a.length;
    for (var i=0;i<mi;i++) {
        var lm=fCalibrate(cm[0],cm[1]-Math.floor(mi/2)+i);
        if (!fIsOutRange(lm[0],lm[1]))
            a.push("<tr><td align='center' class='PopMenuItem' nowrap width=",wd,sME," onclick='fToggleLayer(0,false);fSetCal(",lm[0],",",lm[1],",0,true,event);'><a class='PopMenuItem' href='javascript:void(0)' onclick='if(NN4)fSetCal(",lm[0],",",lm[1],",0,true,event);return false;'>",gMonths[lm[1]-1]," ",lm[0],"</a></td></tr>");
    }
    if (a.length==al) {
        if (gsOutOfRange) alert(gsOutOfRange);
        return; // No change since none of them is in valid range
    }
    a.push("<tr><td align='center' class='PopMenuItem' nowrap width=",wd,sME," onclick='fSetDPop(",cm[0],",",cm[1]+mi,")'><a class='PopMenuItem' href='javascript:void(0)' onclick='if(NN4)fSetDPop(",cm[0],",",cm[1]+mi,");return false;'>",padstr,"+",padstr,"</a></td></tr></table></div>",
        NN4||IE4||IE&&MAC?"</td></tr></table>":"");
    fDrawLayer(a.join(''));
}

var _cPair=[];
function fToggleColor(obj,n) {
    if (NN4||IE4) return;
    if (n==0) { // mouseover
        _cPair[0]=obj.style.backgroundColor;
        obj.style.backgroundColor=_highlite_background;
        _cPair[1]=obj.firstChild.style.color;
        obj.firstChild.style.color=_highlite_fontColor;
    } else {
        obj.style.backgroundColor=_cPair[0];
        obj.firstChild.style.color=_cPair[1];
    }
}

function fToggleLayer(id,bShow) {
    var lyr=NN4?eval("document.freeDiv"+id):fGetById(document,"freeDiv"+id);
    if (NN4) lyr.visibility=bShow?"show":"hide";
    else lyr.style.visibility=bShow?"visible":"hidden";
}

function fDrawLayer(html) {
    var lyr=NN4?document.freeDiv0:fGetById(document,"freeDiv0");
    if (IE4||IE&&MAC) lyr.style.border="0px";
    if (NN4) with (lyr.document) {
        clear(); open();
        write(html);
        close();
    } else {
        lyr.innerHTML=html+"\n";
    }
}


// ======= end of dropdown plugin ========