(* Index file, listing in alphabetical order *) maintainIndexA := ( Print["Creating listing in alphabetical order ..."]; xsizem1 = 400; (* Max width of pop-up thumbnail *) ysizem1 = 300; (* Max height of pop-up thumbnail *) height = 270; font =12; margin =1; sfont := Switch[font, 14, "small", 12, "x-small", _, ToString[font]]; text = { " Flora of Qatar - list of plants in alphabetical order

Home Page > Picture Archives > Flora of Qatar" <> " > List by family | Alphabetical list | Compact list

Flora of Qatar

Alphabetical list of plant species

", (* --- Listing starts *) Table[ planta = StringReplace[plant, " " -> "_"]; plantal = ToLowerCase[planta]; datasql = plantdatasql[plant]; excls = exclusions[plant]; {""}, {plant, plantlista}], "

plantal <> ".htm\">" <> plant <> "

", Table[ {year, roll, pic, capt, xsize, ysize, date, pop} = dat; link = "asergeev/pictures/archives/compress/" <> year <> "/" <> roll <> "/" <> pic <> ".htm"; linkjpg = "asergeev/pictures/archives/" <> year <> "/" <> roll <> "/jpeg/" <> pic <> "b.jpg"; (*linkpopjpg = "asergeev/pictures/archives/compress/" <> year <> "/" <> roll <> "/jpeg/" <> pic <> "q.jpg";*) xscale = xsizem1/xsize; yscale = ysizem1/ysize; scale = Min[xscale, yscale]; xm = Round[scale xsize]; ym = Round[scale ysize]; wthmaxt = 240; hthmaxt = 180; {pw, ph} = {xsize, ysize}; (* {sc1, sc2} = {wthmaxt, hthmaxt}/{xsize, ysize}; sc = Min[sc1, sc2]; {pwr, phr} = Round[sc {xsize, ysize}]; *) If[pw > ph, phc = ph; If[pw > 4./3 ph, pwc = 4./3 ph, pwc = pw]; pwr = hthmaxt/phc pwc; phr = hthmaxt, pwc = pw; If[ph > 4./3 pw, phc = 4./3 pw, phc = ph]; pwr = hthmaxt; phr = hthmaxt/pwc phc; ]; pwr = Round[pwr]; phr = Round[phr]; pwr = phr = 128; imgtrail = "ONMOUSEOVER=\"showtrail('asergeev/pictures/archives/compress/" <> year <> "/" <> roll <> "/jpeg/" <> pic <> "m.jpg'," <> ToString[xm] <> "," <> ToString[ym] <> ");" <> "\" ONMOUSEOUT=\"hidetrail();\""; jpg = " linkjpg <> "\" TARGET=\"_blank\">

year <> "/" <> roll <> "/jpeg/" <> pic <> "q.jpg" <> "\" BORDER=\"0\" HEIGHT=\"" <> ToString[phr] <> "\" WIDTH=\"" <> ToString[pwr] <> "\" " <> imgtrail <> ">"; (*"

linkjpg <> "\" \" BORDER=\"2\" HEIGHT=\"128\" WIDTH=\"128\">"*) If[MemberQ[excls, {roll, pic}], "", "

" <> jpg <> "

"], {dat, datasql}], "

", (* Listing ends --- *) (* Footer *) "

Outside links

", showOutLinks, "

How the web page was created

A list of plants with their common names was written using online sources and books.
Web pages were written by a program consisting of several scripts.
Full names, synonyms, and classification of plants were found online from catalogueoflife.org and theplantlist.org using a script.
Pictures of plants were selected from a database using a script.
This web page was written using a script.

Acknowledgements

QNHG (Qatar Natural History Group) and associated people, for a possibility to participate in their field excursions and to learn about local nature.

" }; file = ToFileName[dir0, "indexa.htm"]; Export[file, StringJoin[Riffle[Flatten[text], "\n"]], "Text", CharacterEncoding -> "UTF8"]; );