// Copyright 2010 by Robert Taylor -- Dynamic iframe multi purpose elementn 
// created May 13, 2010 
// Modified May 25-26 - alternate program parsm and visiability reposoible by called program.

var RTiframe=document.createElement("iframe");
RTiframe.name = RTiframe.id = "RTifrm";
RTiframe.style.visibility = "hidden";
RTiframe.height = "0";
RTiframe.width = "0";
RTiframe.style.zIndex = "100";
RTiframe.style.position = "absolute";
RTiframe.style.top = "0";
RTiframe.style.left = "0";
RTiframe.allowTransparency = "true";
RTiframe.scrolling = "no";
RTiframe.style.margin = "0";
RTiframe.frameBorder = "0";
RTiframe.src = "/blank.php";
document.body.appendChild(RTiframe);


//Javascript to open a window at releative mouse position when the click event occurs
function OpeniFrame(url1,parm1,pident,data2,Lx,Ty) {
	var pident, rdate, Lx, Ty;
	var url1, parm1;
	var url = "utils/"+url1;
	var iframe = document.getElementById('RTifrm');
	iframe.style.top = Ty+'px';
	iframe.style.left = Lx+'px';
if (parm1 == 1)
	iframe.src = url+'?PID='+pident+'&Ty='+Ty+'&Lx='+Lx; // URL
else if (parm1 == 2)
	iframe.src = url1+'?PID='+pident+'&INS='+data2+'&Ty='+Ty+'&Lx='+Lx; // URL	
}

function OpenWindowAt(url1,parm1,data1,data2, e ) {
// step 1
  var tempX = 0;
  var tempY = 0;
  var offsetX = -50;
  var offsetY = -80;
  var data1;
  var data2;
  var url1;
  var parm1
  var e;
  var isOpera = (navigator.userAgent.indexOf('Opera') != -1);
  var isIE = (!isOpera && navigator.userAgent.indexOf('MSIE') != -1)

// step 2
//  obj = getObject( obj );
//  if (obj==null) return;
// This code fixes IE relative document position with respect to scroll bar (Vertical)
var ScrollTop = document.body.scrollTop;
if (ScrollTop == 0)
{
    if (window.pageYOffset)
        ScrollTop = window.pageYOffset;
    else
        ScrollTop = (document.body.parentElement) ? document.body.parentElement.scrollTop : 0;
}

// step 3
	if (!e) var e = window.event;
	if (e.pageX || e.pageY)
	{
		tempX = e.pageX;
		tempY = e.pageY;
	}
	else if (e.clientX || e.clientY)
	{
		tempX = e.clientX + document.body.scrollLeft;
//		tempY = e.clientY + document.body.scrollTop;
		tempY = e.clientY + ScrollTop;
	}
	var st = document.body.scrollTop; 
	var cy = e.clientY;
	var py = e.pageY;
	
//	if (cy > 404) {	tempY -= (cy - 404);}
//alert('X:'+tempX+' Y:'+tempY+'  IE:'+isIE);
//alert('ST:'+st+' cY:'+cy+' ScrollTop:'+ScrollTop);
//alert('pY:'+py);
/*
 if (document.all) {
    tempX = event.clientX + document.body.scrollLeft;
    tempY = event.clientY + document.body.scrollTop;
  } else {
    tempX = e.pageX;
    tempY = e.pageY;
  }
	tempX = e.screenX;
	tempY = e.screenY;

	tempY = tempY - 170;
	tempX = tempX - 170;
*/	
  // step 4
  if (tempX < 0){tempX = 0}
  if (tempY < 0){tempY = 0}

  // step 5
//  obj.style.top  = (tempY + offset) + 'px';
//  obj.style.left = (tempX + offset) + 'px';
  Ty = (tempY + offsetY);
  Lx = (tempX + offsetX);

// step 6
//  displayObject( objHolder, true );
//	OpenNewWindow(data1,data2,Lx,Ty);
	OpeniFrame(url1,parm1,data1,data2,Lx,Ty);
}