(* Group pictures by dates  *)

maintainDates := (
(* Save subcollections as files into html/system/collections *)
(* maintainSubcollections; *)
(* Print places and create a template file for edited-places to show on the web page *)
(* maintainPlaces; *)
(* Photomontage of pictures for each collection *)
thsize = 128;
columns0 = 6;
Do[{date, set} = csubset;
mset = Length[set];
If[mset > 1,
  columns = Min[columns0, mset];
  sdate = ToString /@ date;
  date2 = dateS[date, "-"];
  dirmont = ToFileName[{dir0, "date-pic"}];
  checkdir1[dirmont];
  filemont = ToFileName[dirmont, date2 <> ".jpg"];
  maintainMontage], {csubset, csubsets}];
(* Creating geo files *.kml *)
maintainDatesKML;
(* Pictures grouped by dates *)
maintainIndexc;
(* Web page for a given date  *)
maintainDate;
);

(* Organize collection subsets by dates *)

maintainSubsets := (
picsList3 = {toyear[#[[1]]], #[[1]], #[[2]]} &/@ picsList;
(* Don't use pictures taken by USB Camera through a microscope! *)
picsList3c = Select[picsList3, (shootingdata["camera", #[[2]], #[[3]]] =!= "USB Camera")&];
picsList3cd = Complement[picsList3, picsList3c];
Print[Length[picsList3cd], 
 "pictures of mushrooms taken by USB Camera are not included in collection subsets by dates: ", 
 Short[picsList3cd, 5]];
cdates = shootingdata["datetime", #[[2]], #[[3]]] & /@ picsList3c;
(* Overwrite wrong dates by a date specified in the caption *)
cdates1 = DateList[datedata[#[[2]], #[[3]]]] & /@ picsList3c;
Do[
cdate = cdates[[nr]];
cdate1 = cdates1[[nr]];
cdatea = Take[cdate, 3];
cdatea1 = Take[cdate1, 3];
If[cdatea =!= cdatea1,
   Print["Picture ", picsList3c[[nr]], ": Changing date: ", cdatea, " -> ", cdatea1];
   cdates[[nr, 1]] = cdatea1[[1]]; cdates[[nr, 2]] = cdatea1[[2]]; cdates[[nr, 3]] = cdatea1[[3]];
], {nr, Length[picsList3c]}];
data = Transpose[{picsList3c, cdates}];
data = Gather[data, (#1[[2, {1, 2, 3}]] === #2[[2, {1, 2, 3}]]) &];
csubsets = {#[[1, 2, {1, 2, 3}]], Transpose[#][[1]]} & /@ data;
csubsetsp = Table[
   {date, set} = csubset;
   date = DateString[date, {"MonthName", " ", "Day", ", ", "Year"}];
   set = (#[[2]] <> "-" <> #[[3]]) & /@ set;
   set = ToString[set];
   {date, set}, {csubset, csubsets}];
msubsets = Length[csubsets];
subdates = First /@ csubsetsp;
Print["Collection is organized into ", msubsets, 
  " subsets corresponding to following dates: ", Short[subdates]];
noPrint[csubsetsp // TableForm];
nDates = msubsets;
);

(* Save subcollections as files into html/system/collections *)
(*
maintainSubcollections := (
dirsc = ToFileName[{dir00, "system", "collections"}];
Do[
  {date, set} = csubset;
  filesc = ToFileName[dirsc, "rusmush_" <> dateS[date, "_"] <> ".dat"];
  text = Table[StringJoin[Riffle[pic, " "]], {pic, set}];
  Export[filesc, text, "Lines"], {csubset, csubsets}];
Print["Subcollections data were saved into directory ", dirsc, ". Upload it to a web directory!"];
);
*)