<!--  Activate Cloaking Device

function listorgs(l2group, l3group){

var orgarray = new Array()
var cookiestring

if (l2group=="Organisation"){

	// Unless selection is 4 the next page is a map so we don't need this data 
		if (l3group==4) {
		for (i=0; i<numberind; i++) {
			if (indinfo[i].ind) {
//				alert("Found company for i= " + i)
				orgarray[orgarray.length] = [indinfo[i].name, indinfo[i].pagelink]
			}
		}
		orgarray[orgarray.length] = ["End of first section",""]
		cookiestring = "-1|Companies in database"
	}

}
if (l2group=="Region"){

	for (i=0; i<numberind; i++) {
		if (indinfo[i].region == l3group) {
//			alert("Found forum/company in region for i= " + i)
			orgarray[orgarray.length] = [indinfo[i].name, indinfo[i].pagelink]
		}
	}
	
	numorgs = orgarray.length
	if (numorgs > 0) {
		orgarray[numorgs-1][0] = orgarray[numorgs-1][0] + "<br>"
	}
	orgarray[orgarray.length] = ["End of first section",""]
	
	for (i=0; i<numberac; i++) {
			if (acinfo[i].region == l3group) {
//				alert("Found uni in region for i= " + i)
				orgarray[orgarray.length] = [acinfo[i].name, acinfo[i].pagelink]
			}
	}
	
	cookiestring = "0|Organisations in " + l2options[2][l3group].split("|")[0]
}

if (l2group=="Sector"){

	for (i=0; i<numberind; i++) {
		if (indinfo[i].applications.secarray[l3group-1]) {
//			alert("Found company in sector for i= " + i)
			orgarray[orgarray.length] = [indinfo[i].name, indinfo[i].pagelink]
		}
	}
	
	numorgs = orgarray.length
	if (numorgs > 0) {
		orgarray[numorgs-1][0] = orgarray[numorgs-1][0] + "<br>"
	}
	orgarray[orgarray.length] = ["End of first section",""]
	
	for (i=0; i<numberac; i++) {
		for (j=0; j<40; j++) {
			if (acinfo[i].capabilities[j].secarray[l3group-1]) {
//				alert("Found uni in sector for i= " + i)
				orgarray[orgarray.length] = [acinfo[i].name, acinfo[i].pagelink]
				break
			}
		}
	}

	cookiestring = "0|Organisations working in sector '" + l2options[3][l3group].split("|")[0] + "'"
}

if (l2group=="Expertise"){

	for (i=0; i<numberind; i++) {
		if (indinfo[i].technical[l3group-1]) {
//			alert("Found company expertise for i= " + i)
			orgarray[orgarray.length] = [indinfo[i].name, indinfo[i].pagelink]
		}
	}
	
	numorgs = orgarray.length
	if (numorgs > 0) {
		orgarray[numorgs-1][0] = orgarray[numorgs-1][0] + "<br>"
	}
	orgarray[orgarray.length] = ["End of first section",""]
	
	var expindex
	expindex = 0
	if (l3group>1) {
		for (i=0; i<l3group-1; i++) {
			expindex = expindex + exgroups[i]
		}
	}

	var found
	
	for (i=0; i<numberac; i++) {
		found = false
		for (k=0; k<exgroups[l3group-1]; k++) {
			for (j=0; j<11; j++) {
				if (acinfo[i].capabilities[expindex+k].secarray[j]) {
//					alert("Found uni expertise for i= " + i)
					orgarray[orgarray.length] = [acinfo[i].name, acinfo[i].pagelink]
					found = true
					break
				}
			}
			if (!found && acinfo[i].capabilities[expindex+k].othersec > 0) {
				orgarray[orgarray.length] = [acinfo[i].name, acinfo[i].pagelink]
				found=true
			}
			if (found) {break}
		}
	}

	cookiestring = l3group + "|Organisations with expertise in <br>'" + l2options[4][l3group].split("|")[0] + "'"
}

if (l2group=="Facilities"){

	for (i=0; i<numberind; i++) {
		if (indinfo[i].facilities[l3group-1]) {
//			alert("Found company facilities for i= " + i)
			orgarray[orgarray.length] = [indinfo[i].name, indinfo[i].pagelink]
		}
	}
	
	numorgs = orgarray.length
	if (numorgs > 0) {
		orgarray[numorgs-1][0] = orgarray[numorgs-1][0] + "<br>"
	}
	orgarray[orgarray.length] = ["End of first section",""]
	
	for (i=0; i<numberac; i++) {
			if (acinfo[i].facilities[l3group-1]) {
//				alert("Found uni facilities for i= " + i)
				orgarray[orgarray.length] = [acinfo[i].name, acinfo[i].pagelink]
			}
	}

	cookiestring = "0|Organisations with '" + l2options[5][l3group].split("|")[0] + "' facilities"
}

//alert(cookiestring)

numorgs = orgarray.length
if (numorgs>0){
	for (i=0; i<numorgs; i++)
		cookiestring=cookiestring+"|"+orgarray[i][0]+"|"+orgarray[i][1]
}

//alert(cookiestring)
writeSessionCookie ("WCCorgs", cookiestring)
//alert(document.cookie)

if (l2group=="Organisation") {
	if (l3group==1)
		window.location='acmap.htm'
	else if (l3group==2)
		window.location='forummap.htm'
	else if (l3group==3)
		window.location='indmap.htm'
	else
		window.location='orglist.asp'
}
else if (l2group=="Expertise")
	window.location='orglist.asp'
else
	window.location='orglist.asp'

}

function listorgsac(l3group, l3choice){

	var orgarray = new Array()
	var cookiestring

	orgarray[orgarray.length] = ["End of first section",""]
	
	var expindex
	expindex = 0
	if (l3group>1) {
		for (i=0; i<l3group-1; i++) {
			expindex = expindex + exgroups[i]
		}
	}
	expindex = expindex + l3choice - 1
	
	var found
	found = false
	
	for (i=0; i<numberac; i++) {
		for (j=0; j<11; j++) {
			if (acinfo[i].capabilities[expindex].secarray[j]) {
//				alert("Found uni expertise for i= " + i)
				orgarray[orgarray.length] = [acinfo[i].name, acinfo[i].pagelink]
				found = true
				break
			}
		}
		if (!found && acinfo[i].capabilities[expindex].othersec>0) {
			orgarray[orgarray.length] = [acinfo[i].name, acinfo[i].pagelink]
		}
	}

	cookiestring = l3group + "|Academic institutions with expertise in <br>'" + l2options[4][l3group].split("|")[0] + " - " + l3options[l3group][l3choice].split("|")[0]+ "'"

	numorgs = orgarray.length
	if (numorgs>0){
		for (i=0; i<numorgs; i++)
			cookiestring=cookiestring+"|"+orgarray[i][0]+"|"+orgarray[i][1]
	}

	//alert(cookiestring)
	writeSessionCookie ("WCCorgs", cookiestring)
	//alert(document.cookie)

	window.location='orglist2.asp'

}

// Deactivate Cloaking -->
