(* Pictures grouped by dates *)

maintainIndexc := (
Print["Running maintainIndexc ..."];
filesample = ToFileName[{dirwork, "templates"}, "indexc.htm"];
checkfile[filesample];
text = Import[filesample, "Text"];
spanRead[text];
spanNew["topline"] = toplinefix[spanOld["topline"]];
spanNew["items"] = Table[
   {date, set} = csubset;
   place = placeprint[date];
   dateplace = datelong = DateString[date, {"MonthName", " ", "DayShort", ", ", "Year"}];
   If[Head[place] === String && place =!= "", dateplace = dateplace <> ": " <> place];
   dateshort = DateString[date, {"Year", "Month", "Day"}];
   spanNew["dateplace"] = StringReplace[spanOld["dateplace"], {"DATESHORT" -> dateshort, "DATEDASH" -> dateS[date, "-"], "DATEPLACE" -> dateplace}];
   names = accNamesPic[#[[2]], #[[3]]]&/@ set;
   names = Union[Flatten[names]];
   spanNew["names"] = If[names === {}, "",
      names = StringJoin[Riffle[names, ", "]];
      StringReplace[spanOld["names"], {"NAMES" -> names}]];
   datepics = "date-pic/" <> dateS[date, "-"];
   If[Length[set] == 1, 
      {year, roll, pic} = set[[1]];
      datepics = "asergeev/pictures/archives/compress/" <> year <> "/" <> roll <> "/" <> "/jpeg/" <> pic <> "t";
      ];
   spanNew["pictures"] = StringReplace[spanOld["pictures"], {"DATESHORT" -> dateshort, "DATEDASH" -> dateS[date, "-"], "DATEPICS" -> datepics}];
   spanReplace[spanOld["items"]], {csubset, csubsets}] // StringJoin;
spanNew["datelist"] = Table[
   {date, set} = csubset;
   StringReplace[spanOld["datelist"], {"DateShort" -> dateS[date, ""], "DateName" -> dateS[date, "-"]}], {csubset, csubsets}] // StringJoin;
epilog = StringReplace[epilog0, {"SCRIPTNAME" -> "indexc",
      RegularExpression["(?i)\\s*<LI>.*?\"indexc.htm\".*"] -> ""}];
spanNew["epilog"] = epilog;
text = spanReplace[text];
file = ToFileName[dir0, "indexc.htm"];
Export[file, text, "Text"];
   );