var domainLN = ""
var re=/http:\/\//i
var re1=/^http:/i
var re2=/^mailto:/i
var re3=/^javascript:/i
var re4=/^https:\/\//
var LNdoc = "" + location;
var LNLoc = ""
if(LNLoc==""){
	if(LNdoc.search(re) != -1 | LNdoc.search(re4) != -1){
		LNdoc = LNdoc.replace(re,"")
		LNdoc = LNdoc.replace(re4,"")
		re = /^[^\/]+\//
		LNdoc = "/"+LNdoc.replace(re,"")
	}
	re=/\?OpenDocument.*/i
	if(LNdoc.search(re) != -1) {
		LNdoc = LNdoc.replace(re, "")
	}
	if (LNdoc.indexOf("#") != -1) {
		LNdoc = LNdoc.substring(0,LNdoc.indexOf("#"))
	}
}else{
	LNdoc = LNLoc
}
var LNtexts=['American Perspectives*', 'Riding the new waves of change', 'About the project', 'Realigning world economic balance', 'Navigating the big risks/opportunities', 'Managing the way we live/work now...', 'Leveraging innovation', 'Cyclical time, solid foundations', 'Interviews', 'Enrique Rueda-Sabater', 'Joel Cohen', 'Dan Ariely', 'Sylvia Ann Hewlett', 'Kevin Kelly', 'Gerard Tellis', 'Clay Shirky', 'Antoine van Agtmael', 'Stewart Brand', 'Daniel Esty', 'Download', '<a href="http://www.materialogic.com/sas.engine?template=mcf.deployments.infoplus.estore.quickestore.quickestore909ap08.QuickEStore909AP08Master" onclick="wrs_trackclick (&#39;DCSext.pwcsection=Publications&#39;,&#39;DCSext.pwcsubsect=None&#39;,&#39;DCSext.pwcmarketing=American Perspectives&#39;, &#39;DCSext.pwcsubmarketing=2018&#39;,&#39;DCSext.pwcpublication=American Perspectives&#39;,&#39;DCSext.pwcsubpub=2018&#39;,&#39;DCSext.pwccontype=Publication&#39;,&#39;DCS.dcsuri=http://www.materialogic.com/sas.engine?template=mcf.deployments.infoplus.estore.quickestore.quickestore909ap08.QuickEStore909AP08Master&#39;, &#39;WT.ti=American Perspectives: Order link&#39;)" target="_blank">Order a hard copies</a>', 'Contact us']
var LNURLs=['/extweb/home.nsf/docid/22343647E2458221852574B10053860E', '/extweb/home.nsf/docid/AEE1D9744DA2B67C852574B1005CA5C3', '/extweb/home.nsf/docid/E634917F7F2E4A7E852574B100611B9C', '/extweb/home.nsf/docid/58F8E7A226EFB8A7852574B1005CA8BE', '/extweb/home.nsf/docid/871A9A0C9C6E8CBC852574B1005CAB46', '/extweb/home.nsf/docid/78320391C974BF9D852574B1005CADBA', '/extweb/home.nsf/docid/718C02A7E8B8758D852574B1005CB2B8', '/extweb/home.nsf/docid/CBF8273935962C27852574C7006C177C', '/extweb/home.nsf/docid/F2B15B94578A7503852574B100604BF7', '/extweb/home.nsf/docid/BB2237A21545A845852574B400506F9B', '/extweb/home.nsf/docid/A6902AB8781E1620852574B40052358B', '/extweb/home.nsf/docid/428CA64099F6FE2C852574B4005238C4', '/extweb/home.nsf/docid/80B2FBB57A55A22C852574B400523B3E', '/extweb/home.nsf/docid/FC36284EB1782FEE852574B400523DAE', '/extweb/home.nsf/docid/A773EEC73165D2D9852574B400523FFC', '/extweb/home.nsf/docid/13797B4A2DA25E06852574DA005D10FC', '/extweb/home.nsf/docid/70693AA52D8F2253852574D6006FBE15', '/extweb/home.nsf/docid/7F40FDDB1DE0C0F4852574DB00540E50', '/extweb/home.nsf/docid/3AC55A613996B9B4852574DA0063F4E8', '/extweb/onlineforms.nsf/weblookup/USENGALLS2018Download', '-', '/extweb/onlineforms.nsf/weblookup/USENGALLS2018Contactus']
var LNtargets=['_self', '_self', '_self', '_self', '_self', '_self', '_self', '_self', '_self', '_self', '_self', '_self', '_self', '_self', '_self', '_self', '_self', '_self', '_self', '_self', '_self', '_self']
var LNlinkLevels=['0', '0', '0', '0', '0', '0', '0', '0', '0', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '0', '0', '0']

var LNS1="<IMG SRC='/images/ui/tran.gif' WIDTH='10' HEIGHT='1' BORDER='0' ALT=''>"
var LNS2="<IMG SRC='/images/ui/tran.gif' WIDTH='1' HEIGHT='3' BORDER='0' ALT=''>"
var LNsel=''
var LNsel2=''
var LNwin=''
function buildLHNav(){
	lhnavMenu();
}
function newLevel( LNText, LNURL, LNtarget, LNHighlighted, stepLevel ){
	var LN = "";
	var LNWin = "";
	var listStart = "";
	var endListItem = "";
	var newList = "";
	var endList = "";
	var LNURL_lc = LNURL;
	LNURL_lc = LNURL_lc.toLowerCase()
	if (LNHighlighted == 1){
		listStart="<li class='Selected'><div class='LHNEntry'>";
	} else {
		listStart="<li><div class='LHNEntry'>";
	}
	if (LNtarget != ""){
		LNwin = " target='" + LNtarget + "'";
	} else {
		LNwin = "";
	}
	if (stepLevel == 0) {
		//Same level
		endListItem = "</li>";
		newList = "";
		endList = "";
	} else if (stepLevel == 1) {
		//Down a level
		endListItem = "";
		newList = "<ul>";
		endList = "";
	} else if (stepLevel == -1) {
		//Up a level
		endListItem = "</li>";
		newList = "";
		endList = "</ul></li>";
	} else { // it's -2
		//UP 2 levels
		endListItem = "</li>";
		newList = "";
		endList = "</ul></li></ul></li>";
 	}
	LN += endList + listStart;
	if(LNURL_lc != "-" && LNURL_lc!=""){
		if((LNURL_lc.indexOf(re1) != 0) & !(LNURL_lc.indexOf(re2) != 0) & (LNURL_lc.indexOf(re3) != 0) & (LNURL_lc.indexOf(re4) != 0)) {
			LNURL = domainLN + LNURL;
		}
		LN+="<a href='" + link( LNURL ) + "'" + LNwin + " title='" + LNText + "'>";
	}
	LN += LNText;
	if(LNURL_lc != "-" && LNURL_lc!=""){
		LN+="</a>";
	}
	LN += "</div>" + endListItem + newList;
	
	return (LN);
}
function lhnavMenu(){
	var LNout=''
	var subLevNo
	var subSubNo
	var mainNo= -1
	var LNsuccess=0
	var main=new Array()
	var subLev = new Array()
	var subSub = new Array()
	var p = 0;
	var shns=1
	var lastLevel=1;
	if (LNdoc){
		var LC=LNdoc.toLowerCase()
		for (i=0; i<LNURLs.length; i++){
			if (LNlinkLevels[i]==0){
				mainNo++
				main[mainNo]=i
				var subLev = new Array();
				subLevNo = -1;
				var subSub = new Array();
				subSubNo = -1;
			}else if (LNlinkLevels[i]==1){
				var subSub = new Array();
				subSubNo = -1;
				subLevNo++;
				subLev[subLevNo]=i;
			}else if (LNlinkLevels[i]==2){
				subSubNo++;
				subSub[subSubNo]=i;
			}
			LNtemp = LNURLs[i]
			if (LNtemp.indexOf("#") != -1){
				LNtemp = LNtemp.substring(0,LNtemp.indexOf("#"))
			}
			if(LNtemp.toLowerCase()==LC){
				LNsuccess=1;
				i++;
				//Write all level 0 entries not selected
				for (j=0; j<mainNo; j++){
					p = main[j];
					LNout += newLevel(LNtexts[ p ], LNURLs[ p ], LNtargets[ p ], 0, 0)
				}
				//if we're still on level 0, then write a selected level 0 entry
				if (subLevNo == -1) {
					p = main[ mainNo ];
					//We have to know BEFORE we write the current link whether the next link will need a new level, hence the IFs
					if ( i < LNURLs.length ){
						if ( parseInt( LNlinkLevels[ i ] ) > parseInt( LNlinkLevels[ i - 1 ] )){
							LNout += newLevel(LNtexts[ p ], LNURLs[ p ], LNtargets[ p ], 1, 1);
						} else {
							LNout += newLevel(LNtexts[ p ], LNURLs[ p ], LNtargets[ p ], 1, 0);
						}
					} else {
						LNout += newLevel(LNtexts[ p ], LNURLs[ p ], LNtargets[ p ], 1, 0);
					}
				} else {
					p = main[ mainNo ];
					LNout += newLevel(LNtexts[ p ], LNURLs[ p ], LNtargets[ p ], 0, 1)
					//this one starts a new level
				}
				for (j=0; j < subLevNo; j++){
					lastLevel = 1;
					p = subLev[ j ];
					LNout += newLevel(LNtexts[ p ], LNURLs[ p ], LNtargets[ p ], 0, 0)
				}
				if ( subLevNo > -1 && subSubNo == -1) { // we hightlight this item (& no level 2 items shown)
					lastLevel = 1;
					p = subLev[subLevNo];
					//We have to know BEFORE we write the current link whether the next link will need a new level, hence the IFs
					if ( i < LNURLs.length ){
						if ( parseInt( LNlinkLevels[ i ] ) > parseInt( LNlinkLevels[ i - 1 ] )){
							LNout += newLevel(LNtexts[ p ], LNURLs[ p ], LNtargets[ p ], 1, 1)
						} else {
							LNout += newLevel(LNtexts[ p ], LNURLs[ p ], LNtargets[ p ], 1, 0)
						} 
					} else {
						LNout += newLevel(LNtexts[ p ], LNURLs[ p ], LNtargets[ p ], 1, 0)
					}

				} else if (subLevNo > -1){
					lastLevel = 1;
					p = subLev[subLevNo];
					LNout += newLevel(LNtexts[ p ], LNURLs[ p ], LNtargets[ p ], 0, 1)
					//this one starts a new level
				}
				for (j=0; j < subSubNo; j++){
					lastLevel = 2;
					p = subSub[j];
					LNout += newLevel(LNtexts[ p ], LNURLs[ p ], LNtargets[ p ], 0, 0)
				}
				if (subSubNo > -1) {
					lastLevel = 2;
					p = subSub[subSubNo];
					LNout += newLevel(LNtexts[ p ], LNURLs[ p ], LNtargets[ p ], 1, 0)
				}
				var foundAt = i;
				while (i < LNURLs.length) { //write the rest
					thisLevel = parseInt( LNlinkLevels[ i ] );
					if (i == foundAt) {
						lastLevel = thisLevel
						if ( ( parseInt( LNlinkLevels[ i-1 ] ) - thisLevel ) > 1){
							LNout += newLevel(LNtexts[ i ], LNURLs[ i ], LNtargets[ i ], 0, -2);
						} else if (thisLevel < parseInt( LNlinkLevels[ i-1 ] )){
							LNout += newLevel(LNtexts[ i ], LNURLs[ i ], LNtargets[ i ], 0, -1);
						}else {
							LNout += newLevel(LNtexts[ i ], LNURLs[ i ], LNtargets[ i ], 0, 0);
						}
					} else {
						if ( (lastLevel - thisLevel) > 1 ) {
							LNout += newLevel(LNtexts[ i ], LNURLs[ i ], LNtargets[ i ], 0, -2);
							lastLevel = thisLevel;
						} else if (thisLevel < lastLevel) {
							LNout += newLevel(LNtexts[ i ], LNURLs[ i ], LNtargets[ i ], 0, -1);
							lastLevel = thisLevel;
						} else if (thisLevel == lastLevel){
							LNout += newLevel(LNtexts[ i ], LNURLs[ i ], LNtargets[ i ], 0, 0);
							lastLevel = thisLevel;
						}
					}
					i++;
				}
		
			}
		}
	}
	if (!LNsuccess){
		for (i=0; i < LNURLs.length; i++){
			if ( LNlinkLevels[ i ]=="0" ){
				LNout += newLevel(LNtexts[ i ], LNURLs[ i ], LNtargets[ i ], 0, 0);
			}
		}
	}
	document.writeln("<div class='LHN'>");
	document.writeln("<ul>");
	document.writeln(LNout);
	document.writeln("</ul>");
	document.writeln("</div>");
}