(* List of English names *) maintainIndexEn := ( Print["Running maintainIndexEn ..."]; filesample = ToFileName[{dirwork, "templates"}, "indexen.htm"]; checkfile[filesample]; text = Import[filesample, "Text"]; spanRead[text]; tochar = " \[RightArrow] "; spanNew["topline"] = toplinefix[spanOld["topline"]]; (* Common *) listcom = Table[ ennames = commonNames[name]; Table[{cname, name}, {cname, ennames}], {name, accNamesList}]; listcom = Sort[Join @@ listcom]; listcom = Table[ {cname, name} = pair; ref = "en/" <> StringReplace[ToLowerCase[name], " " -> "_"] <> ".htm"; item = "