(* Unlisted plants *)

maintainUnlisted := (
file1 = ToFileName[{dir00, "system", "collections"}, 
   "all_plants_in_qatar.dat"];
namedata2 = "unlisted_plants_in_qatar";
file2 = ToFileName[{dir00, "system", "collections"}, 
   namedata2 <> ".dat"];
allpictures = StringSplit /@ Import[file1, "Lines"];
unlistedpictures = Complement[allpictures, qplantpictures];
Print["Number of All/Selected/Unlisted pictures: ", 
  Length /@ {allpictures, qplantpictures, unlistedpictures}];
Print["Writing data for unlisted pictures into file ", file2];
unlistedpictures = StringJoin[Riffle[#, " "]] & /@ unlistedpictures;
Export[file2, unlistedpictures, "Lines"];
unlistedurl = "pictures/k/c-" <> namedata2 <> ".htm";
Print["To see unlisted pictures, click here: ", 
  Hyperlink["http://127.0.0.1:81/" <> unlistedurl]];
);