var dlgnr=1;
var from_id="";
var from_csize="";
var to_selfobj=null;
var _sscroll=26;
var url="../tsite.asp?BASE=TS";
var DLG=0;
var id="";
function toLink(ltype,ldata,dlg,dlgw,dlgh,target) {  
  var lurl="";  var anchor="";  var toCSize = "550";  
  if (dlg==1 || dlg==3) toCSize = (""+(dlgw));  
  if (target==null || target=="") target="_self";  
  switch (ltype) {    
    case 1:      
      var arr = ldata.split("|");      
      if (arr.length>1) {        
         if (arr[1].indexOf("TMPLLINK=1")==0) {          
         if (arr.length>2) arr[1]+=("&ANCHOR="+arr[2]);          
         lurl = "/extranet/tsite.asp?BASE=TS&CSIZE="+toCSize+"&ID="+arr[0]+"&"+arr[1];          
         if (dlg==0 && (DLG==0 || target=="_website")) {             
           if (target=="_website" || target=="_self") {              
             to(arr[0],arr[1]);              
             if (DLG==1 && target=="_website") window.setTimeout("window.close();",50);              
             return;            
          }          
        };        
      }        
      else {          
       if (target=="_dontnav") {            
         lurl = "/extranet/tsite.asp?BASE=TS&CSIZE="+toCSize+"&ID="+arr[0];            
         target="_self";          
       }          
       else            
         lurl = "/extranet/tsite.asp?BASE=TS&SETMENU=TRUE&CSIZE="+toCSize+"&ID="+arr[0];          
       anchor="#"+arr[1];          
       if (dlg==0 && (DLG==0 || target=="_website")) {             
         if (target=="_website" || target=="_self") {              
           to(arr[0],anchor);              
           if (DLG==1 && target=="_website") window.setTimeout("window.close();",50);              
           return;            
         }          
       };        
     }      
    }      
    else {        
      if (dlg==0 && (DLG==0 || target=="_website")) {           
        if (target=="_website" || target=="_self") {             
          to(ldata);             
          if (DLG==1 && target=="_website") window.setTimeout("window.close();",50);             
          return;           
        }        
      };        
      if (target=="_dontnav") {          
        lurl = "/extranet/tsite.asp?BASE=TS&CSIZE="+toCSize+"&ID="+ldata;          
        target="_self";        
    }        
    else          
      lurl = "/extranet/tsite.asp?BASE=TS&SETMENU=TRUE&CSIZE="+toCSize+"&ID="+ldata;      
   }      
   break;    
   
   case 2:      
     lurl = ldata;      
   break;    
   
   case 4:      
     lurl = "#"+ldata;      
   break;    
   
   case 5:      
     lurl = ldata;      
   break;    
   
   case 6:      
     lurl = "/extranet/tsite.asp?BASE=TS&SETMENU=TRUE&CSIZE="+toCSize+"&MOD="+ldata+"&ID="+id;      
   break;    
   
   case 7:      
     lurl = ldata;      
   break;  
  }  
  var sdlg = ""+dlg;  
  if (sdlg=="true" || sdlg=="1" || sdlg=="3") {    
    if (ltype==1) lurl+="&DLG=1";    
    if (dlgw<10) dlgw=10;    
    if (dlgh<10) dlgh=10;    
    if (ltype==6) lurl+=("&CWIDTH="+(dlgw-22));    
    if (anchor!="") lurl+=anchor;    
    var w;    
    if (sdlg=="3")      
      w = mtDlgScroll("PAGELNKDLG"+id+(dlgnr++),dlgw,dlgh,lurl);    
    else       
      w = mtDlgWindow("PAGELNKDLG"+id+(dlgnr++),dlgw,dlgh,lurl);  	 
    return;  
  }  
  else  
  if (sdlg=="2") {    
    if (ltype==1) lurl+="&DLG=1";    
    if (ltype==6) lurl+=("&CWIDTH="+(mtScreenWidth-22));    
    if (anchor!="") lurl+=anchor;    
    var w = mtWindow("PAGELNKDLG"+id+(dlgnr++),lurl);  
  }  
  else {    
    if (ltype==4) {      
      window.location = lurl;      
      return;    
    }    
    if (anchor!="") 
      lurl+=anchor;    
    switch(target) {      
      case "_self" :        
        if (DLG==1) {          
          lurl+="&DLG=1";          
          if (window.parent!=null) window.parent.window.location = lurl;            
          else window.location = lurl;        
        }        
        else {          
          window.location = lurl;        
        }      
      break;      
      case "_parent" :         
        var p = window.parent;         
        if (p!=null) p.window.location = lurl;           
          else window.location = lurl;      
      break;      
      case "_top" :         
        var t = window.top;         
        if (t!=null) t.window.location = lurl;           
          else window.location = lurl;      
      break;      
      default:        
         window.open(lurl,target);      
      break;    
    }  
  }
}

function to(cmd,extra) {
  var f = findFrame("FRTOP");
  if (f==null) { 
    window.setTimeout('to("'+cmd+'","'+extra+'");',100);
    return;
  };
  if (f.toSite==null) { 
    window.setTimeout('to("'+cmd+'","'+extra+'");',100);
    return;
  };
  switch(cmd) {
    case "sitemap":
    case "personalpage":
    case "search":
       if (f!=null) {
       	if (cmd=="personalpage" && f.personalpage!=null) f.window.setTimeout("personalpage();",500);
	        else
       	if (cmd=="sitemap" && f.sitemap!=null) f.window.setTimeout("sitemap();",100);
	        else
       	if (cmd=="search" && f.search!=null) {
             if (extra!="" && extra!=null) f.window.setTimeout("search('"+extra+"');",100);
               else f.window.setTimeout("search();",500);
           }
       }
       break;
    default:
      f.window.setTimeout('toSite("'+cmd+'",true,"'+extra+'");',10);
  }
};

function rsCreplace(value,start,wat,door,dx) {
  if (dx==null) dx=1;
  start = start.toLowerCase();
  var vl = value.toLowerCase();
  var wat = wat.toLowerCase();
  var pi = vl.indexOf(start);
  var work="";
  while (pi>=0) {
    pi+=(start.length+dx);
    work+=value.substr(0,pi);
    value=value.substr(pi,value.length-pi);
    vl=vl.substr(pi,vl.length-pi);
    pi=0;
    if (wat!="") {
      if (vl.indexOf(wat)==0) {
        work+=door;
        pi+=(wat.length);
      }
    }
    else {
        if (vl.indexOf(door)!=0 && 
            vl.indexOf("http://")!=0 && 
            vl.indexOf("https://")!=0 && 
            vl.indexOf("/")!=0 && 
            vl.indexOf("mailto:")!=0 && 
            vl.indexOf("javascript:")!=0) {
        work+=door;
        pi+=(wat.length);
      }
    }
   if (pi>0) {
      value=value.substr(pi,value.length-pi);
      vl=vl.substr(pi,vl.length-pi);
    }
    pi = vl.indexOf(start);
  }
  work+=value;
  return work;
}

var _ptpParent = null;
function pushContent(_prefix,pfield,ptpID,ptpLoc) {
   if (_prefix==null) _pre="";
   if (pfield==null) pfield="CONTENT";
   var par = window.parent;
   _ptpParent = par;
   var _loc = "'+ptpLoc+'";
   var pre="";
   if (ptpID.indexOf("_")>0) {
     var pa = ptpID.split("_");
     for (var p=0; p<pa.length-1; p++) {
       pre+=pa[p];
       if (p<pa.length-2) pre+="_";
     }
     var pa = _loc.split("_");
     var _loc="";
     for (var p=0; p<=pa.length-1; p++) {
       _loc+=pa[p];
       if (p<pa.length-1) _loc+="_";
       if (p==0) _loc+=pre;
     }
   }
   if (_ptpParent._ptpParent!=null) _ptpParent=_ptpParent._ptpParent;
   var cs = document.getElementById(pfield);
   var cd = _ptpParent.document.getElementById(_loc);
   if (cd!=null && cs!=null) {
     var csw= cs.innerHTML;
     if (_ptpID!="") {
       csw = rsCreplace(csw,"id=CO_","",ptpID,0);
     }
     csw = "<TABLE CELLPADDING=\"0\" CELLSPACING=\"0\" WIDTH=\"100%\"><TR valign=\"top\"><td WIDTH=\"100%\">" + csw + "</TD></TR></TABLE>";
     cd.innerHTML = csw;
     if (cs.className!=null) if (cs.className!="") 
     if (cd.className!=cs.className) cd.className=cs.className;
   }
}