(* Text to upload to spbmyco.ru *)

maintainMyco := (
line0 = family0 = "";
text = Table[
   name = data[[1]];
   id = selectid[name];
   kingdom = idcomponents["kingdom", id];
   phylum = idcomponents["phylum", id];
   class = idcomponents["class", id];
   order = idcomponents["order", id];
   family = idcomponents["family", id];
   rnames = translatename[name, "ru"];
   nameru = "";
   If[rnames =!= {}, nameru = rnames[[1]]];
   nPrint[name, " -> ", rnames];
   line = 
    kingdom <> " > " <> phylum <> " > " <> class <> " > " <> order;
   a = If[line =!= line0, "
[size=90]" <> line <> "[/size]
", ""];
   line0 = line;
   ba = rusfamily[family];
   ba = If[Head[ba] === String, " (" <> ba <> ")", ""];
   b = If[family =!= family0, "
" <> ToUpperCase[family] <> ba <> "

", ""];
   family0 = family;
   ca = If[nameru === "", "", " - " <> nameru];
   c = "[b]" <> name <> "[/b]" <> ca;
   sname = htmlname[name];
   d = "
[url=http://mushrooms.su/ru/" <> sname <> 
     ".htm][img]http://mushrooms.su/pic90/" <> sname <> 
".jpg[/img][/url]
";
   a <> b <> c <> d, {data, listsort}];
file = ToFileName[dirwork, "spbmyco.txt"];
Export[file, text];
Print["Text to upload to spbmyco.ru is written to the file: ", file];
);