function FP_openWindow(w,h,name,url)
{
var windowProperties='';
windowProperties+='toolbar=no,';
windowProperties+='location=no,';
windowProperties+='status=no,';
windowProperties+='menubar=no,';
windowProperties+='scrollbars=no,';
windowProperties+='resizable=no,';
if(w!="") windowProperties+='width='+w+',';
if(h!="") windowProperties+='height='+h;
if(windowProperties!="")
{ 
if( windowProperties.charAt(windowProperties.length-1)==',') 
windowProperties=windowProperties.substring(0,windowProperties.length-1);
} 
window.open(url,name,windowProperties);
}

function FP_openNewWindow(name,url)
{
var windowProperties='';
windowProperties+='toolbar=no,';
windowProperties+='location=no,';
windowProperties+='status=no,';
windowProperties+='menubar=no,';
windowProperties+='scrollbars=no,';
windowProperties+='resizable=no,';
windowProperties+='width='+'650'+',';
windowProperties+='height='+'650';
{ 
if( windowProperties.charAt(windowProperties.length-1)==',') 
windowProperties=windowProperties.substring(0,windowProperties.length-1); } 
window.open(url,name,windowProperties);
}

function FP_Close()
{
var wl = window.close();
}

function FP_goToURL(url)
{
window.location=url;
}

function FP_callJS()
{
eval(arguments[0]);
}

function FP_changePropRestore()
{ var d=document,x; if(d.$cpe) { for(i=0; i<d.$cpe.length;
i++) { x=d.$cpe[i];
if(x.v=="") x.v="";
eval("x."+x.n+"=x.v");
} d.$cpe=null; }
}

function FP_changeProp()
{
var args=arguments,d=document,i,j,id=args[0],o=FP_getObjectByID(id),s,ao,v,x;
d.$cpe=new Array();
if(o) for(i=2; i<args.length; i+=2) { v=args[i+1]; s="o"; 
ao=args[i].split(".");
for(j=0; j<ao.length; j++) { s+="."+ao[j]; if(null==eval(s)) { 
s=null;
break; } } 
x=new Object; x.o=o; x.n=new Array();
x.v=new Array();
x.n[x.n.length]=s;
eval("x.v[x.v.length]="+s);
d.$cpe[d.$cpe.length]=x;
if(s) eval(s+"=v"); }
}

function FP_getObjectByID(id,o)
{
var c,el,els,f,m,n;
if(!o)o=document;
if(o.getElementById) el=o.getElementById(id);
else if(o.layers) c=o.layers;
else if(o.all) el=o.all[id];
if(el) return el;
if(o.id==id || o.name==id) return o; if(o.childNodes) c=o.childNodes;
if(c)
for(n=0;
n<c.length; n++) { el=FP_getObjectByID(id,c[n]);
if(el) return el; }
f=o.forms; if(f) for(n=0;
n<f.length; n++) { els=f[n].elements;
for(m=0;
m<els.length; m++){ el=FP_getObjectByID(id,els[n]);
if(el) return el; } }
return null;
}