(* Save list of mushrooms and list of pictures with mushrooms to a file to show links on web pages *)

maintainSaveLists := Module[{file},
(*
   tmushroomlist = accNamesList;
   tmushroompictures = Select[picsList, (accNamesPic@@# =!= {})&];
   tmushroompictures = Sort[tmushroompictures, 100 ToExpression[#1[[1]]] + ToExpression[#1[[2]]] < 100 ToExpression[#2[[1]]] + ToExpression[#2[[2]]]&];
*)
   file = FileNameJoin[{dirwork, "mushroompiclist.m"}];
   If[FileExistsQ[file], DeleteFile[file]];
   Save[file, {accNamesPic, nameOnPic}];
];