// JavaScript1.1 Document
/* E-mail addresses in bits: This is designed to irritate dumb spiders */
/* This file is to be linked into only those pages that use it. This call is set up as a DW template option. */
/* In the pages themselves, each e-mail address is displayed as a gif image, with code around it to create the mailto link */

/* Tag elements */

var stMail = "<a href=\"mailto:";
var stAt = "@";
var stMailTitle=" title=\""
var stMailEnd = "\" >";
var stName;

/* Domains in alphabetical order */

var stActrix = "actrix.co.nz";
var stClear = "clear.net.nz";
var stComplus = "@complus.co.nz";
var stGoComplus = "@gocomplus.co.nz";
var stConz = "co.nz";
var stCompuserve = "compuserve.com";
var stDCC = "dcc.govt.nz";
var stFDNZ = "@folkdance.org.nz";
var stForestResearch = "forestresearch.co.nz";
var stFree = "free.net.nz";
var stGmail = "@gmail.com";
var stGMX = "gmx.net";
var stGMXde = "gmx.de";
var stGNS = "gns.cri.nz";
var stHistoric = "historic.org.nz";
var stHotmail = "@hotmail.com";
var stHyper = "hyper.net.nz";
var stIHug = "@ihug.co.nz";
var stIgrin = "igrin.co.nz";
var stInshape = "shapelife.co.nz";
var stInspire = "inspire.net.nz";
var stLaEscuela = "la-escuela.co.nz";
var stMaoriArt = "maoriart.org.nz";
var stMassey = "massey.ac.nz";
var stMaxNet = "maxnet.co.nz";
var stNZGT = "nzgt.co.nz";
var stOrcon = "orcon.net.nz";
var stParadise = "@paradise.net.nz";
var stPolish = "polishcommunity.org.nz";
var stSlingshot = "slingshot.co.nz";
var stVUW = "vuw.ac.nz";
var stWCC = "wcc.govt.nz";
var stVodafone = "vodafone.co.nz";
var stXtra = "xtra.co.nz";
var stYahoo = "yahoo.com";
var stYahooNZ = "yahoo.co.nz";
var isDebug = false;


function writeMail( ) {
	/* write <a>...</a> element with email address */
	/* parameters: object with .document property to write into, lookup value[, display name] */
	/* if display name not given, lookup value is used */
	/* returns false if lookup not found (webmaster link given instead) */

	var thisDoc, stInit=false, stName=false ;
	var stAddr = false, retValue = false, emailWMATag ; 
	
	if (arguments.length >= 2) {
		/* stName for future use */
		thisDoc = arguments[0].document;
		stInit = arguments[1];
		if (arguments.length >= 3) { 
			stName = arguments[2]; 
		} else {
			stName = stInit;
		}
		stAddr = emailAddr( stInit );
		if (stAddr) {
			thisDoc.write(emailATag(stInit, stName, stAddr )+stAddr+"</a>");
			retValue = true;
		}
	} 
	if (!retValue) {
		emailWMATag = emailATag( "fdnzwebmaster" , "Web Master" )+"(unknown address - please email webmaster)"+"</a>";
		if (isDebug) { alert("Unknown email for "+stInit+" ...tag: "+emailWMATag ); }
		thisDoc.write(emailWMATag);
	}
	return retValue; /* true if lookup was successful */
}

function emailATag( ) {
	/* parameters: lookup value[, display name[, email address]] */
	/* lookup value ignored if email address given */
	/* returns "<a ...>" - or false if not found */
	var stATag = false;
	switch (arguments.length) {
		case 1: case 2: 
			stATag = emailAddr( arguments[0] );
			if (isDebug) { alert("emailATag stATag: '"+stATag+"'"); }
			if (stATag) {
				if (2==arguments.length) {
					stATag = stMail+stATag+emailATagTitle(arguments[1])+stMailEnd;
				} else {
					stATag = stMail+stATag+stMailEnd;
				}
			} else {
				stATag=false;
			};
			break;
		case 3: stATag = stMail+arguments[2]+stMailEnd;
			break;
		default: stATag=false;
	}
	return stATag;
}

function emailATagTitle( ) {
	return ""
}

function emailAddr( ) {
	/* 1 parameter: lookup value; returns email address - or false if not found  */
	var retAddr = false;
	var stInit;

	if (isDebug) { alert("emailAddr "+arguments.length+" inputs: '"+arguments[0]+"'"); }

	if (arguments.length > 0) {
		stInit = arguments[0];
		if (isDebug&&false) { alert("emailAddr stInit: '"+stInit+"'"); }
		switch (stInit) {
		case "Gaby Johnston": retAddr = "gabemail"+stHotmail;
			/* Gaby Johnston - Tauranga Athena contact */
			break;
		case "Jenni": retAddr = "jenny"+stGoComplus;
			/* Jennifer Gottschalk - Auck Israeli contact */
			break;
		case "Margaret Gwynn": retAddr = "gwynn"+stParadise;
			/* Robin & Margaret Gwynn - HB Circle Dance */
			break;
		case "Rae Storey": retAddr = "rstorey"+stIHug;
			/* Rae Storey - New Wave, Ruritanians and FDNZ contact */
			break;

		/* Folk Dance NZ */	
		case "fdnzeditor": retAddr = "editor"+stFDNZ;
			break;
		case "fdnzfestival": retAddr = "festival"+stFDNZ;
			break;
		case "fdnzinfo": retAddr = "info"+stFDNZ;
			break;
		case "fdnzmembership": retAddr = "membership"+stFDNZ;
			break;
		case "fdnzpresident": retAddr = "president"+stFDNZ;
			break;
		case "fdnzsecretary": retAddr = "secretary"+stFDNZ;
			break;
		case "fdnztreasurer": retAddr = "treasurer"+stFDNZ;
			break;
		case "fdnzwebmaster": retAddr = "webmaster"+stFDNZ;
			break;
		default: retAddr = false;
		}
	}
	
	if (isDebug) { alert("emailAddr return: '"+retAddr+"'"); }
	
	return retAddr;
}



/* Names with the corresponding variables used by clickable link code */

/* The Committee */

/* Treasurer */
stName = "treasurer";
var stTreasurer = stMail+stName+stFDNZ+stMailEnd;

/* Membership */
stName = "membership";
var stMembers = stMail+stName+stFDNZ+stMailEnd;

/* Web Master */
stName = "webmaster";
var stWMMail = stMail+stName+stFDNZ+stMailEnd;

/* Festival */
stName = "festival";
var stFestival = stMail+stName+stFDNZ+stMailEnd;

/* Camp */
var stCamp = stMail+"camp"+stFDNZ+stMailEnd;

/* Thats us now the rest in alphabetical order */

/* Angela Broomhead - Hawkes Bay teacher */
stName = "angela_ate";
var stABMail = stMail+stName+stHotmail+stMailEnd;

/* Andrea Cochrane - VUW Continuing Education */
stName = "Andrea.Cochrane";
var stACMail = stMail+stName+stAt+stVUW+stMailEnd;

/* Auckland Dutch Dancers */
var stADDMail = stMail+"ADD"+stAt+"sosnz.co.nz"+stMailEnd;

/* Antionette - Auckland - various roles */
stName = "antoinett.everts";
var stAEMail = stMail+stName+stAt+stClear+stMailEnd;

/* Anneke van den Haak - Auckland Dutch Dancers 2006 */
stName = "annekemartine";
var stAHMail = stMail+stName+stAt+stSlingshot+stMailEnd;

/* Ana Maria de Vos - Folklore Chileno Latino, Auckland */
stName = "anamaria.devos";
var stAMMail = stMail+stName+stAt+stClear+stMailEnd;

/* Amira */
var stAmiraMail = stMail+"amira"+stAt+stLaEscuela+stMailEnd;

/* Anna O'Connor - Tauranga */
var stAOCMail = stMail+"annao"+stAt+stOrcon+stMailEnd;

/* Anne and Rhys - Nor West Arch Morris Christchurch */
stName = "anneandrhys";
var stARMail = stMail+stName+stAt+stClear+stMailEnd;

/* Andy Smith - Morris, Rapper, etc Auckland */
stName = "andysmith";
var stASMail = stMail+stName+stAt+stClear+stMailEnd;

/* Auckland Dutch Dancers 2011: Anne Vollebregt, teacher and secretary */
var stAVMail = stMail+"wiefke"+stAt+stXtra+stMailEnd;

/* Belisha Dance Club, Tauranga */
stName = "belisha";
var stBelishaMail = stMail+stName+stAt+stClear+stMailEnd;

/* Bronwen Arlington - Auckland */
stName = "bronwena";
var stBAMail = stMail+stName+stAt+stXtra+stMailEnd;

/* Bill Baritompa - Contra Christchurch */
var stBBMail = stMail+"bill.baritompa"+stGmail+stMailEnd;

/* Beth Harris - Auckland */
var stBHMail = stMail+"bethharris51"+stHotmail+stMailEnd;

/* Bernadette Moroney - Dunedin Irish contact */
stName = "BBerry";
var stBMMail = stMail+stName+stAt+stXtra+stMailEnd;

/* Bernard Wells - Wellington Contra contact */
stName = "bcwells";
var stBWMail = stMail+stName+stAt+stXtra+stMailEnd;

/* Cleone Cawood - FDNZ contact */
stName = "ccawood";
var stCCMail = stMail+stName+stAt+stXtra+stMailEnd;

/* Clare Fraser - Dunedin SongBong contact */
var stCFMail = stMail+"cfraser"+stAt+stDCC+stMailEnd;

/* cossak - Auckland European Festival contact */
var stCossakMail = stMail+"cossak"+stAt+stClear+stMailEnd;

/* Fiona Murdoch - Dance Folkus contact */
stName = "dancefolkus";
var stDFMail = stMail+stName+stAt+stSlingshot+stMailEnd;

/* Denny Wood - Auckland Greek contact */
stName = "dennywood";
var stDWoodMail = stMail+stName+stAt+stOrcon+stMailEnd;

/* David + Raewynn Robertson - Gaidhealtachd contact */
var stDRMail = stMail+"droberts"+stAt+stXtra+stMailEnd;

/* Derek/Louise Williams - Auckland Welsh contacts */
var stDWMail = stMail+"louiseawil"+stGmail+stMailEnd;

/* Esther Bukholt - Wellington CC contact */
stName = "Esther.Bukholt";
var stEBMail = stMail+stName+stAt+stWCC+stMailEnd;

/* Erica Gertel - Auckland Israeli contact */
stName = "nos";
var stEGMail = stMail+stName+stAt+"eriymati.com.ar"+stMailEnd;

/* Elaine Prakash - Hawkes Bay contact */
var stEPMail = stMail+"elaine.prakash"+stGmail+stMailEnd;

/* Farandol Christchurch contact */
stName = "farandol";
var stFarMail = stMail+stName+stAt+stGMX+stMailEnd;

/* Farandol Workshop */
stName = "farandolm";
var stFarMail = stMail+stName+stAt+stGMX+stMailEnd;

/* Fiona Murdoch - FDNZ contact */
stName = "fionamurdoch";
var stFMMail = stMail+stName+stAt+stSlingshot+stMailEnd;

/* Gina Salapata - Greek contact */
stName = "G.Salapata";
var stGSMail = stMail+stName+stAt+stMassey+stMailEnd;

/* Helen Stonehouse - Hawkes Bay Irish Set Dancing contact */
stName = "r.stonehouse";
var stHStMail = stMail+stName+stAt+stClear+stMailEnd;

/* Huda - Middle-eastern teacher Wellington */
stName = "huda.sabour";
var stHSMail = stMail+stName+stAt+stXtra+stMailEnd;

/* Irish Beat - Dunedin */
stName = "irishbeatdance";
var stIBMail = stMail+stName+stGmail+stMailEnd;

/* Ingo Staats - International Whangarei */
stName = "ingostaats";
var stISMail = stMail+stName+stAt+stClear+stMailEnd;

/* John Beavan - FDNZ Library contact */
stName = "jbeavan";
var stJBMail = stMail+stName+stIHug+stMailEnd;

/* Jennifer Gottschalk - Auck Israeli contact */
var stJGMail = emailATag("Jenni");

/* Jenny Hames - Wellington IDG contact */
stName = "hames";
var stJHMail = stMail+stName+stParadise+stMailEnd;

/* Jan Okey - Palmerston North Israeli contact */
stName = "janokey";
var stJOMail = stMail+stName+stAt+stInspire+stMailEnd;

/* Jaqueline Perret - Wellington Circle dances contact */
stName = "dxjperret";
var stJPMail = stMail+stName+stAt+stXtra+stMailEnd;

/* Joanne Perry - Hawkes Bay contact */
var stJoPMail = stMail+"randjperry"+stAt+stVodafone+stMailEnd;

/* Joanna Matsis - Wellington IDG contact */
stName = "Joanna_ms";
var stJMMail = stMail+stName+stHotmail+stMailEnd;

/* Jeannie Wyn Williams - Rotorua Welsh contact */
stName = "jeannie.williams";
var stJWMail = stMail+stName+stAt+stForestResearch+stMailEnd;

/* June Jacobson - Whangarei IFD contact */
stName = "junejacobson";
var stJJMail = stMail+stName+stAt+stXtra+stMailEnd;

/* Kathie Ellis - 2007 Auck Wshop reg */
stName = "j.m.ellis";
var stKEMail = stMail+stName+stAt+stXtra+stMailEnd;

/* Kathy Ellis - Ruritanian contact */
stName = "kathyellis123";
var stKyEMail = stMail+stName+stAt+stYahooNZ+stMailEnd;

/* Kate Goodwin - Tauranga contact */
stName = "kandn.goodwin";
var stKGMail = stMail+stName+stAt+stActrix+stMailEnd;

/* Kate Goodwin - Tauranga contact */
stName = "kategrace";
var stKGrMail = stMail+stName+stAt+stClear+stMailEnd;

/* Kieron Horide - Webmaster and editor */
stName = "horidek";
var stKHMail = stMail+stName+stAt+stActrix+stMailEnd;

/* Korry Krook - New Plymouth contact */
stName = "krookodile";
var stKKMail = stMail+stName+stAt+stClear+stMailEnd;

/* Kathryn Olcott - Dunedin Irish contact */
var stKOMail = stMail+"kaolcott"+stAt+stYahoo+stMailEnd;

/* Koos Schipper - Auckland Dutch contact */
var stKSMail = stMail+"koos"+stAt+stMaxNet+stMailEnd;

/* Karen Vernon - Auckland Early Dance contact */
var stKVMail = stMail+"s.marryatt"+stAt+stHyper+stMailEnd;

/* Lynnaire Nugent - General FDNZ contact */
stName = "lanugent";
var stLNMail = stMail+stName+stAt+stOrcon+stMailEnd;

/* Lublin Dance Company (OLD) */
stName = "lublin";
var stLubMail = stMail+stName+stAt+stPolish+stMailEnd;

/* Leszek Lendnal: Lublin Dance Company */
stName = "leszek.lendnal";
var stLLMail = stMail+stName+stGmail+stMailEnd;

/* Maori Arts contact */
stName = "events";
var stMAMail;
stMAMail = stMail+stName+stAt+stMaoriArt+stMailEnd;

/* Maria Berben - Tauranga Israeli contact */
stName = "windrush";
var stMBMail;
stMBMail = stMail+stName+stAt+stXtra+stMailEnd;

/* Michele Dickson - FDNZ contact */
stName = "michele_d";
var stMDMail;
stMDMail = stMail+stName+stParadise+stMailEnd;

/* Mike Savage - Wellington Contra contact */
stName = "mlsavage";
var stMSMail = stMail+stName+stParadise+stMailEnd;
            
/* Pam Sikkema - Ruritanian contact */
stName = "marians99";
var stPSMail;
stPSMail = stMail+stName+stAt+stFree+stMailEnd;

/* Pamela Schwartz - Auckland Israeli contact */
stName = "pameschwartz";
var stPScMail;
stPScMail = stMail+stName+stHotmail+stMailEnd;

/* Polish Association (see also Lublin above) */
stName = "association";
var stPolMail;
stPolMail = stMail+stName+stAt+stPolish+stMailEnd;

/* Ruth Ames - Auckland teacher */
stName = "ruth_a";
var stRAMail;
stRAMail = stMail+stName+stAt+stClear+stMailEnd;

/* Sonia Arabadzhieva - Auckland Bulgarian Roses */
stName = "arabajieva_sonya";
var stSAMail = stMail+stName+stAt+stYahoo+stMailEnd;

/* Sonia Petrie - Wellington */
stName = "o3sonde";
var stSPMail = stMail+stName+stAt+stYahooNZ+stMailEnd;

/* stu reid */
var stSRMail = stMail+"stureid1"+stAt+stYahooNZ+stMailEnd;

/* Sebastian Rebolledo-Nunez - Fiesta de la Chilenidad in Auckland */
var stSRNMail = stMail+"krahamrnunez"+stHotmail+stMailEnd;

/* Sacred Circle Dancing contact */
stName = "energy_matters";
var stSSMail = stMail+stName+stHotmail+stMailEnd;

/* Wendy Browne - Palmerston North contact */
stName = "wbrowne";
var stWBMail;
stWBMail = stMail+stName+stAt+stActrix+stMailEnd;