(* Alphabetical list  *)

maintainIndexa := (
Print["Running maintainIndexa ..."];
filesample = ToFileName[{dirwork, "templates"}, "indexa.htm"];
checkfile[filesample];
text = Import[filesample, "Text"];
spanRead[text];
tochar = " \[RightArrow] ";
spanNew["topline"] = toplinefix[spanOld["topline"]];
(* Latin *)
nameids = Table[name = data[[1]];
   getAttributes[name];
   nameid, {data, listsort}];
listlat = Table[name = data[[1]];
   getAttributes[name];
   Append[
    Table[{syn, nameid}, {syn, synonyms}], {nameid, "000"}], {data, listsort}];
listlat = Sort[Join @@ listlat];
listlaten = Table[
   {syn, name} = pair;
   ref = If[name === "000", syn, name];
   ref = 
    "en/" <> StringReplace[ToLowerCase[ref], " " -> "_"] <> ".htm";
   item = If[name === "000",
    "<li><B><A HREF=\"" <> ref <> "\">" <> syn <> "</A></B></li>",
    "<li>" <> syn <> tochar <> "<A HREF=\"" <> ref <> "\">" <> name <>
      "</A></li>"
    ];
    item = StringReplace[item, " " -> "&nbsp;"];
    item = StringReplace[item, "<A&nbsp;" -> "<A "];
    item, {pair, listlat}];
spanNew["listlat"] = StringJoin[listlaten];
(* Common *)
listcom = Table[name = data[[1]];
   getAttributes[name];
   Table[{lowerize[cname], nameid}, {cname, ennames}], {data, listsort}];
listcom = Sort[Join @@ listcom];
listcom = Table[
   {cname, name} = pair;
   ref = 
    "en/" <> StringReplace[ToLowerCase[name], " " -> "_"] <> ".htm";
   item = "<li>" <> capitalize[cname] <> tochar <> "<A HREF=\"" <> ref <> "\">" <> name <> "</A></li>";
   item = StringReplace[item, " " -> "&nbsp;"];
   item = StringReplace[item, "<A&nbsp;" -> "<A "];
   item, {pair, listcom}];
spanNew["listcom"] = StringJoin[listcom];
(* Local *)
listloc = Table[name = data[[1]];
   getAttributes[name];
   Table[{transliterate[lowerize[cname]], nameid}, {cname, runames}], {data, listsort}];
listloc = Sort[Join @@ listloc];
listloc = Table[
   {cname, name} = pair;
   ref = 
    "en/" <> StringReplace[ToLowerCase[name], " " -> "_"] <> ".htm";
   item = "<li>" <> capitalize[cname] <> tochar <> "<A HREF=\"" <> ref <> "\">" <> name <> "</A></li>";
   item = StringReplace[item, " " -> "&nbsp;"];
   item = StringReplace[item, "<A&nbsp;" -> "<A "];
   item, {pair, listloc}];
spanNew["listloc"] = StringJoin[listloc];
epilog = StringReplace[epilog0, {"SCRIPTNAME" -> "indexa",
      RegularExpression["(?i)\\s*<LI>.*?\"indexa.htm\".*"] -> ""}];
spanNew["epilog"] = epilog;
text = spanReplace[text];
file = ToFileName[dir0, "indexa.htm"];
Export[file, text, "Text"];
(* The same for Russian language *)
filesample = ToFileName[{dirwork, "templates"}, "indexa-ru.htm"];
checkfile[filesample];
text = Import[filesample, "Text"];
spanRead[text];
tochar = " \[RightArrow] ";
spanNew["topline"] = toplinefix[spanOld["topline"]];
(* Latin *)
listlatru = Table[
   {syn, name} = pair;
   ref = If[name === "000", syn, name];
   ref = 
    "ru/" <> StringReplace[ToLowerCase[ref], " " -> "_"] <> ".htm";
   item = If[name === "000",
    "<li><B><A HREF=\"" <> ref <> "\">" <> syn <> "</A></B></li>",
    "<li>" <> syn <> tochar <> "<A HREF=\"" <> ref <> "\">" <> name <>
      "</A></li>"
    ];
    item = StringReplace[item, " " -> "&nbsp;"];
    item = StringReplace[item, "<A&nbsp;" -> "<A "];
    item, {pair, listlat}];
spanNew["listlat"] = StringJoin[listlatru];
(* Common *)
listcom = Table[name = data[[1]];
   getAttributes[name];
   Table[{lowerize[cname], nameid}, {cname, runames}], {data, listsort}];
listcom = Sort[Join @@ listcom, (rusorder[#1[[1]]] < rusorder[#2[[1]]])&];
listcom = Table[
   {cname, name} = pair;
   ref = 
    "ru/" <> StringReplace[ToLowerCase[name], " " -> "_"] <> ".htm";
   item = "<li>" <> capitalize[cname] <> tochar <> "<A HREF=\"" <> ref <> "\">" <> name <> "</A></li>";
   item = StringReplace[item, " " -> "&nbsp;"];
   item = StringReplace[item, "<A&nbsp;" -> "<A "];
   item, {pair, listcom}];
spanNew["listcom"] = StringJoin[listcom];
epilog = StringReplace[epilogru0, {"SCRIPTNAME" -> "indexa",
      RegularExpression["(?i)\\s*<LI>.*?\"indexa-ru.htm\".*"] -> ""}];
spanNew["epilog"] = epilog;
text = spanReplace[text];
file = ToFileName[dir0, "indexa-ru.htm"];
Export[file, text, "Text"];
);