(* 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}];
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*
.*?\"indexc.htm\".*"] -> ""}];
spanNew["epilog"] = epilog;
text = spanReplace[text];
file = ToFileName[dir0, "indexc.htm"];
Export[file, text, "Text"];
(* Russian version *)
filesample = ToFileName[{dirwork, "templates"}, "indexc-ru.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 = ToString[date[[3]]] <> " " <> rusmonths[[date[[2]]]] <> " " <> ToString[date[[1]]] <> " \:0433\:043e\:0434\:0430";
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}];
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[epilogru0, {"SCRIPTNAME" -> "indexc",
RegularExpression["(?i)\\s*.*?\"indexc.htm\".*"] -> ""}];
spanNew["epilog"] = epilog;
text = spanReplace[text];
file = ToFileName[dir0, "indexc-ru.htm"];
Export[file, text, "Text"];
);