
////////////////////////////////////////////////////////////
// Bookmark
////////////////////////////////////////////////////////////
function bookmarksite(title, url){
if (document.all)
window.external.AddFavorite(url, title);
else if (window.sidebar)
window.sidebar.addPanel(title, url, "")
else
alert("Press CTRL-D (Firefox, Netscape) or CTRL-T (Opera) to bookmark");
}


////////////////////////////////////////////////////////////
// Set tartan swatch
////////////////////////////////////////////////////////////
function setchoice(choicename){
 var thisimage = '';
 var result = choicename.match(/(.*)\((.*)\)(.*)/);  // see if HTML for Name contains (.....)
 if ( result != null )
   {
   document.write(result[1] + result[3]);	// hide the embedded image
   thisimage = result[2];      			// the text within ( )
   }
 else
   {
   document.write(choicename);  		// the unaltered choice text
   }
 eval(current + '[' + base++ + '] = \'' + thisimage + '\'');  // save the image name
}


////////////////////////////////////////////////////////////
// Get tartan 
////////////////////////////////////////////////////////////
function getTartan(value)
{
  var swatch;

  switch (value)
  {
    case "Abercrombie": swatch = "Abercrombie_mod"; break;
    case "Abercrombie Modern": swatch = "Abercrombie_mod"; break;
    case "Allison": swatch = "Allison_mod"; break;
    case "Allison Modern": swatch = "Allison_mod"; break;
    case "Anderson Ancient": swatch = "Anderson_anc"; break;
    case "Anderson Modern": swatch = "Anderson_mod"; break;
    case "Anderson": swatch = "Anderson_mod"; break;
    case "Angus": swatch = "Angus_anc"; break;
    case "Angus Ancient": swatch = "Angus_anc"; break;
    case "Armstrong Ancient": swatch = "Armstrong_anc"; break;
    case "Armstrong Modern": swatch = "Armstrong_mod"; break;
    case "Austin Ancient": swatch = "Austin_anc"; break;
    case "Austin Modern": swatch = "Austin_mod"; break;
    case "Baird Ancient": swatch = "Baird_anc"; break;
    case "Baird Modern": swatch = "Baird_mod"; break;
    case "Baird": swatch = "Baird_mod"; break;
    case "Barclay Dress": swatch = "BarclayDress_mod"; break;
    case "Barclay Dress Modern": swatch = "BarclayDress_mod"; break;
    case "Barclay Hunting": swatch = "BarclayHunting_anc"; break;
    case "Barclay Hunting Ancient": swatch = "BarclayHunting_anc"; break;
    case "Black Watch Ancient": swatch = "BlackWatch_anc"; break;
    case "Black Watch Modern": swatch = "BlackWatch_mod"; break;
    case "Black Watch": swatch = "BlackWatch_mod"; break;
    case "Black Watch Weathered": swatch = "BlackWatch_wea"; break;
    case "Black Watch Dress": swatch = "BlackWatchDress_mod"; break;
    case "Blair": swatch = "Blair_mod"; break;
    case "Blair Modern": swatch = "Blair_mod"; break;
    case "Borthwick": swatch = "Borthwick_anc"; break;
    case "Borthwick Ancient": swatch = "Borthwick_anc"; break;
    case "Borthwick Dress": swatch = "BorthwickDress_anc"; break;
    case "Borthwick Dress Ancient": swatch = "BorthwickDress_anc"; break;
    case "Boyd": swatch = "Boyd_mod"; break;
    case "Boyd Modern": swatch = "Boyd_mod"; break;
    case "Brodie": swatch = "Brodie_mod"; break;
    case "Brodie Modern": swatch = "Brodie_mod"; break;
    case "Brodie Hunting Ancient": swatch = "BrodieHunting_anc"; break;
    case "Brodie Hunting Modern": swatch = "BrodieHunting_mod"; break;
    case "Brown": swatch = "Brown_mod"; break;
    case "Brown Modern": swatch = "Brown_mod"; break;
    case "Bruce Ancient": swatch = "Bruce_anc"; break;
    case "Bruce Modern": swatch = "Bruce_mod"; break;
    case "Bruce": swatch = "Bruce_mod"; break;
    case "Buchan Ancient": swatch = "Buchan_anc"; break;
    case "Buchan Modern": swatch = "Buchan_mod"; break;
    case "Buchanan Ancient": swatch = "Buchanan_anc"; break;
    case "Buchanan Modern": swatch = "Buchanan_mod"; break;
    case "Buchanan": swatch = "Buchanan_mod"; break;
    case "Buchanan Hunting": swatch = "BuchananHunting_mod"; break;
    case "Buchanan Hunting Modern": swatch = "BuchananHunting_mod"; break;
    case "Buchanan (Old Sett) Ancient": swatch = "BuchananOldSett_anc"; break;
    case "Buchanan (Old Sett) Weathered": swatch = "BuchananOldSett_wea"; break;
    case "Burnett": swatch = "Burnett_anc"; break;
    case "Burnett Ancient": swatch = "Burnett_anc"; break;
    case "Burns Check Modern": swatch = "BurnsCheck_mod"; break;
    case "Burns Check": swatch = "BurnsCheck_mod"; break;
    case "Caledonia": swatch = "Caledonia_anc"; break;
    case "Caledonia Ancient": swatch = "Caledonia_anc"; break;
    case "Cameron Ancient": swatch = "Cameron_anc"; break;
    case "Cameron Modern": swatch = "Cameron_mod"; break;
    case "Cameron": swatch = "Cameron_mod"; break;
    case "Cameron of Erracht Ancient": swatch = "CameronErracht_anc"; break;
    case "Cameron of Erracht Modern": swatch = "CameronErracht_mod"; break;
    case "Cameron of Erracht": swatch = "CameronErracht_mod"; break;
    case "Cameron of Erracht Weathered": swatch = "CameronErracht_wea"; break;
    case "Cameron Hunting Weathered": swatch = "CameronHunting_wea"; break;
    case "Cameron of Lochiel Ancient": swatch = "CameronLochiel_anc"; break;
    case "Cameron of Lochiel Modern": swatch = "CameronLochiel_mod"; break;
    case "Campbell Ancient": swatch = "Campbell_anc"; break;
    case "Campbell (Ancient)": swatch = "Campbell_anc"; break;
    case "Campbell Modern": swatch = "Campbell_mod"; break;
    case "Campbell Faded": swatch = "CampbellFaded_wea"; break;
    case "Campbell Weathered": swatch = "CampbellFaded_wea"; break;
    case "Campbell of Argyll Ancient": swatch = "CampbellArgyll_anc"; break;
    case "Campbell of Argyll Modern": swatch = "CampbellArgyll_mod"; break;
    case "Campbell of Argyll": swatch = "CampbellArgyll_mod"; break;
    case "Campbell of Argyll Weathered": swatch = "CampbellArgyll_wea"; break;
    case "Campbell of Breadalbane Ancient": swatch = "CampbellBreadalbane_anc"; break;
    case "Campbell of Breadalbane Modern": swatch = "CampbellBreadalbane_mod"; break;
    case "Campbell of Cawdor Ancient": swatch = "CampbellCawdor_anc"; break;
    case "Campbell of Cawdor Modern": swatch = "CampbellCawdor_mod"; break;
    case "Campbell Cawdor": swatch = "CampbellCawdor_mod"; break;
    case "Campbell Dress Ancient": swatch = "CampbellDress_anc"; break;
    case "Campbell Dress Modern": swatch = "CampbellDress_mod"; break;
    case "Campbell of Loudon": swatch = "CampbellLoudoun_mod"; break;
    case "Campbell of Loudoun": swatch = "CampbellLoudoun_mod"; break;
    case "Campbell of Loudon Modern": swatch = "CampbellLoudoun_mod"; break;
    case "Campbell of Loudoun Modern": swatch = "CampbellLoudoun_mod"; break;
    case "Carmichael": swatch = "Carmichael_anc"; break;
    case "Carmichael Ancient": swatch = "Carmichael_anc"; break;
    case "Carnegie": swatch = "Carnegie_anc"; break;
    case "Carnegie Ancient": swatch = "Carnegie_anc"; break;
    case "Chisholm Ancient": swatch = "Chisholm_anc"; break;
    case "Chisholm Modern": swatch = "Chisholm_mod"; break;
    case "Chisholm Hunting Ancient": swatch = "ChisholmHunting_anc"; break;
    case "Chisholm Hunting Modern": swatch = "ChisholmHunting_mod"; break;
    case "Chisholm Hunting": swatch = "ChisholmHunting_mod"; break;
    case "Christie": swatch = "Christie_mod"; break;
    case "Christie Modern": swatch = "Christie_mod"; break;
    case "Clark": swatch = "Clark_anc"; break;
    case "Clark Ancient": swatch = "Clark_anc"; break;
    case "Clergy": swatch = "Clergy_anc"; break;
    case "Clergy Ancient": swatch = "Clergy_anc"; break;
    case "Clergy (Green)": swatch = "ClergyGreen_anc"; break;
    case "Clergy (Green) Ancient": swatch = "ClergyGreen_anc"; break;
    case "Cochrane": swatch = "Cochrane_anc"; break;
    case "Cochrane Ancient": swatch = "Cochrane_anc"; break;
    case "Cockburn Ancient": swatch = "Cockburn_anc"; break;
    case "Cockburn Modern": swatch = "Cockburn_mod"; break;
    case "Colquhoun Ancient": swatch = "Colquhoun_anc"; break;
    case "Colquhoun Modern": swatch = "Colquhoun_mod"; break;
    case "Colquhoun": swatch = "Colquhoun_mod"; break;
    case "Cooper": swatch = "Cooper_anc"; break;
    case "Cooper Ancient": swatch = "Cooper_anc"; break;
    case "Craig": swatch = "Craig_anc"; break;
    case "Craig Ancient": swatch = "Craig_anc"; break;
    case "Cranston": swatch = "Cranston_mod"; break;
    case "Cranston Modern": swatch = "Cranston_mod"; break;
    case "Crawford Ancient": swatch = "Crawford_anc"; break;
    case "Crawford Modern": swatch = "Crawford_mod"; break;
    case "Crawford": swatch = "Crawford_mod"; break;
    case "Culloden": swatch = "Culloden_anc"; break;
    case "Culloden Ancient": swatch = "Culloden_anc"; break;
    case "Cumming": swatch = "Cumming_mod"; break;
    case "Cumming Modern": swatch = "Cumming_mod"; break;
    case "Cumming Hunting Ancient": swatch = "CummingHunting_anc"; break;
    case "Cumming Hunting Modern": swatch = "CummingHunting_mod"; break;
    case "Cumming Hunting Weathered": swatch = "CummingHunting_wea"; break;
    case "Cunningham": swatch = "Cunningham_mod"; break;
    case "Cunningham Modern": swatch = "Cunningham_mod"; break;
    case "Dalziel": swatch = "Dalziel_mod"; break;
    case "Dalziel Modern": swatch = "Dalziel_mod"; break;
    case "Davidson Ancient": swatch = "Davidson_anc"; break;
    case "Davidson Modern": swatch = "Davidson_mod"; break;
    case "Davidson": swatch = "Davidson_mod"; break;
    case "Davidson of Tulloch": swatch = "DavidsonTulloch_anc"; break;
    case "Davidson of Tulloch Ancient": swatch = "DavidsonTulloch_anc"; break;
    case "Douglas Ancient": swatch = "Douglas_anc"; break;
    case "Douglas Modern": swatch = "Douglas_mod"; break;
    case "Douglas": swatch = "Douglas_mod"; break;
    case "Douglas Grey Ancient": swatch = "DouglasGrey_anc"; break;
    case "Douglas Grey Modern": swatch = "DouglasGrey_mod"; break;
    case "Drummond": swatch = "Drummond_mod"; break;
    case "Drummond Modern": swatch = "Drummond_mod"; break;
    case "Drummond of Perth": swatch = "DrummondPerth_mod"; break;
    case "Drummond of Perth Modern": swatch = "DrummondPerth_mod"; break;
    case "Drummond of Strathallan": swatch = "DrummondStrathallan_anc"; break;
    case "Drummond of Strathallan Ancient": swatch = "DrummondStrathallan_anc"; break;
    case "Dunbar": swatch = "Dunbar_mod"; break;
    case "Dunbar Modern": swatch = "Dunbar_mod"; break;
    case "Duncan Ancient": swatch = "Duncan_anc"; break;
    case "Duncan Modern": swatch = "Duncan_mod"; break;
    case "Dundas": swatch = "Dundas_mod"; break;
    case "Dundas Modern": swatch = "Dundas_mod"; break;
    case "Earl of St. Andrews Modern": swatch = "EarlStAndrews_mod"; break;
    case "Earl of St. Andrews": swatch = "EarlStAndrews_mod"; break;
    case "Elliot Ancient": swatch = "Elliot_anc"; break;
    case "Elliot Modern": swatch = "Elliot_mod"; break;
    case "Erskine": swatch = "Erskine_mod"; break;
    case "Erskine Modern": swatch = "Erskine_mod"; break;
    case "Erskine Black/White": swatch = "ErskineBW"; break;
    case "Farquharson Ancient": swatch = "Farquharson_anc"; break;
    case "Farquharson Modern": swatch = "Farquharson_mod"; break;
    case "Farquharson Weathered": swatch = "Farquharson_wea"; break;
    case "Ferguson Ancient": swatch = "Ferguson_anc"; break;
    case "Ferguson Modern": swatch = "Ferguson_mod"; break;
    case "Ferguson": swatch = "Ferguson_mod"; break;
    case "Ferguson Weathered": swatch = "Ferguson_wea"; break;
    case "Fletcher Ancient": swatch = "Fletcher_anc"; break;
    case "Fletcher Modern": swatch = "Fletcher_mod"; break;
    case "Fletcher of Dunans": swatch = "FletcherDunans_mod"; break;
    case "Fletcher of Dunans Modern": swatch = "FletcherDunans_mod"; break;
    case "Forbes Ancient": swatch = "Forbes_anc"; break;
    case "Forbes Modern": swatch = "Forbes_mod"; break;
    case "Forsyth Ancient": swatch = "Forsyth_anc"; break;
    case "Forsyth Modern": swatch = "Forsyth_mod"; break;
    case "Fraser Ancient": swatch = "Fraser_anc"; break;
    case "Fraser Dress Ancient": swatch = "Fraser_anc"; break;
    case "Fraser Modern": swatch = "Fraser_mod"; break;
    case "Fraser Dress Modern": swatch = "Fraser_mod"; break;
    case "Fraser Dress": swatch = "Fraser_mod"; break;
    case "Fraser Weathered": swatch = "Fraser_wea"; break;
    case "Fraser Dress Weathered": swatch = "Fraser_wea"; break;
    case "Fraser (Weath)": swatch = "Fraser_wea"; break;
    case "Fraser Hunting Ancient": swatch = "FraserHunting_anc"; break;
    case "Fraser Hunting Modern": swatch = "FraserHunting_mod"; break;
    case "Fraser Hunting": swatch = "FraserHunting_mod"; break;
    case "Fraser of Lovat": swatch = "FraserLovat_mod"; break;
    case "Fraser of Lovat Modern": swatch = "FraserLovat_mod"; break;
    case "Galbraith Ancient": swatch = "Galbraith_anc"; break;
    case "Galbraith Modern": swatch = "Galbraith_mod"; break;
    case "Galloway Red": swatch = "GallowayRed_mod"; break;
    case "Galloway Red Modern": swatch = "GallowayRed_mod"; break;
    case "Galloway Hunting": swatch = "GallowayHunting_mod"; break;
    case "Galloway Hunting Modern": swatch = "GallowayHunting_mod"; break;
    case "Gillies": swatch = "Gillies_anc"; break;
    case "Gillies Ancient": swatch = "Gillies_anc"; break;
    case "Gordon Ancient": swatch = "Gordon_anc"; break;
    case "Gordon Modern": swatch = "Gordon_mod"; break;
    case "Gordon": swatch = "Gordon_mod"; break;
    case "Gordon Weathered": swatch = "Gordon_wea"; break;
    case "Gordon Dress Ancient": swatch = "GordonDress_anc"; break;
    case "Gordon Dress Modern": swatch = "GordonDress_mod"; break;
    case "Dress Gordon": swatch = "GordonDress_mod"; break;
    case "Gordon Dress": swatch = "GordonDress_mod"; break;
    case "Gordon Dress A.": swatch = "GordonDress_mod"; break;
    case "Gordon Old": swatch = "GordonOld_anc"; break;
    case "Gordon Old Ancient": swatch = "GordonOld_anc"; break;
    case "Gordon Red": swatch = "GordonRed_anc"; break;
    case "Gordon Red Ancient": swatch = "GordonRed_anc"; break;
    case "Gow": swatch = "Gow_mod"; break;
    case "Gow Modern": swatch = "Gow_mod"; break;
    case "Graham of Monteith Ancient": swatch = "GrahamMenteith_anc"; break;
    case "Graham Menteith": swatch = "GrahamMenteith_anc"; break;
    case "Graham of Menteith Ancient": swatch = "GrahamMenteith_anc"; break;
    case "Graham of Monteith Modern": swatch = "GrahamMenteith_mod"; break;
    case "Graham of Menteith": swatch = "GrahamMenteith_mod"; break;
    case "Graham of Menteith Modern": swatch = "GrahamMenteith_mod"; break;
    case "Graham of Monteith Weathered", "Graham of Menteith Weathered": swatch = "GrahamMenteith_wea"; break;
    case "Graham of Montrose Ancient": swatch = "GrahamMontrose_anc"; break;
    case "Graham of Montrose Modern": swatch = "GrahamMontrose_mod"; break;
    case "Grant Ancient": swatch = "Grant_anc"; break;
    case "Grant Modern": swatch = "Grant_mod"; break;
    case "Grant": swatch = "Grant_mod"; break;
    case "Grant Weathered": swatch = "Grant_wea"; break;
    case "Gunn Ancient": swatch = "Gunn_anc"; break;
    case "Gunn Modern": swatch = "Gunn_mod"; break;
    case "Gunn": swatch = "Gunn_mod"; break;
    case "Gunn Weathered": swatch = "Gunn_wea"; break;
    case "Hamilton Ancient": swatch = "Hamilton_anc"; break;
    case "Hamilton Modern": swatch = "Hamilton_mod"; break;
    case "Hamilton": swatch = "Hamilton_mod"; break;
    case "Hamilton Hunting Ancient": swatch = "HamiltonHunting_anc"; break;
    case "Hamilton Hunting Modern": swatch = "HamiltonHunting_mod"; break;
    case "Hay Ancient": swatch = "Hay_anc"; break;
    case "Hay Modern": swatch = "Hay_mod"; break;
    case "Henderson Ancient": swatch = "Henderson_anc"; break;
    case "Henderson Modern": swatch = "Henderson_mod"; break;
    case "Henderson": swatch = "Henderson_mod"; break;
    case "Home Ancient": swatch = "Home_anc"; break;
    case "Home Modern": swatch = "Home_mod"; break;
    case "Hunter Ancient": swatch = "Hunter_anc"; break;
    case "Hunter Modern": swatch = "Hunter_mod"; break;
    case "Inglis": swatch = "Inglis_anc"; break;
    case "Inglis Ancient": swatch = "Inglis_anc"; break;
    case "Innes Ancient": swatch = "Innes_anc"; break;
    case "Innes Modern": swatch = "Innes_mod"; break;
    case "Irvine": swatch = "Irvine_anc"; break;
    case "Irvine Ancient": swatch = "Irvine_anc"; break;
    case "Jacobite": swatch = "Jacobite_mod"; break;
    case "Jacobite Modern": swatch = "Jacobite_mod"; break;
    case "Johnston Ancient": swatch = "Johnston_anc"; break;
    case "Johnston Modern": swatch = "Johnston_mod"; break;
    case "Johnston": swatch = "Johnston_mod"; break;
    case "Keith Ancient": swatch = "Keith_anc"; break;
    case "Keith Modern": swatch = "Keith_mod"; break;
    case "Kennedy Ancient": swatch = "Kennedy_anc"; break;
    case "Kennedy Modern": swatch = "Kennedy_mod"; break;
    case "Kennedy": swatch = "Kennedy_mod"; break;
    case "Kennedy Weathered": swatch = "Kennedy_wea"; break;
    case "Kennedy (Weath)": swatch = "Kennedy_wea"; break;
    case "Kerr Ancient": swatch = "Kerr_anc"; break;
    case "Kerr Modern": swatch = "Kerr_mod"; break;
    case "Kerr": swatch = "Kerr_mod"; break;
    case "Kilgour": swatch = "Kilgour_mod"; break;
    case "Kilgour Modern": swatch = "Kilgour_mod"; break;
    case "Lamont Ancient": swatch = "Lamont_anc"; break;
    case "Lamont": swatch = "Lamont_mod"; break;
    case "Lamont Modern": swatch = "Lamont_mod"; break;
    case "Lauder": swatch = "Lauder_anc"; break;
    case "Lauder Ancient": swatch = "Lauder_anc"; break;
    case "Lennox": swatch = "Lennox_mod"; break;
    case "Lennox Modern": swatch = "Lennox_mod"; break;
    case "Leslie": swatch = "Leslie_mod"; break;
    case "Leslie Modern": swatch = "Leslie_mod"; break;
    case "Leslie Hunting Ancient": swatch = "LeslieHunting_anc"; break;
    case "Leslie Hunting Modern": swatch = "LeslieHunting_mod"; break;
    case "Leslie Hunting": swatch = "LeslieHunting_mod"; break;
    case "Lindsay Ancient": swatch = "Lindsay_anc"; break;
    case "Lindsay Modern": swatch = "Lindsay_mod"; break;
    case "Lindsay": swatch = "Lindsay_mod"; break;
    case "Lindsay Weathered": swatch = "Lindsay_wea"; break;
    case "Livingstone": swatch = "Livingstone_mod"; break;
    case "Livingstone Modern": swatch = "Livingstone_mod"; break;
    case "Lochaber": swatch = "Lochaber_wea"; break;
    case "Lochaber Weathered": swatch = "Lochaber_wea"; break;
    case "Lochaber (Weath)": swatch = "Lochaber_wea"; break;
    case "Logan & MacLennan Ancient": swatch = "LoganMacLennan_anc"; break;
    case "Logan & MacLennan Modern": swatch = "LoganMacLennan_mod"; break;
    case "Logan & MacLennan": swatch = "LoganMacLennan_mod"; break;
    case "Lumsden": swatch = "Lumsden_mod"; break;
    case "Lumsden Modern": swatch = "Lumsden_mod"; break;
    case "MacAlister": swatch = "MacAlister_mod"; break;
    case "MacAlister Modern": swatch = "MacAlister_mod"; break;
    case "MacAlpine Ancient": swatch = "MacAlpine_anc"; break;
    case "MacAlpine Modern": swatch = "MacAlpine_mod"; break;
    case "MacArthur Ancient": swatch = "MacArthur_anc"; break;
    case "MacArthur Modern": swatch = "MacArthur_mod"; break;
    case "MacAuley Ancient": swatch = "MacAuley_anc"; break;
    case "MacAuley Modern": swatch = "MacAuley_mod"; break;
    case "MacAuley Hunting": swatch = "MacAuleyHunting_anc"; break;
    case "MacAuley Hunting Ancient": swatch = "MacAuleyHunting_anc"; break;
    case "MacBean": swatch = "MacBean_mod"; break;
    case "MacBean Modern": swatch = "MacBean_mod"; break;
    case "MacBeth Ancient": swatch = "MacBeth_anc"; break;
    case "MacBeth Modern": swatch = "MacBeth_mod"; break;
    case "MacBeth": swatch = "MacBeth_mod"; break;
    case "MacCallum Ancient": swatch = "MacCallum_anc"; break;
    case "MacCallum Modern": swatch = "MacCallum_mod"; break;
    case "MacColl": swatch = "MacColl_mod"; break;
    case "MacColl Modern": swatch = "MacColl_mod"; break;
    case "MacDiarmid": swatch = "MacDiarmid_mod"; break;
    case "MacDiarmid Modern": swatch = "MacDiarmid_mod"; break;
    case "MacDonald Ancient": swatch = "MacDonald_anc"; break;
    case "MacDonald Clan Ancient": swatch = "MacDonald_anc"; break;
    case "MacDonald Modern": swatch = "MacDonald_mod"; break;
    case "MacDonald Clan Modern": swatch = "MacDonald_mod"; break;
    case "MacDonald": swatch = "MacDonald_mod"; break;
    case "MacDonald Weathered": swatch = "MacDonald_wea"; break;
    case "MacDonald Clan Weathered": swatch = "MacDonald_wea"; break;
    case "MacDonald of Ardnamurchan": swatch = "MacDonaldArdnamurchan_mod"; break;
    case "MacDonald of Boisdale": swatch = "MacDonaldBoisdale_mod"; break;
    case "MacDonald of Clanranald Ancient": swatch = "MacDonaldClanranald_anc"; break;
    case "MacDonald of Clanranald Modern": swatch = "MacDonaldClanranald_mod"; break;
    case "MacDonald Dress Ancient": swatch = "MacDonaldDress_anc"; break;
    case "MacDonald Dress Modern": swatch = "MacDonaldDress_mod"; break;
    case "MacDonald Dress": swatch = "MacDonaldDress_mod"; break;
    case "MacDonald of Glencoe": swatch = "MacDonaldGlencoe_mod"; break;
    case "MacDonald of Glencoe Modern": swatch = "MacDonaldGlencoe_mod"; break;
    case "MacDonald of the Isles (Green) Ancient": swatch = "MacDonaldIslesGreen_anc"; break;
    case "MacDonald of the Isles (Green) Modern": swatch = "MacDonaldIslesGreen_mod"; break;
    case "MacDonald, Lord of the Isles Hunting": swatch = "MacDonaldIslesHunting_anc"; break;
    case "MacDonald, Lord of the Isles Hunting Ancient": swatch = "MacDonaldIslesHunting_anc"; break;
    case "MacDonald, Lord of the Isles (Red) Ancient": swatch = "MacDonaldIslesRed_anc"; break;
    case "MacDonald, Lord of the Isles (Red) Modern": swatch = "MacDonaldIslesRed_mod"; break;
    case "MacDonald Isles": swatch = "MacDonaldIslesRed_mod"; break;
    case "MacDonald of Kingsburgh": swatch = "MacDonaldKingsburgh_mod"; break;
    case "MacDonald of Kingsburgh Modern": swatch = "MacDonaldKingsburgh_mod"; break;
    case "MacDonald of Sleat": swatch = "MacDonaldSleat_mod"; break;
    case "MacDonald of Sleat Modern": swatch = "MacDonaldSleat_mod"; break;
    case "MacDonald of Staffa": swatch = "MacDonaldStaffa_mod"; break;
    case "MacDonald of Staffa Modern": swatch = "MacDonaldStaffa_mod"; break;
    case "MacDonell of Glengarry Ancient": swatch = "MacDonellGlengarry_anc"; break;
    case "MacDonell of Glengarry Modern": swatch = "MacDonellGlengarry_mod"; break;
    case "MacDonell of Keppoch Ancient": swatch = "MacDonellKeppoch_anc"; break;
    case "MacDonell of Keppoch Modern": swatch = "MacDonellKeppoch_mod"; break;
    case "MacDougall Ancient": swatch = "MacDougall_anc"; break;
    case "MacDougall Modern": swatch = "MacDougall_mod"; break;
    case "MacDougall": swatch = "MacDougall_mod"; break;
    case "MacDuff Ancient": swatch = "MacDuff_anc"; break;
    case "MacDuff Modern": swatch = "MacDuff_mod"; break;
    case "MacDuff": swatch = "MacDuff_mod"; break;
    case "MacDuff Dress Ancient": swatch = "MacDuffDress_anc"; break;
    case "MacDuff Dress Modern": swatch = "MacDuffDress_mod"; break;
    case "MacDuff Dress": swatch = "MacDuffDress_mod"; break;
    case "MacDuff Hunting Ancient": swatch = "MacDuffHunting_anc"; break;
    case "MacDuff Hunting Modern": swatch = "MacDuffHunting_mod"; break;
    case "MacEwan Ancient": swatch = "MacEwan_anc"; break;
    case "MacEwan Modern": swatch = "MacEwan_mod"; break;
    case "MacFarlane Ancient": swatch = "MacFarlane_anc"; break;
    case "MacFarlane Modern": swatch = "MacFarlane_mod"; break;
    case "MacFarlane": swatch = "MacFarlane_mod"; break;
    case "MacFarlane Black/White Ancient": swatch = "MacFarlaneBW_anc"; break;
    case "MacFarlane Black/White Modern": swatch = "MacFarlaneBW_mod"; break;
    case "MacFarlane Hunting Ancient": swatch = "MacFarlaneHunting_anc"; break;
    case "MacFarlane Hunting Modern": swatch = "MacFarlaneHunting_mod"; break;
    case "MacGill": swatch = "MacGill_mod"; break;
    case "MacGill Modern": swatch = "MacGill_mod"; break;
    case "MacGillivray Modern": swatch = "MacGillivray_mod"; break;
    case "MacGillivray Hunting Ancient": swatch = "MacGillivrayHunting_anc"; break;
    case "MacGregor Ancient": swatch = "MacGregor_anc"; break;
    case "MacGregor Modern": swatch = "MacGregor_mod"; break;
    case "MacGregor": swatch = "MacGregor_mod"; break;
    case "MacGregor Hunting": swatch = "MacGregorHunting_anc"; break;
    case "MacGregor Hunting Ancient": swatch = "MacGregorHunting_anc"; break;
    case "MacHardy": swatch = "MacHardy_anc"; break;
    case "MacHardy Ancient": swatch = "MacHardy_anc"; break;
    case "MacIan": swatch = "MacIan_mod"; break;
    case "MacIan Modern": swatch = "MacIan_mod"; break;
    case "MacInnes Ancient": swatch = "MacInnes_anc"; break;
    case "MacInnes Modern": swatch = "MacInnes_mod"; break;
    case "MacInnes": swatch = "MacInnes_mod"; break;
    case "MacIntosh Ancient": swatch = "MacIntosh_anc"; break;
    case "MacIntosh Modern": swatch = "MacIntosh_mod"; break;
    case "MacIntosh": swatch = "MacIntosh_mod"; break;
    case "MacIntosh Hunting Ancient": swatch = "MacIntoshHunting_anc"; break;
    case "MacIntosh Hunting Modern": swatch = "MacIntoshHunting_mod"; break;
    case "MacIntosh Hunting": swatch = "MacIntoshHunting_mod"; break;
    case "MacIntosh Hunting Weathered": swatch = "MacIntoshHunting_wea"; break;
    case "MacIntyre Ancient": swatch = "MacIntyre_anc"; break;
    case "MacIntyre Modern": swatch = "MacIntyre_mod"; break;
    case "MacIntyre & Glenorchy": swatch = "MacIntyreGlenorchy_mod"; break;
    case "MacIntyre & Glenorchy Modern": swatch = "MacIntyreGlenorchy_mod"; break;
    case "MacIntyre Hunting Ancient": swatch = "MacIntyreHunting_anc"; break;
    case "MacIntyre Hunting (Ancient)": swatch = "MacIntyreHunting_anc"; break;
    case "MacIntyre Hunting Modern": swatch = "MacIntyreHunting_mod"; break;
    case "MacIntyre Hunting Weathered": swatch = "MacIntyreHunting_wea"; break;
    case "MacIver": swatch = "MacIver_mod"; break;
    case "MacIver Modern": swatch = "MacIver_mod"; break;
    case "MacKay Ancient": swatch = "MacKay_anc"; break;
    case "MacKay Modern": swatch = "MacKay_mod"; break;
    case "MacKay": swatch = "MacKay_mod"; break;
    case "MacKay Weathered": swatch = "MacKay_wea"; break;
    case "MacKay Blue": swatch = "MacKayBlue_anc"; break;
    case "MacKay Blue Ancient": swatch = "MacKayBlue_anc"; break;
    case "MacKellar": swatch = "MacKellar_mod"; break;
    case "MacKellar Modern": swatch = "MacKellar_mod"; break;
    case "MacKenzie Ancient": swatch = "MacKenzie_anc"; break;
    case "MacKenzie Modern": swatch = "MacKenzie_mod"; break;
    case "MacKenzie": swatch = "MacKenzie_mod"; break;
    case "MacKenzie Weathered": swatch = "MacKenzie_wea"; break;
    case "MacKenzie Dress Ancient": swatch = "MacKenzieDress_anc"; break;
    case "MacKenzie Dress Modern": swatch = "MacKenzieDress_mod"; break;
    case "MacKenzie Dress": swatch = "MacKenzieDress_mod"; break;
    case "MacKillop": swatch = "MacKillop_mod"; break;
    case "MacKillop Modern": swatch = "MacKillop_mod"; break;
    case "MacKinlay": swatch = "MacKinlay_anc"; break;
    case "MacKinlay Ancient": swatch = "MacKinlay_anc"; break;
    case "MacKinnon Ancient": swatch = "MacKinnon_anc"; break;
    case "MacKinnon Modern": swatch = "MacKinnon_mod"; break;
    case "MacKinnon Hunting Ancient": swatch = "MacKinnonHunting_anc"; break;
    case "MacKinnon Hunting Modern": swatch = "MacKinnonHunting_mod"; break;
    case "MacLachlan Ancient": swatch = "MacLachlan_anc"; break;
    case "MacLachlan Modern": swatch = "MacLachlan_mod"; break;
    case "MacLachlan": swatch = "MacLachlan_mod"; break;
    case "MacLachlan Weathered": swatch = "MacLachlan_wea"; break;
    case "MacLachlan Hunting": swatch = "MacLachlanHunting_mod"; break;
    case "MacLachlan Hunting Modern": swatch = "MacLachlanHunting_mod"; break;
    case "MacLachlan Old": swatch = "MacLachlanHunting_mod"; break;
    case "MacLaine Hunting": swatch = "MacLaineHunting_anc"; break;
    case "MacLaine Hunting Ancient": swatch = "MacLaineHunting_anc"; break;
    case "MacLaine of Lochbuie": swatch = "MacLaineLochbuie_mod"; break;
    case "MacLaine of Lochbuie Modern": swatch = "MacLaineLochbuie_mod"; break;
    case "MacLaren Ancient": swatch = "MacLaren_anc"; break;
    case "MacLaren Modern": swatch = "MacLaren_mod"; break;
    case "MacLaren": swatch = "MacLaren_mod"; break;
    case "MacLaren Weathered": swatch = "MacLaren_wea"; break;
    case "MacLay": swatch = "MacLay_mod"; break;
    case "MacLay Modern": swatch = "MacLay_mod"; break;
    case "MacLean of Duart Ancient": swatch = "MacLeanDuart_anc"; break;
    case "MacLean of Duart Modern": swatch = "MacLeanDuart_mod"; break;
    case "MacLean of Duart": swatch = "MacLeanDuart_mod"; break;
    case "MacLean Hunting Ancient": swatch = "MacLeanHunting_anc"; break;
    case "MacLean Ancient": swatch = "MacLeanHunting_anc"; break;
    case "MacLean Hunting Modern": swatch = "MacLeanHunting_mod"; break;
    case "MacLellan": swatch = "MacLellan_anc"; break;
    case "MacLellan Ancient": swatch = "MacLellan_anc"; break;
    case "MacLeod of Harris Ancient": swatch = "MacLeodHarris_anc"; break;
    case "MacLeod Harris": swatch = "MacLeodHarris_anc"; break;
    case "MacLeod of Harris Modern": swatch = "MacLeodHarris_mod"; break;
    case "MacLeod of Harris": swatch = "MacLeodHarris_mod"; break;
    case "MacLeod of Harris Weathered": swatch = "MacLeodHarris_wea"; break;
    case "MacLeod of Lewis Ancient": swatch = "MacLeodLewis_anc"; break;
    case "MacLeod of Lewis Modern": swatch = "MacLeodLewis_mod"; break;
    case "Macleod of Lewis": swatch = "MacLeodLewis_mod"; break;
    case "MacMillan Dress": swatch = "MacMillanDress_anc"; break;
    case "MacMillan Dress Ancient": swatch = "MacMillanDress_anc"; break;
    case "MacMillan Hunting Ancient": swatch = "MacMillanHunting_anc"; break;
    case "MacMillan Hunting": swatch = "MacMillanHunting_anc"; break;
    case "MacMillan Hunting Modern": swatch = "MacMillanHunting_mod"; break;
    case "MacMillan Old Ancient": swatch = "MacMillanOld_anc"; break;
    case "MacMillan Old Modern": swatch = "MacMillanOld_mod"; break;
    case "Macmillan Old": swatch = "MacMillanOld_mod"; break;
    case "MacMillan Old Weathered": swatch = "MacMillanOld_wea"; break;
    case "MacNab Ancient": swatch = "MacNab_anc"; break;
    case "MacNab Modern": swatch = "MacNab_mod"; break;
    case "MacNaughton Ancient": swatch = "MacNaughton_anc"; break;
    case "MacNaughton Modern": swatch = "MacNaughton_mod"; break;
    case "MacNaughton": swatch = "MacNaughton_mod"; break;
    case "MacNeil of Barra Ancient": swatch = "MacNeilBarra_anc"; break;
    case "MacNeil of Barra Modern": swatch = "MacNeilBarra_mod"; break;
    case "MacNeil of Colonsay Ancient": swatch = "MacNeilColonsay_anc"; break;
    case "MacNeil of Colonsay Modern": swatch = "MacNeilColonsay_mod"; break;
    case "MacPhail": swatch = "MacPhail_mod"; break;
    case "MacPhail Modern": swatch = "MacPhail_mod"; break;
    case "MacPhail Hunting": swatch = "MacPhailHunting_anc"; break;
    case "MacPhail Hunting Ancient": swatch = "MacPhailHunting_anc"; break;
    case "MacPherson Ancient": swatch = "MacPherson_anc"; break;
    case "MacPherson Modern": swatch = "MacPherson_mod"; break;
    case "MacPherson": swatch = "MacPherson_mod"; break;
    case "MacPherson Weathered": swatch = "MacPherson_wea"; break;
    case "MacPherson Dress Ancient": swatch = "MacPhersonDress_anc"; break;
    case "MacPherson Dress Modern": swatch = "MacPhersonDress_mod"; break;
    case "MacPherson Hunting Ancient": swatch = "MacPhersonHunting_anc"; break;
    case "MacPherson Hunting Modern": swatch = "MacPhersonHunting_mod"; break;
    case "MacPherson Hunting": swatch = "MacPhersonHunting_mod"; break;
    case "MacPhie": swatch = "MacPhie_mod"; break;
    case "MacPhie Modern": swatch = "MacPhie_mod"; break;
    case "MacQuarrie": swatch = "MacQuarrie_mod"; break;
    case "MacQuarrie Modern": swatch = "MacQuarrie_mod"; break;
    case "MacQueen": swatch = "MacQueen_mod"; break;
    case "MacQueen Modern": swatch = "MacQueen_mod"; break;
    case "MacRae Ancient": swatch = "MacRae_anc"; break;
    case "MacRae Modern": swatch = "MacRae_mod"; break;
    case "MacRae": swatch = "MacRae_mod"; break;
    case "MacRae Dress": swatch = "MacRaeDress_mod"; break;
    case "MacRae Dress Modern": swatch = "MacRaeDress_mod"; break;
    case "MacRae Hunting Ancient": swatch = "MacRaeHunting_anc"; break;
    case "MacRae Hunting Modern": swatch = "MacRaeHunting_mod"; break;
    case "MacRae Hunting": swatch = "MacRaeHunting_mod"; break;
    case "MacRae Hunting Weathered": swatch = "MacRaeHunting_wea"; break;
    case "MacSporran": swatch = "MacSporran_anc"; break;
    case "MacSporran Ancient": swatch = "MacSporran_anc"; break;
    case "MacTaggart": swatch = "MacTaggart_anc"; break;
    case "MacTaggart Ancient": swatch = "MacTaggart_anc"; break;
    case "MacTavish": swatch = "MacTavish_mod"; break;
    case "MacTavish Modern": swatch = "MacTavish_mod"; break;
    case "MacThomas": swatch = "MacThomas_anc"; break;
    case "MacThomas Ancient": swatch = "MacThomas_anc"; break;
    case "Malcolm Ancient": swatch = "Malcolm_anc"; break;
    case "Malcolm Modern": swatch = "Malcolm_mod"; break;
    case "Marshall Ancient": swatch = "Marshall_anc"; break;
    case "Marshall Modern": swatch = "Marshall_mod"; break;
    case "Matheson Ancient": swatch = "Matheson_anc"; break;
    case "Matheson Modern": swatch = "Matheson_mod"; break;
    case "Matheson Hunting Ancient": swatch = "MathesonHunting_anc"; break;
    case "Matheson Hunting Modern": swatch = "MathesonHunting_mod"; break;
    case "Maxwell": swatch = "Maxwell_mod"; break;
    case "Maxwell Modern": swatch = "Maxwell_mod"; break;
    case "Melville": swatch = "Melville_anc"; break;
    case "Melville Ancient": swatch = "Melville_anc"; break;
    case "Menzies Black/White Ancient": swatch = "MenziesBW_anc"; break;
    case "Menzies Black/White Modern": swatch = "MenziesBW_mod"; break;
    case "Menzies Black/White": swatch = "MenziesBW_mod"; break;
    case "Menzies Green Ancient": swatch = "MenziesGreen_anc"; break;
    case "Menzies Green Modern": swatch = "MenziesGreen_mod"; break;
    case "Middleton": swatch = "Middleton_mod"; break;
    case "Middleton Modern": swatch = "Middleton_mod"; break;
    case "Mitchell Ancient": swatch = "Mitchell_anc"; break;
    case "Mitchell Modern": swatch = "Mitchell_mod"; break;
    case "Moffat Modern": swatch = "Moffat_mod"; break;
    case "Moffat": swatch = "Moffat_mod"; break;
    case "Montgomerie Ancient": swatch = "Montgomerie_anc"; break;
    case "Montgomerie Modern": swatch = "Montgomerie_mod"; break;
    case "Morgan": swatch = "Morgan_mod"; break;
    case "Morgan Modern": swatch = "Morgan_mod"; break;
    case "Morrison Ancient": swatch = "Morrison_anc"; break;
    case "Morrison Modern": swatch = "Morrison_mod"; break;
    case "Morrison": swatch = "Morrison_mod"; break;
    case "Morrison Red Ancient": swatch = "MorrisonRed_anc"; break;
    case "Morrison Red Modern": swatch = "MorrisonRed_mod"; break;
    case "Mowat": swatch = "Mowat_anc"; break;
    case "Mowat Ancient": swatch = "Mowat_anc"; break;
    case "Munro Ancient": swatch = "Munro_anc"; break;
    case "Munro Modern": swatch = "Munro_mod"; break;
    case "Murray Ancient": swatch = "MurrayAtholl_anc"; break;
    case "Murray Atholl Ancient": swatch = "MurrayAtholl_anc"; break;
    case "Murray of Atholl Ancient": swatch = "MurrayAtholl_anc"; break;
    case "Murray Modern": swatch = "MurrayAtholl_mod"; break;
    case "Murray of Atholl": swatch = "MurrayAtholl_mod"; break;
    case "Murray of Atholl Modern": swatch = "MurrayAtholl_mod"; break;
    case "Murray Weathered": swatch = "MurrayAtholl_wea"; break;
    case "Murray of Atholl Weathered": swatch = "MurrayAtholl_wea"; break;
    case "Murray of Tullibardine": swatch = "MurrayTullibardine_mod"; break;
    case "Murray of Tullibardine Modern": swatch = "MurrayTullibardine_mod"; break;
    case "Napier Ancient": swatch = "Napier_anc"; break;
    case "Napier Modern": swatch = "Napier_mod"; break;
    case "Nicolson Ancient": swatch = "Nicolson_anc"; break;
    case "Nicolson Modern": swatch = "Nicolson_mod"; break;
    case "Nicolson Hunting Ancient": swatch = "NicolsonHunting_anc"; break;
    case "Nicolson Hunting Weathered": swatch = "NicolsonHunting_wea"; break;
    case "Nisbet": swatch = "Nisbet_mod"; break;
    case "Nisbet Modern": swatch = "Nisbet_mod"; break;
    case "Ogilvie of Airlie": swatch = "OgilvieAirlie_anc"; break;
    case "Ogilvie of Airlie Ancient": swatch = "OgilvieAirlie_anc"; break;
    case "Ogilvie Hunting Ancient": swatch = "OgilvieHunting_anc"; break;
    case "Ogilvie Hunting Modern": swatch = "OgilvieHunting_mod"; break;
    case "Oliphant": swatch = "Oliphant_anc"; break;
    case "Oliphant Ancient": swatch = "Oliphant_anc"; break;
    case "Princess Margaret Rose": swatch = "PrincessMargaret_mod"; break;
    case "Princess Margaret Rose Modern": swatch = "PrincessMargaret_mod"; break;
    case "Princess Mary": swatch = "PrincessMargaret_mod"; break;
    case "Prince of Wales": swatch = "PrinceWales_mod"; break;
    case "Prince of Wales Modern": swatch = "PrinceWales_mod"; break;
    case "Ramsay Modern": swatch = "Ramsay_mod"; break;
    case "Ramsay": swatch = "Ramsay_mod"; break;
    case "Ramsay Blue": swatch = "RamsayBlue_anc"; break;
    case "Ramsay Blue Ancient": swatch = "RamsayBlue_anc"; break;
    case "Ramsay Blue (Ancient)": swatch = "RamsayBlue_anc"; break;
    case "Rattray": swatch = "Rattray_mod"; break;
    case "Rattray Modern": swatch = "Rattray_mod"; break;
    case "Rob Roy MacGregor Ancient": swatch = "RobRoyMacGregor_anc"; break;
    case "Rob Roy MacGregor Modern": swatch = "RobRoyMacGregor_mod"; break;
    case "Robertson Ancient": swatch = "Robertson_anc"; break;
    case "Robertson Modern": swatch = "Robertson_mod"; break;
    case "Robertson": swatch = "Robertson_mod"; break;
    case "Robertson Hunting Ancient": swatch = "RobertsonHunting_anc"; break;
    case "Robertson Hunting Modern": swatch = "RobertsonHunting_mod"; break;
    case "Robertson Red": swatch = "Robertson_wea"; break;
    case "Robertson Weathered": swatch = "Robertson_wea"; break;
    case "Rose": swatch = "Rose_mod"; break;
    case "Rose Modern": swatch = "Rose_mod"; break;
    case "Rose Hunting Ancient": swatch = "RoseHunting_anc"; break;
    case "Rose Hunting Modern": swatch = "RoseHunting_mod"; break;
    case "Ross Ancient": swatch = "Ross_anc"; break;
    case "Ross Modern": swatch = "Ross_mod"; break;
    case "Ross Hunting Ancient": swatch = "RossHunting_anc"; break;
    case "Ross Hunting A": swatch = "RossHunting_anc"; break;
    case "Ross Hunting Modern": swatch = "RossHunting_mod"; break;
    case "Ross Hunting": swatch = "RossHunting_mod"; break;
    case "Rothesay, Duke of": swatch = "RothesayDuke_mod"; break;
    case "Rothesay, Duke of Modern": swatch = "RothesayDuke_mod"; break;
    case "Rothesay, Duke of (Hunting)": swatch = "RothesayDukeHunting_mod"; break;
    case "Rothesay, Duke of (Hunting) Modern": swatch = "RothesayDukeHunting_mod"; break;
    case "Royal Canadian Air Force": swatch = "RoyalCanAirForce_mod"; break;
    case "Russell Ancient": swatch = "Russell_anc"; break;
    case "Russell Modern": swatch = "Russell_mod"; break;
    case "Ruthven": swatch = "Ruthven_mod"; break;
    case "Ruthven Modern": swatch = "Ruthven_mod"; break;
    case "Scott Ancient": swatch = "Scott_anc"; break;
    case "Scott Modern": swatch = "Scott_mod"; break;
    case "Scott Black/White Ancient": swatch = "ScottBW_anc"; break;
    case "Scott Black/White Modern": swatch = "ScottBW_mod"; break;
    case "Scott Brown Ancient": swatch = "ScottBrown_anc"; break;
    case "Scott Brown Modern": swatch = "ScottBrown_mod"; break;
    case "Scott Green Ancient": swatch = "ScottGreen_anc"; break;
    case "Scott Green Modern": swatch = "ScottGreen_mod"; break;
    case "Scott Green": swatch = "ScottGreen_mod"; break;
    case "Scott Green Weathered": swatch = "ScottGreen_wea"; break;
    case "Seton": swatch = "Seton_mod"; break;
    case "Seton Modern": swatch = "Seton_mod"; break;
    case "Seton Hunting": swatch = "SetonHunting_mod"; break;
    case "Seton Hunting Modern": swatch = "SetonHunting_mod"; break;
    case "Shaw Ancient": swatch = "Shaw_anc"; break;
    case "Shaw Modern": swatch = "Shaw_mod"; break;
    case "Shaw Green": swatch = "ShawGreen_mod"; break;
    case "Shaw Green Modern": swatch = "ShawGreen_mod"; break;
    case "Shaw Red": swatch = "ShawRed_mod"; break;
    case "Shaw Red Modern": swatch = "ShawRed_mod"; break;
    case "Shepherd": swatch = "Shepherd_anc"; break;
    case "Shepherd Ancient": swatch = "Shepherd_anc"; break;
    case "Sinclair Ancient": swatch = "Sinclair_anc"; break;
    case "Sinclair Modern": swatch = "Sinclair_mod"; break;
    case "Sinclair": swatch = "Sinclair_mod"; break;
    case "Sinclair Hunting Ancient": swatch = "SinclairHunting_anc"; break;
    case "Sinclair Hunting Modern": swatch = "SinclairHunting_mod"; break;
    case "Sir Walter Scott": swatch = "SirWalterScott_mod"; break;
    case "Sir Walter Scott Modern": swatch = "SirWalterScott_mod"; break;
    case "Skene": swatch = "Skene_mod"; break;
    case "Skene Modern": swatch = "Skene_mod"; break;
    case "Smith Ancient": swatch = "Smith_anc"; break;
    case "Smith Modern": swatch = "Smith_mod"; break;
    case "Smith": swatch = "Smith_mod"; break;
    case "Sommerville Ancient": swatch = "Sommerville_anc"; break;
    case "Stewart Antique": swatch = "StewartAntique"; break;
    case "Stewart Camel": swatch = "StewartCamel"; break;
    case "Stewart of Appin Ancient": swatch = "StewartAppin_anc"; break;
    case "Stewart of Appin Modern": swatch = "StewartAppin_mod"; break;
    case "Stewart of Appin Hunting Ancient": swatch = "StewartAppinHunting_anc"; break;
    case "Stewart of Appin Hunting Modern": swatch = "StewartAppinHunting_mod"; break;
    case "Stewart of Atholl": swatch = "StewartAtholl_mod"; break;
    case "Stewart of Atholl Modern": swatch = "StewartAtholl_mod"; break;
    case "Stewart Black Modern": swatch = "StewartBlack_mod"; break;
    case "Stewart Black": swatch = "StewartBlack_mod"; break;
    case "Stewart Dress Ancient": swatch = "StewartDress_anc"; break;
    case "Stewart Dress Modern": swatch = "StewartDress_mod"; break;
    case "Stewart Dress": swatch = "StewartDress_mod"; break;
    case "Stewart Hunting Ancient": swatch = "StewartHunting_anc"; break;
    case "Stewart Hunting Modern": swatch = "StewartHunting_mod"; break;
    case "Stewart Hunting": swatch = "StewartHunting_mod"; break;
    case "Stewart Hunting Weathered": swatch = "StewartHunting_wea"; break;
    case "Stewart Muted Blue Weathered": swatch = "StewartMutedBlue_wea"; break;
    case "Stewart Muted Blue": swatch = "StewartMutedBlue_wea"; break;
    case "Stewart Old Ancient": swatch = "StewartOld_anc"; break;
    case "Stewart Old Modern": swatch = "StewartOld_mod"; break;
    case "Stewart Old Weathered": swatch = "StewartOld_wea"; break;
    case "Stewart, Prince Charles Edward": swatch = "PrinceEdwardStewart_mod"; break;
    case "Stewart, Prince Charles Edward Modern": swatch = "PrinceEdwardStewart_mod"; break;
    case "Stewart Charles": swatch = "PrinceEdwardStewart_mod"; break;
    case "Stewart Royal Ancient": swatch = "StewartRoyal_anc"; break;
    case "Stewart Royal Modern": swatch = "StewartRoyal_mod"; break;
    case "Stewart Royal": swatch = "StewartRoyal_mod"; break;
    case "Stuart Bute Modern": swatch = "StuartBute_mod"; break;
    case "Stuart Bute": swatch = "StuartBute_mod"; break;
    case "Stuart of Bute": swatch = "StuartBute_mod"; break;
    case "Sutherland Old Ancient": swatch = "SutherlandOld_anc"; break;
    case "Sutherland Old Modern": swatch = "SutherlandOld_mod"; break;
    case "Sutherland Old": swatch = "SutherlandOld_mod"; break;
    case "Sutherland Old Weathered": swatch = "SutherlandOld_wea"; break;
    case "Sutherland Old (Weath)": swatch = "SutherlandOld_wea"; break;
    case "Taylor": swatch = "Taylor_wea"; break;
    case "Taylor Weathered": swatch = "Taylor_wea"; break;
    case "Thomson": swatch = "Thomson_mod"; break;
    case "Thomson Modern": swatch = "Thomson_mod"; break;
    case "Thomson Blue": swatch = "Thomson_mod"; break;
    case "Thomson Camel": swatch = "ThomsonCamel_mod"; break;
    case "Thomson Camel Modern": swatch = "ThomsonCamel_mod"; break;
    case "Thomson Grey": swatch = "ThomsonGrey"; break;
    case "Thomson Hunting": swatch = "ThomsonHunting_mod"; break;
    case "Thomson Hunting Modern": swatch = "ThomsonHunting_mod"; break;
    case "Urquhart Ancient": swatch = "Urquhart_anc"; break;
    case "Urquhart Modern": swatch = "Urquhart_mod"; break;
    case "Urquhart, Broad Red": swatch = "UrquhartBroadRed_anc"; break;
    case "Urquhart, Broad Red Ancient": swatch = "UrquhartBroadRed_anc"; break;
    case "Urquhart Broad Red": swatch = "UrquhartBroadRed_anc"; break;
    case "Wallace Ancient": swatch = "Wallace_anc"; break;
    case "Wallace Modern": swatch = "Wallace_mod"; break;
    case "Wallace": swatch = "Wallace_mod"; break;
    case "Wallace Weathered": swatch = "Wallace_wea"; break;
    case "Wallace Hunting": swatch = "WallaceHunting_anc"; break;
    case "Wallace Hunting Ancient": swatch = "WallaceHunting_anc"; break;
    case "Wallace HTG (Ancient)": swatch = "WallaceHunting_anc"; break;
    case "Watson": swatch = "Watson_anc"; break;
    case "Watson Ancient": swatch = "Watson_anc"; break;
    case "Weir": swatch = "Weir_anc"; break;
    case "Weir Ancient": swatch = "Weir_anc"; break;
    case "Wemyss": swatch = "Wemyss_mod"; break;
    case "Wemyss Modern": swatch = "Wemyss_mod"; break;
    case "Wilson": swatch = "Wilson_anc"; break;
    case "Wilson Ancient": swatch = "Wilson_anc"; break;
    case "Wilson (Ancient)": swatch = "Wilson_anc"; break;
    case "Dalriada": swatch = "Dalriada"; break;
    case "Dundee": swatch = "Dundee"; break;
    case "Edinburgh": swatch = "Edinburgh"; break;
    case "City Edinburgh": swatch = "Edinburgh"; break;
    case "Glasgow": swatch = "Glasgow"; break;
    case "City of Glasgow tartan": swatch = "Glasgow"; break;
    case "Grampian": swatch = "Grampian"; break;
    case "Holyrood": swatch = "Holyrood"; break;
    case "Inverness": swatch = "Inverness"; break;
    case "Musselburgh": swatch = "Musselburgh"; break;
    case "Paisley": swatch = "Paisley"; break;
    case "Perthshire": swatch = "Perthshire"; break;
    case "Roxburgh": swatch = "Roxburgh"; break;
    case "Stirling & Bannockburn": swatch = "StirlingBannockburn"; break;
    case "Brave Heart": swatch = "BraveHeart"; break;
    case "Flower of Scotland": swatch = "FlowerScotland"; break;
    case "Scottish National": swatch = "ScottishNational"; break;
    case "Tartan Army": swatch = "TartanArmy"; break;
    case "British Columbia": swatch = "BritishColumbia"; break;
    case "Cape Breton": swatch = "CapeBreton"; break;
    case "Elora": swatch = "Elora"; break;
    case "Maple Leaf": swatch = "MapleLeaf"; break;
    case "New Brunswick": swatch = "NewBrunswick"; break;
    case "Newfoundland": swatch = "NewFoundland"; break;
    case "New Foundland": swatch = "NewFoundland"; break;
    case "New Glasgow": swatch = "NewGlasgow"; break;
    case "Nova Scotia": swatch = "NovaScotia"; break;
    case "Prince Edward Island": swatch = "PrinceEdwardIsland"; break;
    case "Bermuda": swatch = "Bermuda"; break;
    case "California (Muir)": swatch = "California"; break;
    case "US Marine (Leather Neck)": swatch = "LeatherNeckUSMC"; break;
    case "Bundanoon": swatch = "Spacer"; break;
    case "New South Wales": swatch = "Spacer"; break;
    case "Tasmania": swatch = "Spacer"; break;
    case "Victoria": swatch = "Spacer"; break;
    case "St. Patrick": swatch = "StPatrick"; break;
    case "Saint Patrick": swatch = "StPatrick"; break;
    case "Tara": swatch = "Tara"; break;
    case "Rangers": swatch = "Rangers"; break;
    case "Motherwell": swatch = "Motherwell"; break;
    case "Red": swatch = "PlainRed"; break;
    case "Ancient Red": swatch = "PlainRed_anc"; break;
    case "Blue": swatch = "PlainBlue"; break;
    case "Ancient Blue": swatch = "PlainBlue_anc"; break;
    case "Green": swatch = "PlainGreen"; break;
    case "Ancient Green": swatch = "Spacer"; break;  //swatch = "PlainGreen_anc"; break;
    case "Black": swatch = "PlainBlack"; break;
    case "Maroon": swatch = "PlainMaroon"; break;
    case "Muted Blue": swatch = "MutedBlue"; break;
    case "Italian Tartan": swatch = "Spacer"; break;  //swatch = "ItalianTartan"; break;

    case "Spacer": swatch = "Spacer"; break;

    default: swatch = "Spacer"; break;
  }

  return swatch;
}


////////////////////////////////////////////////////////////
// Change tartan swatch
////////////////////////////////////////////////////////////
function changeTartan(thePath, value, imgObj)
{
  var swatch = getTartan(value);

  if (swatch != "Spacer")
  {
    imgObj.src = thePath + swatch +'.jpg';
  }
  else
  {
    imgObj.src = thePath + swatch +'.gif';
  }
}


////////////////////////////////////////////////////////////
// Get crest 
////////////////////////////////////////////////////////////
function getCrest(value)
{
  var swatch;

  switch (value)
  {
	case "Anderson": swatch = "Anderson"; break;
	case "Armstrong": swatch = "Armstrong"; break;
	case "Baillie": swatch = "Baillie"; break;
	case "Baird": swatch = "Baird"; break;
	case "Barclay": swatch = "Barclay"; break;
	case "Brodie": swatch = "Brodie"; break;
	case "Bruce": swatch = "Bruce"; break;
	case "Buchan": swatch = "Buchan"; break;
	case "Buchanan": swatch = "Buchanan"; break;
	case "Cameron": swatch = "Cameron"; break;
	case "Campbell-of-Bredalbane": swatch = "Campbell-of-Bredalbane"; break;
	case "Campbell-of-Cawdor": swatch = "Campbell-of-Cawdor"; break;
	case "Campbell": swatch = "Campbell"; break;
	case "Chisholm": swatch = "Chisholm"; break;
	case "Cockburn": swatch = "Cockburn"; break;
	case "Colquhoun": swatch = "Colquhoun"; break;
	case "Craig": swatch = "Craig"; break;
	case "Crawford": swatch = "Crawford"; break;
	case "Cumming": swatch = "Cumming"; break;
	case "Cunningham": swatch = "Cunningham"; break;
	case "Davidson": swatch = "Davidson"; break;
	case "Douglas": swatch = "Douglas"; break;
	case "Drummond": swatch = "Drummond"; break;
	case "Elliot": swatch = "Elliot"; break;
	case "Erskine": swatch = "Erskine"; break;
	case "Farquharson": swatch = "Farquharson"; break;
	case "Fergusson": swatch = "Fergusson"; break;
	case "Fletcher": swatch = "Fletcher"; break;
	case "Forbes": swatch = "Forbes"; break;
	case "Forsyth": swatch = "Forsyth"; break;
	case "Fraser": swatch = "Fraser"; break;
	case "Galbraith": swatch = "Galbraith"; break;
	case "Gordon": swatch = "Gordon"; break;
	case "Graham": swatch = "Graham"; break;
	case "Grant": swatch = "Grant"; break;
	case "Gunn": swatch = "Gunn"; break;
	case "Hamilton": swatch = "Hamilton"; break;
	case "Hay": swatch = "Hay"; break;
	case "Henderson": swatch = "Henderson"; break;
	case "Home": swatch = "Home"; break;
	case "Hunter": swatch = "Hunter"; break;
	case "Innes": swatch = "Innes"; break;
	case "Johnstone": swatch = "Johnstone"; break;
	case "Keith": swatch = "Keith"; break;
	case "Kennedy": swatch = "Kennedy"; break;
	case "Kerr": swatch = "Kerr"; break;
	case "Lamont": swatch = "Lamont"; break;
	case "Leslie": swatch = "Leslie"; break;
	case "Lindsay": swatch = "Lindsay"; break;
	case "Lion": swatch = "Lion"; break;
	case "Livingston": swatch = "Livingston"; break;
	case "Logan": swatch = "Logan"; break;
	case "Macalister": swatch = "Macalister"; break;
	case "Macarthur": swatch = "Macarthur"; break;
	case "Macaulay": swatch = "Macaulay"; break;
	case "Macbean": swatch = "Macbean"; break;
	case "Maccallum": swatch = "Maccallum"; break;
	case "Macdonald-of-clanranald": swatch = "Macdonald-of-clanranald"; break;
	case "Macdonald-of-isles": swatch = "Macdonald-of-isles"; break;
	case "macdougall": swatch = "macdougall"; break;
	case "Macduff": swatch = "Macduff"; break;
	case "Macewan": swatch = "Macewan"; break;
	case "Macfarlane": swatch = "Macfarlane"; break;
	case "Macfie": swatch = "Macfie"; break;
	case "Macgillivray": swatch = "Macgillivray"; break;
	case "Macgregor": swatch = "Macgregor"; break;
	case "Macinnes": swatch = "Macinnes"; break;
	case "Macintyre": swatch = "Macintyre"; break;
	case "Maciver": swatch = "Maciver"; break;
	case "Mackay": swatch = "Mackay"; break;
	case "Mackenzie-seaforth": swatch = "Mackenzie-seaforth"; break;
	case "Mackenzie": swatch = "Mackenzie"; break;
	case "Mackinnon": swatch = "Mackinnon"; break;
	case "Mackintosh": swatch = "Mackintosh"; break;
	case "Maclachlan": swatch = "Maclachlan"; break;
	case "Maclaine": swatch = "Maclaine"; break;
	case "Maclaren": swatch = "Maclaren"; break;
	case "Maclean": swatch = "Maclean"; break;
	case "Maclellan": swatch = "Maclellan"; break;
	case "Maclennan": swatch = "Maclennan"; break;
	case "Macleod": swatch = "Macleod"; break;
	case "Macmillan": swatch = "Macmillan"; break;
	case "Macnab": swatch = "Macnab"; break;
	case "MacNaughton": swatch = "MacNaughton"; break;
	case "Macneil": swatch = "Macneil"; break;
	case "Macnicol": swatch = "Macnicol"; break;
	case "Macpherson": swatch = "Macpherson"; break;
	case "Macquarrie": swatch = "Macquarrie"; break;
	case "Macrae": swatch = "Macrae"; break;
	case "Macthomas": swatch = "Macthomas"; break;
	case "Malcolm": swatch = "Malcolm"; break;
	case "Matheson": swatch = "Matheson"; break;
	case "Maxwell": swatch = "Maxwell"; break;
	case "Menzies": swatch = "Menzies"; break;
	case "Montgomery": swatch = "Montgomery"; break;
	case "Morrison": swatch = "Morrison"; break;
	case "Munro": swatch = "Munro"; break;
	case "Murray": swatch = "Murray"; break;
	case "Napier": swatch = "Napier"; break;
	case "Ogilvie": swatch = "Ogilvie"; break;
	case "Pringle": swatch = "Pringle"; break;
	case "Ramsay": swatch = "Ramsay"; break;
	case "Rattray": swatch = "Rattray"; break;
	case "Robertson": swatch = "Robertson"; break;
	case "Rose": swatch = "Rose"; break;
	case "Ross": swatch = "Ross"; break;
	case "Russell": swatch = "Russell"; break;
	case "Scott": swatch = "Scott"; break;
	case "Shaw": swatch = "Shaw"; break;
	case "Sinclair": swatch = "Sinclair"; break;
	case "Skene": swatch = "Skene"; break;
	case "Stewart-appin": swatch = "Stewart-appin"; break;
	case "Stewart": swatch = "Stewart"; break;
	case "Strachan": swatch = "Strachan"; break;
	case "Stuart": swatch = "Stuart"; break;
	case "Sutherland": swatch = "Sutherland"; break;
	case "Thistle": swatch = "Thistle"; break;
	case "Urquhart": swatch = "Urquhart"; break;
	case "Wallace": swatch = "Wallace"; break;
    case "Spacer": swatch = "Spacer"; break;

    default: swatch = "Spacer"; break;
  }

  return swatch;
}


////////////////////////////////////////////////////////////
// Change crest swatch
////////////////////////////////////////////////////////////
function changeCrest(thePath, value, imgObj)
{
  var swatch = getCrest(value);

  if (swatch != "Spacer")
  {
    imgObj.src = thePath + swatch +'.gif';
  }
  else
  {
    imgObj.src = thePath + swatch +'.gif';
  }
}

////////////////////////////////////////////////////////////
// Prices, gift wrapping
////////////////////////////////////////////////////////////
function calculate(type, pid, wrap_cost, wrap_cost_vat) {
	//mains
	var shipping = document.getElementById('post').value;
	var subtotal = document.getElementById('subtotal').value;
	var vat = document.getElementById('vat').value;
	var giftw = document.getElementById('giftw').value;
	var mess = (document.getElementById('card').checked?1.99:0);
	var messv = (document.getElementById('card').checked?0.34825:0);
	var cwrapt = document.getElementById('cwrap').value;
	if (cwrapt != "") {var cwrap = cwrapt.split(",");} else {var cwrap = new Array();}
	//--//
	if (type==1) {
		document.getElementById('vat').value=Number(vat)+Number(wrap_cost_vat);
		var sv = Number(vat)+Number(wrap_cost_vat) + Number(messv);
		if (document.getElementById('dvat'))
			document.getElementById('dvat').innerHTML=sv.toFixed(2);
		else sv = 0;
		document.getElementById('giftw').value=Number(giftw)+Number(wrap_cost);
		var sc = Number(giftw)+Number(wrap_cost);
		document.getElementById('giftwrap').innerHTML=sc.toFixed(2);
		var w = Number(subtotal)+Number(sc)+Number(shipping) + Number(sv);
		cwrap.push(pid);
		tmp = cwrap.join(",");
		document.getElementById('cwrap').value=tmp;
		w = w + Number(mess);
	} else if (type==2) {
		document.getElementById('vat').value=Number(vat)-Number(wrap_cost_vat);
		var sv = Number(vat)-Number(wrap_cost_vat) + Number(messv);
		if (document.getElementById('dvat'))
			document.getElementById('dvat').innerHTML=sv.toFixed(2);
		else sv = 0;
		document.getElementById('giftw').value=Number(giftw)-Number(wrap_cost);
		var sc = Number(giftw)-Number(wrap_cost);
		document.getElementById('giftwrap').innerHTML=sc.toFixed(2);
		var w = Number(subtotal)+Number(sc)+Number(shipping) + Number(sv);
		tmp = new Array();
		var _c = 0;
		for (_i in cwrap) {
			if (cwrap[_i]!=pid) {
				tmp[_c] = cwrap[_i]
				_c++;
			}
		}
		document.getElementById('cwrap').value=tmp.join(",");
		w = w + Number(mess);
	} else if (type==3) {
		if (document.getElementById('messv').value > 0) {
			vat = Number(vat) - Number(document.getElementById('messv').value);
			document.getElementById('vat').value = vat;
			document.getElementById('messv').value = 0;
			document.getElementById('cardv').value = 0;
		} else {
			//document.getElementById('messv').value = 0.34825;
			//vat = Number(vat) + Number(document.getElementById('messv').value);
			//document.getElementById('vat').value = vat;
			document.getElementById('cardv').value = 1;
		}
		var w = Number(subtotal)+Number(giftw)+Number(shipping) + Number(mess) + Number(vat) + Number(messv);
		var sv = Number(vat)+Number(messv);
		if (document.getElementById('dvat')) document.getElementById('dvat').innerHTML=sv.toFixed(2);
		document.getElementById('giftmess').innerHTML=mess.toFixed(2);
		if (mess > 0) {
			document.getElementById('message').value=document.getElementById('message_text').value;
		}
	}
	document.getElementById('dtotal_cost').innerHTML=w.toFixed(2);
}

function checkAttributes(attr) {
  var ok = true;
  for (var i = 0; i < attr; i++) {
    var selected_index = document.getElementById("attr"+i).selectedIndex;
    var text = document.getElementById("attr"+i).options[selected_index].text;
    if ((text == '') || (text.toLowerCase()=='please select') || (text.toLowerCase()=='please choose') || (text.substr(0, 13).toLowerCase()=='please select')) {
      ok = ok && false;
    }
  }
  return ok;
}


