(* Photomontage of pictures for each collection *)

picSet[name_String] := (
   picSet[name] = 
    Select[picsList, MemberQ[accNamesPic @@ #, name] &]
   );

maintainMontageNames := (
Print["Running maintainMontageNames ..."];
tmushpictures = Table[
   sname = ToLowerCase[StringReplace[name, " " -> "_"]];
   set = picSet[name];
   mset = Length[set];
   set = {toyear[#[[1]]], #[[1]], #[[2]]} & /@ set;
   thsize = 128;
   columns = Min[6, mset];
   dirmont = ToFileName[{dir0, "pic"}];
   checkdir1[dirmont];
   filemont = ToFileName[dirmont, sname <> ".jpg"];
   If[FileType[filemont] =!= File || ifRefreshMont === True, 
    maintainMontage];
   set, {name, accNamesList}];
);