+/*\r
+ overlibmws_crossframe.js plug-in module - Copyright Foteos Macrides 2003-2006\r
+ For support of FRAME.\r
+ Initial: August 3, 2003 - Last Revised: November 2, 2004\r
+ See the Change History and Command Reference for overlibmws via:\r
+\r
+ http://www.macridesweb.com/oltest/\r
+\r
+ Published under an open source license: http://www.macridesweb.com/oltest/license.html\r
+*/\r
+\r
+OLloaded=0;\r
+OLregCmds('frame');\r
+\r
+function OLparseCrossframe(pf,i,ar){\r
+var k=i,v;\r
+if(k<ar.length){\r
+if(ar[k]==FRAME){v=ar[++k];if(pf=='ol_')ol_frame=v;else OLoptFRAME(v);return k;}}\r
+return -1;\r
+}\r
+\r
+function OLgetFrameRef(thisFrame,ofrm){\r
+var i,v,retVal='';for(i=0;i<thisFrame.length;i++){if((((thisFrame[i].length>0)))&&(((OLns4))||\r
+((OLie4)&&(v=thisFrame[i].document.all.tags('iframe'))!=null&&v.length==0)||\r
+((OLns6)&&(v=thisFrame[i].document.getElementsByTagName('iframe'))!=null&&v.length==0))){\r
+retVal=OLgetFrameRef(thisFrame[i],ofrm);if(retVal=='')continue;}\r
+else if(thisFrame[i]!=ofrm)continue;retVal='['+i+']'+retVal;break;}\r
+return retVal;\r
+}\r
+\r
+function OLoptFRAME(frm){\r
+o3_frame=OLmkLyr('overDiv',frm)?frm:self;if(o3_frame!=self){\r
+var l,tFrm=OLgetFrameRef(top.frames,o3_frame),sFrm=OLgetFrameRef(top.frames,ol_frame);\r
+if(sFrm.length==tFrm.length) {l=tFrm.lastIndexOf('[');if(l){\r
+while(sFrm.substring(0,l)!=tFrm.substring(0,l))l=tFrm.lastIndexOf('[',l-1);\r
+tFrm=tFrm.substr(l);sFrm=sFrm.substr(l);}}var i,k,cnt=0,p='',str=tFrm;\r
+while((k=str.lastIndexOf('['))!= -1){cnt++;str=str.substring(0,k);}\r
+for(i=0;i<cnt;i++)p=p+'parent.';OLfnRef=p+'frames'+sFrm+'.';}\r
+}\r
+\r
+OLregCmdLineFunc(OLparseCrossframe);\r
+\r
+OLcrossframePI=1;\r
+OLloaded=1;\r