//Popup system, copyright 2002 Ch'ng Khong
var wW,oF,gS,oS,nS
wH='<style type=text/css>a{text-decoration:none}a:hover{color:red}body,td{font:8pt sans-serif}div{padding:3px}.RH{background:#cdf}</style>'
+'<body bgcolor=aaccff leftmargin=0 topmargin=0 marginheight=0 marginwidth=0>';
function xPW(){if(wW && !wW.closed) wW.close()}//;window.onfocus=null}
window.onunload=xPW

//Calendar
var dy,mn,yr
function pCL(e,o,x){
oF=o;x=x?x-0:0
xPW();wW=window.open('','pop','width=168,height=135,top='+(e.screenY-50)+',left='+(e.screenX+x))
dCL(o?o.value:0)
return false
}
function sCL(d){if(oF&&!oF.readOnly)oF.value=d+'/'+(mn+1)+'/'+yr;wW.close();if(oF.onchange)oF.onchange()}
function dCL(n){
var wkd=['Su','Mo','Tu','We','Th','Fr','Sa'],
	mds=[31,28,31,30,31,30,31,31,30,31,30,31],
	mon=['Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec']
var wD=new Date();dy=wD.getDate();mn=wD.getMonth();yr=wD.getFullYear()
var tD=dy+'/'+(mn+1)+'/'+yr;wD.setDate(1)
n='0'+n
var a=n.split(/\W/);
if(a[1]-0){dy=a[0]-0;mn=a[1]-1;yr=a[2]-0;if(yr<100)yr+=2000;wD.setFullYear(yr,mn)}
wC=wH+'<table width=100% cellspacing=0><tr align=center class=RH>'
+'<td><a href=javascript:opener.dCL("'+dy+'/'+(mn+1)+'/'+(yr-1)+'")><<</a></td>'
+'<td><a href=javascript:opener.dCL("'+dy+'/'+(mn?mn:12)+'/'+yr+'")><</a></td>'
+'<td colspan=3><b>'+mon[mn]+' '+yr+'</td>'
+'<td><a href=javascript:opener.dCL("'+dy+'/'+(mn>10?1:mn+2)+'/'+yr+'")>></a></td>'
+'<td><a href=javascript:opener.dCL("'+dy+'/'+(mn+1)+'/'+(yr+1)+'")>>></a></td>'
+'</tr><tr align=center>'
for(var i=0;i<7;++i) wC+='<td width=22>'+wkd[i]+'</td>'; wC+='</tr>'
var dM=(mn==1)&&(yr%4==0)?29:mds[mn],d=-wD.getDay()
//for(var i=parseInt((dM-d+6)/7);i>0;--i){
for(var i=6;i>0;--i){
	wC+='<tr align=center>'
	for(var j=7;j>0;--j)
		wC+='<td>'+((++d>0 && d<=dM)?'<a href=javascript:opener.sCL('+d+')>'
		  +(d==dy?'<font color=red>':'')+d+'</a>':'&nbsp')+'</td>'
	wC+='</tr>'
	}
wC+='<tr align=center class=RH><td colspan=7><a href=javascript:opener.dCL("'
	+tD+'")>'+tD+'</a></td></tr></table>'
wW.document.write(wC);wW.document.close()
}

//Data list
function pDB(e,o,d,s){
var w,h,g,wC,c;
oF=o;oS=document.getElementById(s)
if(wA=window[d]){
	d='';a=wA[0].split(':')
  wC=wH+'<title>'+a[0]+'</title>';
	for(var i=1;i<wA.length;++i)if(j=wA[i]){
		if(nS){b=j.split(' : ');b=b[1]}else b=j
		c=(c?'':' class=RH')
		wC+='<div'+c+'><a href="javascript:opener.sDB(\''+j.replace(/'/g,'\\\'')+'\')">'
			+b+'</a></div>'
		}
	}
else{
	a=d.split(':')
	d=location+'&w='+a[0]
	}
w=a[1];h=[2];x=a[3]-0;gS=a[4];nS=a[5];if(!w){w=140;h=70;x=0}
xPW();wW=window.open(d,'pop','scrollbars,width='+w+',height='+h+',top='+(e.screenY-50)+',left='+(e.screenX+x))
if(wC)wW.document.write(wC);
wW.document.close()
return false
}
function sDB(i){
if(oF&&!oF.readOnly){
	t=oF.value;a=i.split(' : ');oF.value=a[0];
	if(oS)oS.innerHTML=(nS?a[1]:i);
	if(gS)oF.value+=gS+t; else wW.close();
	if(oF.onchange)oF.onchange();
	}
else wW.close();
}

//html
function pHW(a,w,h,t,l){
if(a){
	if(!w){w=580;h=300}
	if(!t){t=l=0}
	h+=',top='+t+',left='+l
	xPW();wW=window.open(a,'pop','scrollbars,resizable,width='+w+',height='+h)
	//window.onfocus=xPW;
	return false
	}
return true
}

