Account for all officials with positions straddling 1915

[joewiz]

@awmarrs I thought I'd supply the information you requested here, since GitHub's formatting of lists, tables, etc. is quite readable. So here it is, the list of officials who:

1. had a position in/before 1915
2. and also had a position after 1915

In other words, people who had positions that started before 1916-01-01 and positions that started after 1916-01-01. (And by "started", I used the <started> element if available, and otherwise fell back on the <appointed> element.)

person-id	pre-1915 positions	post-1915 positions
adee-alvey-augustus	1882 (positions-principals/third-assistant-secretary.xml); 1886 (positions-principals/second-assistant-secretary.xml); 1898 (positions-principals/secretary-ad-interim.xml)	1924 (positions-principals/assistant-secretary2.xml)
blake-maxwell	1912 (missions-countries/morocco.xml)	1917 (missions-countries/morocco.xml); 1925 (missions-countries/morocco.xml)
collier-william-miller	1905 (missions-countries/spain.xml)	1921 (missions-countries/chile.xml)
crane-charles-richard	1909 (missions-countries/china.xml)	1920 (missions-countries/china.xml)
dodge-henry-percival	1907 (missions-countries/el-salvador.xml); 1907 (missions-countries/honduras.xml); 1908 (missions-countries/el-salvador.xml); 1909 (missions-countries/morocco.xml); 1911 (missions-countries/panama.xml)	1919 (missions-countries/yugoslavia.xml); 1926 (missions-countries/denmark.xml)
einstein-lewis-david	1911 (missions-countries/costa-rica.xml)	1921 (missions-countries/czechoslovakia.xml)
fletcher-henry-prather	1909 (missions-countries/chile.xml); 1914 (missions-countries/chile.xml)	1916 (missions-countries/mexico.xml); 1921 (positions-principals/under-secretary.xml); 1922 (missions-countries/belgium.xml); 1923 (missions-countries/luxembourg.xml); 1924 (missions-countries/italy.xml)
garrett-john-work	1910 (missions-countries/venezuela.xml); 1911 (missions-countries/argentina.xml)	1917 (missions-countries/luxembourg.xml); 1917 (missions-countries/netherlands.xml); 1929 (missions-countries/italy.xml)
gonzales-william-elliott	1913 (missions-countries/cuba.xml)	1919 (missions-countries/peru.xml)
grew-joseph-clark	1913 (missions-countries/austria.xml)	1920 (missions-countries/denmark.xml); 1921 (missions-countries/switzerland.xml); 1924 (positions-principals/under-secretary.xml); 1927 (missions-countries/turkey.xml); 1932 (missions-countries/japan.xml); 1944 (positions-principals/under-secretary.xml); 1945 (positions-principals/secretary-ad-interim.xml)
herrick-myron-timothy	1912 (missions-countries/france.xml)	1921 (missions-countries/france.xml)
hornibrook-william-harrison	1915 (missions-countries/thailand.xml)	1933 (missions-countries/iran.xml); 1935 (missions-countries/afghanistan.xml); 1937 (missions-countries/costa-rica.xml)
jay-peter-augustus	1909 (missions-countries/egypt.xml)	1920 (missions-countries/el-salvador.xml); 1921 (missions-countries/romania.xml); 1925 (missions-countries/argentina.xml)
long-boaz-walton	1914 (missions-countries/el-salvador.xml)	1919 (missions-countries/cuba.xml); 1936 (missions-countries/nicaragua.xml); 1938 (missions-countries/ecuador.xml); 1942 (missions-countries/ecuador.xml); 1943 (missions-countries/guatemala.xml)
mcmillin-benton	1913 (missions-countries/peru.xml)	1919 (missions-countries/guatemala.xml)
philip-hoffman	1908 (missions-countries/ethiopia.xml)	1917 (missions-countries/colombia.xml); 1922 (missions-countries/uruguay.xml); 1925 (missions-countries/iran.xml); 1930 (missions-countries/norway.xml); 1935 (missions-countries/chile.xml)
phillips-william	1909 (positions-principals/third-assistant-secretary.xml); 1914 (positions-principals/third-assistant-secretary.xml)	1920 (missions-countries/luxembourg.xml); 1920 (missions-countries/netherlands.xml); 1922 (positions-principals/under-secretary.xml); 1924 (missions-countries/belgium.xml); 1924 (missions-countries/luxembourg.xml); 1927 (missions-countries/canada.xml); 1933 (positions-principals/under-secretary.xml); 1936 (missions-countries/italy.xml)
polk-frank-lyon	1915 (positions-principals/counselor.xml)	1919 (positions-principals/under-secretary.xml); 1920 (positions-principals/secretary-ad-interim.xml)
riddle-john-wallace	1903 (missions-countries/egypt.xml); 1905 (missions-countries/romania.xml); 1905 (missions-countries/serbia.xml); 1906 (missions-countries/russia.xml)	1921 (missions-countries/argentina.xml)
russell-william-worthington	1904 (missions-countries/colombia.xml); 1905 (missions-countries/venezuela.xml); 1910 (missions-countries/dominican-republic.xml); 1911 (missions-countries/dominican-republic.xml); 1915 (missions-countries/dominican-republic.xml)	1925 (missions-countries/thailand.xml)
schurman-jacob-gould	1912 (missions-countries/greece.xml); 1912 (missions-countries/montenegro.xml)	1921 (missions-countries/china.xml); 1925 (missions-countries/germany.xml)
schuyler-montgomery	1913 (missions-countries/ecuador.xml)	1921 (missions-countries/el-salvador.xml)
sherrill-charles-hitchcock	1909 (missions-countries/argentina.xml)	1932 (missions-countries/turkey.xml)
swenson-laurits-selmer	1897 (missions-countries/denmark.xml); 1909 (missions-countries/switzerland.xml); 1911 (missions-countries/norway.xml)	1921 (missions-countries/norway.xml); 1931 (missions-countries/netherlands.xml)
whitlock-brand	1913 (missions-countries/belgium.xml)	1919 (missions-countries/belgium.xml)
woods-cyrus-e	1912 (missions-countries/portugal.xml)	1921 (missions-countries/spain.xml); 1923 (missions-countries/japan.xml)
young-evan-erastus	1911 (missions-countries/ecuador.xml)	1925 (missions-countries/dominican-republic.xml); 1929 (missions-countries/bolivia.xml)

Here's the query I used:

xquery version "3.1";

(: also, change the index on <date> to xs:string to avoid casting errors :)

string-join(
    (
        "|person-id|pre-1915 positions|post-1915 positions|",
        "|--|--|--|",
        let $started := collection("/db/apps/pocom/")//(principal | chief)/(started | appointed)[date ne ''][1]
        let $pre-1915-people := $started[date le "1916-01-01"]/../person-id => distinct-values()
        let $post-1915-people := $started[date gt "1916-01-01"]/../person-id => distinct-values()
        let $straddlers := $pre-1915-people[. = $post-1915-people]
        for $straddler in $straddlers
        let $positions := collection("/db/apps/pocom/")//person-id[. eq $straddler]/..
        let $pre-1915-positions := 
            for $position in $positions[started/date[. ne ''] le "1916-01-01" or appointed/date[. ne ''] le "1916-01-01"]
            order by $position/(started | appointed)/date[. ne ''][1]
            return (substring($position/(started | appointed)/date[. ne ''][1], 1, 4), "no start year?")[. ne ''][1] || " (" || $position => base-uri() => substring-after("/pocom/") || ")"
        let $post-1915-positions := 
            for $position in $positions[started/date[. ne ''] gt "1916-01-01" or appointed/date[. ne ''] gt "1916-01-01"]
            order by $position/(started | appointed)/date[. ne ''][1]
            return (substring($position/(started | appointed)/date[. ne ''][1], 1, 4), "no start year?")[. ne ''][1] || " (" || $position => base-uri() => substring-after("/pocom/") || ")"
        order by $straddler
        return
            "|" || $straddler || 
            "|" || string-join($pre-1915-positions, "; ") || 
            "|" || string-join($post-1915-positions, "; ") || 
            "|"
    ), 
    "&#10;")