Jump to content

User:Dudemanfellabra/NRISOnly.js

From Wikipedia, the free encyclopedia
The printable version is no longer supported and may have rendering errors. Please update your browser bookmarks and please use the default browser print function instead.
Note: After saving, you have to bypass your browser's cache to see the changes. Google Chrome, Firefox, Microsoft Edge and Safari: Hold down the ⇧ Shift key and click the Reload toolbar button. For details and instructions about other browsers, see Wikipedia:Bypass your cache.
var wikitext = 'error'
var NRISOnlyStructure=[]; // NRISOnlyStructure[table][row]["Titles"][item].StatName to get info
var TotalToQuery=0;
var TotalQueried=0;
var OutputBase = "User:NationalRegisterBot/AllNRHPPages"
var ErrorCount=0;
var WarningCount=[["",0]]; // 0=status, 1=count
var InitialTime=0;
var ProgressDivTimer=0 // timer for updating ProgressDiv
var DefaultQueryPause=1 // number of milliseconds to wait between each API query; increased by code if rate limit reached

function CheckPermission() {
    if (mw.user.getName()!="NationalRegisterBot"&&mw.user.getName()!="Dudemanfellabra") {
        alert("Only NationalRegisterBot has been authorized to use the NRIS-only script!")
        return
    } else {
        NRISOnlyButtons()
    }
}

function NRISOnlyButtons() {
    var pageName=mw.config.get('wgPageName')
    var button=document.createElement("input")
    button.setAttribute("type", "button");
    button.setAttribute("id", "nrisonlybutton");
    var content=document.getElementById('mw-content-text')

    if (location.href.indexOf('action')==-1) {
        if (pageName=="Wikipedia:WikiProject_National_Register_of_Historic_Places/Progress") {
            button.setAttribute("value", "Update list for NationalRegisterBot");
            button.setAttribute("onclick", "NRISOnlyClicked('update')");
        } else if (pageName=="User:NationalRegisterBot/AllNRHPPages/Duplications") {
            button.setAttribute("value", "Gather duplicate stats");
            button.setAttribute("onclick", "NRISOnlyClicked('duplicate')");
        } else if (pageName=="User:NationalRegisterBot/NRISOnly") {
            button.setAttribute("value", "Tag these articles");
            button.setAttribute("onclick", "NRISOnlyClicked('tag')");
        } else {
            return;
        }
        content.parentNode.insertBefore(button, content)
    }
}

function NRISOnlyClicked(action) { // after button is clicked, disable it and perform action
    var nrisonlybutton = document.getElementById('nrisonlybutton')
    nrisonlybutton.disabled = true
    var ProgressDiv = document.createElement("div")
    ProgressDiv.setAttribute("id", "ProgressDiv")
    ProgressDiv.setAttribute("style", "width:600px; border:1px solid black; padding:5px; background:#ffffff")
    nrisonlybutton.parentNode.insertBefore(ProgressDiv, nrisonlybutton)

    if (action=="update") {
        ProgressDiv.innerHTML = "Initializing..."
        getNRISOnlyProgressPageWikitext(mw.config.get('wgPageName')) // after wikitext fetched, SetupNRISOnlyTables() is called
    } else if (action=="duplicate") {
        CheckDuplicates();
    } else if (action=="tag") {
        TagNRISOnly();
    }
}

// create array of table structure to be populated later
function SetupNRISOnlyTables() {
    var table=document.getElementsByClassName('wikitable sortable');

    // extract list names from Progress page
    for (var i=1; i<table.length; i++) { // skip national table
        var tr=table[i].getElementsByTagName("tr")
        NRISOnlyStructure[i-1]=[];
        var skipOffset=1 // number of duplicate/skippable rows encountered so far
        for (var j=1; j<tr.length-2; j++) { // skip title row, statewide duplicates, and totals row
            var td=tr[j].getElementsByTagName("td") // fill in existing data in case error
            var link=td[1].getElementsByTagName("a")
            if (link.length!=0 && link[0].href.search("#")==-1) {
                NRISOnlyStructure[i-1][j-skipOffset]={};
                NRISOnlyStructure[i-1][j-skipOffset].Titles=[]; // Placeholder for article names

                link=decodeURI(link[0].href).split("/")
                link=link[link.length-1].replace(/_/g," ")
                NRISOnlyStructure[i-1][j-skipOffset].Link=link

                NRISOnlyStructure[i-1][j-skipOffset].ID=td[0].innerHTML.substr(0,5) // for finding empty counties

                NRISOnlyStructure[i-1][j-skipOffset].CatsQueried=0 // for querying later
                NRISOnlyStructure[i-1][j-skipOffset].TotalToCheck=0
                NRISOnlyStructure[i-1][j-skipOffset].TotalChecked=0
            } else { // must be a duplicate row
                skipOffset++
            }
        }
    }
    for (var i=0; i<NRISOnlyStructure.length; i++) { // count total number of lists to check
        TotalToQuery+=NRISOnlyStructure[i].length
    }

    var ProgressDiv=document.getElementById("ProgressDiv")
    ProgressDiv.innerHTML+=" Done!<br>"

    var ProgressSpan=document.createElement("span")
    ProgressSpan.setAttribute("id", "ProgressSpan")
    ProgressDiv.appendChild(ProgressSpan)
    ProgressSpan.innerHTML = "Querying articles in each list... 0 (0%) of "+TotalToQuery+" lists complete."

    var TimeSpan=document.createElement("span")
    TimeSpan.setAttribute("id", "TimeSpan")
    ProgressDiv.appendChild(TimeSpan)
    TimeSpan.innerHTML = ""

    var EditSpan=document.createElement("span")
    EditSpan.setAttribute("id", "EditSpan")
    ProgressDiv.appendChild(EditSpan)
    EditSpan.innerHTML = ""

    InitialTime=new Date() // record starting time
    UpdateNRISOnlyProgressDiv();
    LoadNRISOnlyList(0,0); // begin querying first page
}

// load next list to query
function LoadNRISOnlyList(currentTable,currentRow) {
    // check if we need to go to the next table
    if (currentRow>NRISOnlyStructure[currentTable].length-1) {
        currentRow=0
        currentTable++
    }
    // check if there are no more tables
    if (currentTable>NRISOnlyStructure.length-1) return;

    setTimeout(function(){ // short delay to prevent API overload
        getNRISOnlyListWikitext(currentTable,currentRow);
        LoadNRISOnlyList(currentTable,currentRow+1);
    }, DefaultQueryPause);
    return;
}

function NRISOnlyWikitextFetched(ajaxResponse,status,currentTable,currentRow) {
    if (status!="success") {
        NewNRISOnlyWarning("Wikitext "+ajaxResponse.errorThrown)
        setTimeout(function(){ // try again after delay if rate limit reached
            getNRISOnlyListWikitext(currentTable,currentRow);
        }, 250);
        return;
    }
    // won't get here unless successful
    var responseText=JSON.parse(ajaxResponse.responseText)
    var pagetext=responseText.query.pages[responseText.query.pageids[0]].revisions[0]["*"]
    if (responseText.query.redirects) { // if redirect, find section
        var SectionName="Undefined"
        for (var r in responseText.query.redirects) {
            if (typeof responseText.query.redirects[r].tofragment!="undefined") SectionName=responseText.query.redirects[r].tofragment.replace(/.27/g,"'")
        }

        var regex = new RegExp("=[ ]*(\\[\\[(.*?\\|)?[ ]*)?"+SectionName+"([ ]*\\]\\])?[ ]*=", "g")
        var sectionheader=pagetext.match(regex)
        if (sectionheader == null) { // if no section found, check if one of known empty counties
            var EmptyCounties=["02270", "12067", "42023", "48017", "48023", "48033", "48069", "48075", "48079", "48083", "48103", "48107", "48119", "48131", "48155", "48165", "48195", "48207", "48219", "48247", "48269", "48279", "48341", "48369", "48389", "48415", "48421", "48431", "48433", "48437", "48445", "48461", "48475", "48501", "51735"]

            var ID = NRISOnlyStructure[currentTable][currentRow].ID
            var errorcode = 0
            for (var k=0; k<EmptyCounties.length; k++) {
                if (ID==EmptyCounties[k]) {errorcode=-1}
            }
            if (errorcode!=0) { // must be an empty county
                TotalQueried++
                if (TotalQueried==TotalToQuery) DoneQueryingNRIS()
                return;
            }
            // if we're here, must have been a redirect with no section, and not a known empty county
            sectionheader=pagetext.match(/{{NRHP header/g) // then look for tables without a section
            if (sectionheader==null||sectionheader.length>1) { // if still can't find a table or find multiple tables, fatal error
                NRISOnlyFatalError(0,currentTable,currentRow)
                return;
            }
        }
        var StartIndex=pagetext.indexOf(sectionheader[0])
        var sectiontext=pagetext.substr(StartIndex,pagetext.indexOf("\n==",StartIndex)-StartIndex) // only look at relevant section

        StartIndex=sectiontext.indexOf("{{NRHP header")
        if (StartIndex==-1) {
            if (sectiontext.indexOf("{{NRHP row")!=-1) {
                NRISOnlyFatalError(2,currentTable,currentRow) // incorrectly formatted table
                return;
            } else { // must be an empty county
                TotalQueried++
                if (TotalQueried==TotalToQuery) DoneQueryingNRIS()
                return;
            }
        }
        var tabletext=sectiontext.substr(StartIndex,sectiontext.indexOf("\n|}",StartIndex)-StartIndex)
    } else { // if not a redirect, default to first table on page
        var StartIndex=pagetext.indexOf("{{NRHP header")
        if (StartIndex==-1) {
            NRISOnlyFatalError(1,currentTable,currentRow) // no list found
            return;
        }
        var tabletext=pagetext.substr(StartIndex,pagetext.indexOf("\n|}",StartIndex)-StartIndex)
    }

    // now that tabletext has only relevant table, extract rows
    var Rows=[]
    var str = "{{"
    var start=0
    var commentstart=0
    while (true) {
        commentstart=tabletext.indexOf("<!--",start)
        start=tabletext.indexOf(str,start)
        if (start==-1) break
        while (commentstart<start&&commentstart!=-1) { // skip any commented out rows
            start=tabletext.indexOf("-->",commentstart)
            commentstart=tabletext.indexOf("<!--",start)
            start=tabletext.indexOf(str,start)
        }
        if (start==-1) break
        var open=1
        var index=start+str.length
        while (open!=0 && index<tabletext.length) { // make sure to find correct matching close brackets for row template
            if (tabletext.substr(index,2)=="}}") {
                open--
                index++
            } else if (tabletext.substr(index,2)=="{{") {
                open++
                index++
            }
            index++
        }
        var template=tabletext.substr(start,index-start)
        var regex = new RegExp("{{[\\s]*NRHP row(\\s)*\\|", "g")
        if (template.match(regex)!=null) Rows.push(template) // make sure it's the row template and not some other one
        start++
    }
    for (var i=0; i<Rows.length; i++) { // get rid of false positives inside nowiki or pre tags
        var regex=new RegExp("<[ ]*?(nowiki|pre)[ ]*?>((?!<[ ]*?/[ ]*?(nowiki|pre)[ ]*?>)(.|\\n))*?"+Rows[i].replace(/[\-\[\]\/\{\}\(\)\*\+\?\.\\\^\$\|]/g, "\\$&")+"(.|\\n)*?<[ ]*?/[ ]*?(nowiki|pre)[ ]*?>", "g")
        if (tabletext.match(regex)!=null) {Rows.splice(i,1); i--}
    }

    for (var i=0; i<Rows.length; i++) { // extract titles for querying
        var ThisRow=Rows[i]

        var article=ThisRow.match(/\|[ ]*?article[ ]*?=[ ]*?.*?[\n|\|]/g)
        var blank=ThisRow.match(/\|[ ]*?article[ ]*?=[ ]*?[\n|\|]/g)                               // default to name param if article
        if (article==null||blank!=null) article=ThisRow.match(/\|[ ]*?name[ ]*?=[ ]*?.*?[\n|\|]/g) // blank or missing
        // strip param name, final line break
        article=article[0].replace(/\|[ ]*?(article|name)[ ]*?=[ ]*?/g,"").replace(/[\n|\|]/g,"").replace(/\<\!\-\-(.|[\r\n])*?\-\-\>/g,"").trim()
        article=decodeURIComponent(article.split("#")[0].trim())     // corrections for weird titles

        var refnum=ThisRow.match(/[0-9]{8}/g) // also extract refnums
        if (refnum!=null) {
            if (refnum[0]=="98000562"||refnum[0]=="98000563") refnum[0]="98000562,98000563"   // hard-code troublesome
            if (refnum[0]=="01000363"||refnum[0]=="01000364") refnum[0]="01000363,01000364"   // multistate duplicates
            if (refnum[0]=="02000529"||refnum[0]=="02000530") refnum[0]="02000529,02000530"   // ...
            refnum=refnum[0]
        } else {
            refnum="missing"
        }

        var temp=NRISOnlyStructure[currentTable][currentRow].Titles
        temp[temp.length]={"name":article, "refnum":refnum, "exists":true,
                           "isDab":false, "isTaggedNRISOnly":false, "isNRISOnly":false, "proseSize":0, "numberRefs":0}
        NRISOnlyStructure[currentTable][currentRow].Titles=temp
    }

    var StartIndex=0
    LoadNextNRISOnlyListQuery(StartIndex,currentTable,currentRow)
    return;
}

// ready next batch of articles to query
function LoadNextNRISOnlyListQuery(StartIndex,currentTable,currentRow) {
    if (StartIndex==NRISOnlyStructure[currentTable][currentRow].Titles.length) { // all queries begun for this list
        return;
    }
    // must have some more rows to query
    if (NRISOnlyStructure[currentTable][currentRow].Titles.length-StartIndex>50) {
        var TempTitles=NRISOnlyStructure[currentTable][currentRow].Titles.slice(StartIndex,StartIndex+50)
    } else {
        var TempTitles=NRISOnlyStructure[currentTable][currentRow].Titles.slice(StartIndex)
    }

    for (var i=0; i<TempTitles.length; i++) { // only extract article names
        TempTitles[i]=TempTitles[i].name
    }

    StartIndex+=TempTitles.length
    setTimeout(function(){ // short delay to prevent API overload
        QueryNRISOnlyCats(TempTitles,StartIndex,currentTable,currentRow)
        LoadNextNRISOnlyListQuery(StartIndex,currentTable,currentRow)
    }, DefaultQueryPause);
    return;
}

// query next batch of articles
function QueryNRISOnlyCats(TempTitles,StartIndex,currentTable,currentRow) {
    var TitleList=TempTitles.join("|")
    $.ajax({
        dataType: "json",
        url: mw.util.wikiScript('api'),
        data: {
            format: 'json',
            action: 'query',
            prop: 'categories',
            clcategories: 'Category:All disambiguation pages|Category:All articles sourced only to NRIS',
            cllimit: 'max',
            titles: TitleList,
            redirects: 'true'
        },
        error: function(ArticlejsonObject,status,errorThrown) {ArticlejsonObject.errorThrown=errorThrown},
        complete: function(ArticlejsonObject,status) {
                NRISOnlyCatsChecked(ArticlejsonObject,status,TempTitles,StartIndex,currentTable,currentRow)
            }
    });
    return;
}

// parse API response for article query
function NRISOnlyCatsChecked(ArticlejsonObject,status,TempTitles,StartIndex,currentTable,currentRow) {
    if (status!="success") {
        NewNRISOnlyWarning("Articles "+ArticlejsonObject.errorThrown)

        setTimeout(function(){ // try again after delay if rate limit reached
            QueryNRISOnlyCats(TempTitles,StartIndex,currentTable,currentRow)
        }, 250);
        return;
    }
    // won't get here unless successful
    NRISOnlyStructure[currentTable][currentRow].CatsQueried+=TempTitles.length

    var responseText=JSON.parse(ArticlejsonObject.responseText)
    if (responseText.query.normalized) { // normalize any weird titles
        for (var n in responseText.query.normalized) {
            for (var i=0; i<TempTitles.length; i++) {
                if (TempTitles[i]==responseText.query.normalized[n].from) TempTitles[i]=responseText.query.normalized[n].to
            }
            for (var i=0; i<NRISOnlyStructure[currentTable][currentRow].Titles.length; i++) { // also update in main data array
                if (NRISOnlyStructure[currentTable][currentRow].Titles[i].name==responseText.query.normalized[n].from) {
                    NRISOnlyStructure[currentTable][currentRow].Titles[i].name=responseText.query.normalized[n].to
                }
            }
        }
    }
    if (responseText.query.redirects) { // resolve any redirects also
        for (var r in responseText.query.redirects) {
            for (var i=0; i<TempTitles.length; i++) {
                if (TempTitles[i]==responseText.query.redirects[r].from) TempTitles[i]=responseText.query.redirects[r].to
            }
            for (var i=0; i<NRISOnlyStructure[currentTable][currentRow].Titles.length; i++) { // also update in main data array
                if (NRISOnlyStructure[currentTable][currentRow].Titles[i].name==responseText.query.redirects[r].from) {
                    NRISOnlyStructure[currentTable][currentRow].Titles[i].name=responseText.query.redirects[r].to
                }
            }
        }
    }

    // now determine if dab/NRIS-only
    for (var page in responseText.query.pages) {
        var pagetitle=responseText.query.pages[page].title
        // mark as redlink
        if (typeof responseText.query.pages[page].missing!="undefined") {
            for (var i=0; i<NRISOnlyStructure[currentTable][currentRow].Titles.length; i++) {
                if (NRISOnlyStructure[currentTable][currentRow].Titles[i].name==pagetitle) {
                    NRISOnlyStructure[currentTable][currentRow].Titles[i].exists=false
                }
            }
        }
        if (responseText.query.pages[page].categories) {
            for (var category in responseText.query.pages[page].categories) {
                // mark as link to dab
                if (responseText.query.pages[page].categories[category].title=="Category:All disambiguation pages") {
                    for (var i=0; i<NRISOnlyStructure[currentTable][currentRow].Titles.length; i++) {
                        if (NRISOnlyStructure[currentTable][currentRow].Titles[i].name==pagetitle) {
                            NRISOnlyStructure[currentTable][currentRow].Titles[i].exists=false // dab=redlink
                            NRISOnlyStructure[currentTable][currentRow].Titles[i].isDab=true
                        }
                    }
                }
                // mark already tagged NRIS-only
                if (responseText.query.pages[page].categories[category].title.indexOf("sourced only to NRIS")!=-1) {
                    for (var i=0; i<NRISOnlyStructure[currentTable][currentRow].Titles.length; i++) {
                        if (NRISOnlyStructure[currentTable][currentRow].Titles[i].name==pagetitle) {
                            NRISOnlyStructure[currentTable][currentRow].Titles[i].isTaggedNRISOnly=true
                        }
                    }
                }
            }
        }
    }

    if (NRISOnlyStructure[currentTable][currentRow].CatsQueried==NRISOnlyStructure[currentTable][currentRow].Titles.length) {
        var Titles=[];
        for (var i=0; i<NRISOnlyStructure[currentTable][currentRow].Titles.length; i++) { // tally up articles to query
            if (NRISOnlyStructure[currentTable][currentRow].Titles[i].exists) {
                Titles.push(NRISOnlyStructure[currentTable][currentRow].Titles[i].name)
                NRISOnlyStructure[currentTable][currentRow].TotalToCheck++
            }
        }
        // now begin querying article content and checking if NRIS-only
        StartIndex=0
        LoadNextNRISOnlyPageQuery(Titles,StartIndex,currentTable,currentRow)
    }
}

// load each existing page to check if it should be tagged NRIS-only
function LoadNextNRISOnlyPageQuery(Titles,StartIndex,currentTable,currentRow) {
    if (StartIndex==Titles.length) { // all queries begun for this list
        if (Titles.length==0) { // some lists have no bluelinks
            TotalQueried++
            if (TotalQueried==TotalToQuery) DoneQueryingNRIS()
        }
        return;
    }
    // must have some more rows to query
    setTimeout(function(){ // short delay to prevent API overload
        QueryNextNRISOnlyPage(Titles,StartIndex,currentTable,currentRow)
        StartIndex++
        LoadNextNRISOnlyPageQuery(Titles,StartIndex,currentTable,currentRow)
    }, DefaultQueryPause);
    return;
}

// query the next page
function QueryNextNRISOnlyPage(Titles,StartIndex,currentTable,currentRow) {
    $.ajax({
        dataType: "json",
        url: mw.util.wikiScript('api'),
        data: {
            format: 'json',
            action: 'query',
            prop: 'revisions',
            rvprop: 'content',
            titles: Titles[StartIndex],
            indexpageids: true,
            redirects: 'true'
        },
        error: function(ajaxResponse,status,errorThrown) {ajaxResponse.errorThrown=errorThrown},
        complete: function(ajaxResponse,status) {
            NRISOnlyPageWikitextFetched(ajaxResponse,status,Titles,StartIndex,currentTable,currentRow)
        }
    })
    return;
}

// parse API response for page wikitext
function NRISOnlyPageWikitextFetched(ajaxResponse,status,Titles,StartIndex,currentTable,currentRow) {
    if (status!="success") {
        NewNRISOnlyWarning("Articles wikitext "+ajaxResponse.errorThrown)

        setTimeout(function(){ // try again after delay if rate limit reached
            QueryNextNRISOnlyPage(Titles,StartIndex,currentTable,currentRow)
        }, 250);
        return;
    }
    // won't get here unless successful
    NRISOnlyStructure[currentTable][currentRow].TotalChecked++

    // now determine prose size, number of references, etc.
    var responseText=JSON.parse(ajaxResponse.responseText)
    for (var page in responseText.query.pages) {
        var pagetext = responseText.query.pages[page].revisions[0]['*'];

        var prose=pagetext.replace(/\<\!\-\-(.|[\r\n])*?\-\-\>/g,"")                        // strip comments
        prose=prose.replace(/\<ref[^e](.|[\r\n])*?([ ]*?\/|\<\/ref[ ]*?)\>/gi,"")           // strip refs
        prose=prose.replace(/==[ ]*?External links[ ]*?==(.|\n)*?(?=(==.*?==|$))/gi,"")     // strip external links section
        prose=prose.replace(/==[ ]*?See also[ ]*?==(.|\n)*?(?=(==.*?==|$))/gi,"")           // strip see also section
        prose=prose.replace(/==[ ]*?(References|Notes)[ ]*?==(.|\n)*?(?=(==.*?==|$))/gi,"") // strip references section
        // strip further reading section
        prose=prose.replace(/==[ ]*?(Further|Additional) reading[ ]*?==(.|\n)*?(?=(==.*?==|$))/gi,"")
        prose=prose.replace(/={2,5}.*?={2,5}/g,"")                                          // strip section titles
        // replace wikilinks with displayed text
        prose=prose.replace(/\[\[(?![ ]*?Category:|[ ]*?Image:|[ ]*?File:)([^\]]*?\|)?(.*?)\]\]/gi,"$2")
        prose=prose.replace(/\[[ ]*?http.*? (.*?)\]/g,"$1")                 // replace inline external links with displayed text
        prose=prose.replace(/'{2,5}(.*?)'{2,5}/g,"$1")                      // replace bold/italic with displayed text
        prose=prose.replace(/\[\[[ ]*?Category:.*?\]\]/g,"")                                // strip categories
        prose=prose.replace(/\[\[[ ]*?(Image|File):.*?\]\]/g,"")                            // strip images
        prose=prose.replace(/\<[ ]*?gallery(.|\n)*?\<[ ]*?\/[ ]*?gallery[ ]*?\>/gi,"")      // strip galleries
        while(true) {                                                                       // strip templates
            var str="{{"
            var start=prose.indexOf(str)
            if (start==-1) break
            var open=1
            var index=start+str.length
            while (open!=0 && index<prose.length) {
                if (prose.substr(index,2)=="}}") {
                    open--
                    index++
                } else if (prose.substr(index,2)=="{{") {
                    open++
                    index++
                }
                index++
            }
            prose=prose.replace(prose.substr(start,index-start),"")
        }
        prose=prose.replace(/{\|(.|\n)*?\|}/g,"")                   // strip tables
        prose=prose.replace(/&nbsp;/g," ")                          // replace nbsp with regular space
        prose=prose.replace(/<[ ]*?br.*?>/g, "\n")                  // replace HTML line break with string line break
        prose=prose.replace(/[ \n]+/g," ")                          // replace multiple spaces/linebreaks with single space
        prose=prose.trim()

        for (var i=0; i<NRISOnlyStructure[currentTable][currentRow].Titles.length; i++) { // record prose size
            if (NRISOnlyStructure[currentTable][currentRow].Titles[i].name==Titles[StartIndex]) {
                NRISOnlyStructure[currentTable][currentRow].Titles[i].proseSize=prose.length
            }
        }

        var hasSpecialRefs=0
        if (pagetext.indexOf("{{GR")!=-1||pagetext.indexOf("{{sfn")!=-1||pagetext.indexOf("{{Sfn")!=-1) { // these count as refs
            hasSpecialRefs=pagetext.match(/{{[ ]*(GR|sfn|Sfn)/g).length
        }

        var Refs=pagetext.match(/\<ref[^e](.|[\r\n])*?([ ]*?\/|\<\/ref[ ]*?)\>/gi)
        var comments=pagetext.match(/\<\!\-\-(.|[\r\n])*?\-\-\>/g)

        if (Refs==null) { // if no refs, skip page (default numberRefs=0)
            if (hasSpecialRefs==0) continue;
            Refs=[]
        }

        if (comments!=null) {
            for (var l=0; l<comments.length; l++) {
                var CommentedRefs=comments[l].match(/\<ref[^e](.|[\r\n])*?([ ]*?\/|\<\/ref[ ]*?)\>/gi)
                if (CommentedRefs==null) continue
                for (var m=0; m<CommentedRefs.length; m++) {
                    for (var n=0; n<Refs.length; n++) {
                        if (Refs[n]==CommentedRefs[m]) {Refs.splice(n,1); n--}
                    }
                }
            }
        }

        if (Refs.length==0) { // if all refs commented out, skip page (default numberRefs=0)
            if (hasSpecialRefs==0) continue;
        }

        var citesNRIS=false
        for (var l=0; l<Refs.length; l++) {
            if (Refs[l].indexOf("{{NRISref")!=-1) citesNRIS=true // check if NRISref is one of the refs
        }

        var namedRefs=[];
        for (var l=0; l<Refs.length; l++) { // extract names of refs
            var nameOfRef=Refs[l].match(/name[ ]*?=.*?(\/|\>)/gi)
            if (nameOfRef==null) {
                continue
            } else {
                nameOfRef = nameOfRef[0].replace(/("| )/g,'')
                nameOfRef = nameOfRef.substr(5,nameOfRef.length-6)
            }
            namedRefs.push(nameOfRef)
        }

        var Duplicates=0
        for (var l=0; l<namedRefs.length; l++) { // remove duplicate named refs
            for (var m=l+1; m<namedRefs.length; m++) {
                if (namedRefs[m]==namedRefs[l]) {
                    Duplicates++
                    namedRefs.splice(m,1)
                    m--
                }
            }
        }

        var DistinctRefs = Refs.length-Duplicates
        if (hasSpecialRefs>0) DistinctRefs+=hasSpecialRefs

        for (var i=0; i<NRISOnlyStructure[currentTable][currentRow].Titles.length; i++) { // record number of refs
            if (NRISOnlyStructure[currentTable][currentRow].Titles[i].name==Titles[StartIndex]) {
                NRISOnlyStructure[currentTable][currentRow].Titles[i].numberRefs=DistinctRefs
            }
        }

        if (DistinctRefs>1) continue; // not NRIS-only if more than one ref

        if (citesNRIS&&DistinctRefs==1) { // if one ref and is NRIS-only, then tag
            for (var i=0; i<NRISOnlyStructure[currentTable][currentRow].Titles.length; i++) { // record number of refs
                if (NRISOnlyStructure[currentTable][currentRow].Titles[i].name==Titles[StartIndex]) {
                    NRISOnlyStructure[currentTable][currentRow].Titles[i].isNRISOnly=true
                }
            }
        }
    }

    if (NRISOnlyStructure[currentTable][currentRow].TotalChecked==NRISOnlyStructure[currentTable][currentRow].TotalToCheck) {
        TotalQueried++
        if (TotalQueried==TotalToQuery) DoneQueryingNRIS()
        return;
    }
}

// keep track of warnings encountered while querying API
function NewNRISOnlyWarning(warning) {
    var NewWarning=true
    for (var i=0; i<WarningCount.length; i++) { // check if already encountered error
        if (warning==WarningCount[i][0]||WarningCount[i][0]=="") {WarningCount[i][0]=warning; WarningCount[i][1]++; NewWarning=false;}
    }
    if (NewWarning) WarningCount[WarningCount.length]=[warning,1] // if new warning, make new entry

    var test=0
    for (var i=0; i<WarningCount.length; i++) {
        test+=WarningCount[i][1]
    }
    if (test%50==0) DefaultQueryPause++ // for every 50 errors encountered, increase time between each query to throttle speed
}

// these errors require user input; can't just be ignored
function NRISOnlyFatalError(code,currentTable,currentRow) {
    var errorArray = ['No county section found for ','No list found for ','Incorrectly formatted list for ']
    var retry=confirm(errorArray[code]+NRISOnlyStructure[currentTable][currentRow].Link+"!\n\nCancel=Skip                   OK=Retry")
    if (retry) {
        getNRISOnlyListWikitext(currentTable,currentRow);
    } else { // if chose to skip, add one to error count
        TotalQueried++
        ErrorCount++
        if (TotalQueried==TotalToQuery) DoneQueryingNRIS()
    }
    return;
}

// update ProgressDiv to let user know what's going on
function UpdateNRISOnlyProgressDiv() {
    var ProgressSpan=document.getElementById("ProgressSpan")
    var TimeSpan=document.getElementById("TimeSpan")

    var PercentQueried=Math.round(TotalQueried/TotalToQuery*1000)/10
    ProgressSpan.innerHTML = "Querying articles in each list... "+TotalQueried+" ("+PercentQueried+"%) of "+TotalToQuery+" lists complete."

    if (TotalQueried>100) {
        var CurrentTime=new Date()
        var SecondsElapsed = (CurrentTime-InitialTime)/1000
        var Average = SecondsElapsed/TotalQueried
        SecondsElapsed=Math.round(SecondsElapsed)
        var MinutesElapsed = 0
        while (SecondsElapsed>=60) {
            SecondsElapsed-=60
            MinutesElapsed++
        }
        var SecondsRemaining = Math.round(Average*(TotalToQuery-TotalQueried))
        var MinutesRemaining = 0
        while (SecondsRemaining>=60) {
            SecondsRemaining-=60
            MinutesRemaining++
        }

        var TimeRemainingStr = ""
        if (MinutesRemaining!=0) TimeRemainingStr=MinutesRemaining+" min "
        TimeRemainingStr+=SecondsRemaining+" sec"
        var TimeElapsedStr = ""
        if (MinutesElapsed!=0) TimeElapsedStr=MinutesElapsed+" min "
        TimeElapsedStr+=SecondsElapsed+" sec"
        TimeRemainingStr+=" ("+TimeElapsedStr+" elapsed)"
    } else {
        var TimeRemainingStr="Calculating..."
    }
    TimeSpan.innerHTML="<br>Estimated time remaining: "+TimeRemainingStr

    if (TotalQueried!=TotalToQuery) { // update ProgressDiv only at regular intervals to prevent CPU overload; stop once done
        ProgressDivTimer=setTimeout(function(){
            UpdateNRISOnlyProgressDiv();
        }, 500);
    }
    return;
}

// get here once done querying everything
function DoneQueryingNRIS() {
    clearTimeout(ProgressDivTimer)
    var ProgressSpan=document.getElementById("ProgressSpan")
    var TimeSpan=document.getElementById("TimeSpan")

    var CurrentTime=new Date()
    var SecondsElapsed = (CurrentTime-InitialTime)/1000
    SecondsElapsed=Math.round(SecondsElapsed)
    var MinutesElapsed = 0
    while (SecondsElapsed>=60) {
        SecondsElapsed-=60
        MinutesElapsed++
    }
    var TimeStr=" Time elapsed: "
    if (MinutesElapsed!=0) TimeStr+=MinutesElapsed+" min "
    TimeStr+=SecondsElapsed+" sec"

    ProgressSpan.innerHTML="Querying articles in each list... Done!"+TimeStr

    TimeSpan.innerHTML="<br>Compiling data (this could take a while)... "

    setTimeout(function() {CalculateNRISOnlyTotals()},100); // small delay for non-Firefox browsers to update screen
}

// now compile all the data
function CalculateNRISOnlyTotals() {
    var StartTime=new Date() // for calculating computation time

    var AllTitles = [];             // [name,refnum,list] - includes redlinks; used to find duplicates later

    var Dabs = [];                  // [name,list]
    var MissingRefnum = [];         // [name,list]
    var ExistingTitles = [];        // name               - only bluelinks

    var ToBeTagged = [];            // name
    var ToBeUntagged = [];          // name

    var AllNRISOnly = [];           // name               - includes manually tagged articles
    var OneRefNotNRIS = [];         // name
    var Unreferenced = [];          // name

    var ShortNRIS = [];             // [name,length]      - NRIS-only with <325 bytes prose
    var ShortNotNRIS = [];          // [name,length]      - not NRIS-only with <325 bytes prose
    var LongNRIS = [];              // [name,length]      - NRIS-only with >=325 bytes prose

    var WorstNotNRIS = [];          // [name,length]      - 100 smallest non-NRIS-only
    var WorstNRIS = [];             // [name,length]      - 100 smallest NRIS-only

    var Duplications = [];          // [name,refnum,[list1,..listn]]

    for (var table=0; table<NRISOnlyStructure.length; table++) {
        for (var row=0; row<NRISOnlyStructure[table].length; row++) {
            for (var item=0; item<NRISOnlyStructure[table][row].Titles.length; item++) {
                var thisItem=NRISOnlyStructure[table][row].Titles[item]
                if (thisItem.refnum=="missing") {
                    MissingRefnum[MissingRefnum.length]=[thisItem.name,NRISOnlyStructure[table][row].Link]
                } else {
                    AllTitles[AllTitles.length]=[thisItem.name,thisItem.refnum,NRISOnlyStructure[table][row].Link]
                }
                if (thisItem.isDab) Dabs[Dabs.length]=[thisItem.name,NRISOnlyStructure[table][row].Link]
                if (!thisItem.exists) continue; // if redlink, no longer care about it

                // now no longer have to check for existence
                ExistingTitles.push(thisItem.name)

                // tagging
                if (thisItem.isNRISOnly&&!thisItem.isTaggedNRISOnly) ToBeTagged.push(thisItem.name)
                // only untag if more than one ref; sometimes tag is added manually to NRIS mirrors
                if (!thisItem.isNRISOnly&&thisItem.isTaggedNRISOnly&&thisItem.numberRefs>1) ToBeUntagged.push(thisItem.name)

                // referencing
                if (thisItem.isNRISOnly||(!thisItem.isNRISOnly&&thisItem.isTaggedNRISOnly&&thisItem.numberRefs<=1)) {
                    // also include manually tagged in output
                    AllNRISOnly.push(thisItem.name)
                }
                if (!thisItem.isNRISOnly&&thisItem.numberRefs==1) OneRefNotNRIS.push(thisItem.name)
                if (thisItem.numberRefs==0) Unreferenced.push(thisItem.name)

                // prose length
                if (thisItem.proseSize<325&thisItem.isNRISOnly) ShortNRIS[ShortNRIS.length]=[thisItem.name,thisItem.proseSize]
                if (thisItem.proseSize<325&!thisItem.isNRISOnly) ShortNotNRIS[ShortNotNRIS.length]=[thisItem.name,thisItem.proseSize]
                if (thisItem.proseSize>=325&thisItem.isNRISOnly) LongNRIS[LongNRIS.length]=[thisItem.name,thisItem.proseSize]
            }
        }
    }

    // remove duplicates
    for (var i=0;i<ExistingTitles.length; i++) {
        for (var j=i+1;j<ExistingTitles.length; j++) {
            if (ExistingTitles[i]==ExistingTitles[j]) {ExistingTitles.splice(j,1);j--}
        }
    }
    for (var i=0;i<ToBeTagged.length; i++) {
        for (var j=i+1;j<ToBeTagged.length; j++) {
            if (ToBeTagged[i]==ToBeTagged[j]) {ToBeTagged.splice(j,1);j--}
        }
    }
    for (var i=0;i<ToBeUntagged.length; i++) {
        for (var j=i+1;j<ToBeUntagged.length; j++) {
            if (ToBeUntagged[i]==ToBeUntagged[j]) {ToBeUntagged.splice(j,1);j--}
        }
    }
    for (var i=0;i<AllNRISOnly.length; i++) {
        for (var j=i+1;j<AllNRISOnly.length; j++) {
            if (AllNRISOnly[i]==AllNRISOnly[j]) {AllNRISOnly.splice(j,1);j--}
        }
    }
    for (var i=0;i<OneRefNotNRIS.length; i++) {
        for (var j=i+1;j<OneRefNotNRIS.length; j++) {
            if (OneRefNotNRIS[i]==OneRefNotNRIS[j]) {OneRefNotNRIS.splice(j,1);j--}
        }
    }
    for (var i=0;i<Unreferenced.length; i++) {
        for (var j=i+1;j<Unreferenced.length; j++) {
            if (Unreferenced[i]==Unreferenced[j]) {Unreferenced.splice(j,1);j--}
        }
    }
    for (var i=0;i<ShortNRIS.length; i++) {
        for (var j=i+1;j<ShortNRIS.length; j++) {
            if (ShortNRIS[i][0]==ShortNRIS[j][0]) {ShortNRIS.splice(j,1);j--}
        }
    }
    for (var i=0;i<ShortNotNRIS.length; i++) {
        for (var j=i+1;j<ShortNotNRIS.length; j++) {
            if (ShortNotNRIS[i][0]==ShortNotNRIS[j][0]) {ShortNotNRIS.splice(j,1);j--}
        }
    }
    for (var i=0;i<LongNRIS.length; i++) {
        for (var j=i+1;j<LongNRIS.length; j++) {
            if (LongNRIS[i][0]==LongNRIS[j][0]) {LongNRIS.splice(j,1);j--}
        }
    }

    // sort by length
    ShortNRIS.sort(function(a,b){if (a[1] < b[1]) return -1; if (a[1] > b[1]) return 1; return 0;})
    ShortNotNRIS.sort(function(a,b){if (a[1] < b[1]) return -1; if (a[1] > b[1]) return 1; return 0;})
    // extract worst
    WorstNRIS=ShortNRIS.slice(0,100)
    WorstNotNRIS=ShortNotNRIS.slice(0,100)
    // now sort by name
    ShortNRIS.sort(function(a,b){if (a[0] < b[0]) return -1; if (a[0] > b[0]) return 1; return 0;})
    ShortNotNRIS.sort(function(a,b){if (a[0] < b[0]) return -1; if (a[0] > b[0]) return 1; return 0;})

    // sort the other arrays by name
    LongNRIS.sort(function(a,b){if (a[0] < b[0]) return -1; if (a[0] > b[0]) return 1; return 0;})
    Dabs.sort(function(a,b){if (a[0] < b[0]) return -1; if (a[0] > b[0]) return 1; return 0;})
    MissingRefnum.sort(function(a,b){if (a[0] < b[0]) return -1; if (a[0] > b[0]) return 1; return 0;})
    // custom sort not needed for these
    ExistingTitles.sort()
    ToBeTagged.sort()
    ToBeUntagged.sort()
    AllNRISOnly.sort()
    OneRefNotNRIS.sort()
    Unreferenced.sort()

    // now find duplicates across county lines
    for (var i=0;i<AllTitles.length; i++) {
        Duplications[Duplications.length]=[AllTitles[i][0],AllTitles[i][1],[AllTitles[i][2]]] // [name,refnum,[list]]
        for (var j=i+1;j<AllTitles.length; j++) {
            if (AllTitles[i][1]==AllTitles[j][1]) {
                Duplications[Duplications.length-1][2].push(AllTitles[j][2])
                AllTitles.splice(j,1)
                j--
            }
        }
        if (Duplications[Duplications.length-1][2].length==1) Duplications.pop() // if no other lists added, not duplicate
    }

    // now dump data to subpages
    var TimeSpan=document.getElementById("TimeSpan")
    var EditSpan=document.getElementById("EditSpan")
    var CurrentTime=new Date()
    var SecondsElapsed = (CurrentTime-StartTime)/1000
    SecondsElapsed=Math.round(SecondsElapsed)
    var MinutesElapsed = 0
    while (SecondsElapsed>=60) {
        SecondsElapsed-=60
        MinutesElapsed++
    }
    var TimeStr=" Time elapsed: "
    if (MinutesElapsed!=0) TimeStr+=MinutesElapsed+" min "
    TimeStr+=SecondsElapsed+" sec"

    TimeSpan.innerHTML+="Done!"+TimeStr
    EditSpan.innerHTML="<br>Dumping data to subpages of "
    EditSpan.innerHTML+="<a href='http://en.wikipedia.org/wiki/"+OutputBase+"'>"+OutputBase+"</a>... 0 edits made."

    var d=new Date();
    var months = ['January','February','March','April','May','June','July','August','September','October','November','December'];
    var year=d.getYear();
    if (year < 1000) year += 1900
    var DateStr = months[d.getMonth()]+" "+d.getDate()+", "+year

    var subpages=0
    var firstletter=ExistingTitles[0].substr(0,1)
    var basewikitext = ""
    var partialwikitext = "=="+firstletter+"==\n{{refbegin|3}}\n"
    for (var k=0; k<ExistingTitles.length; k++) {
        var oldfirstletter = firstletter
        firstletter = ExistingTitles[k].substr(0,1)
        if (firstletter!=oldfirstletter) { // must be starting a new subpage, so edit the previous one
            partialwikitext+='{{refend}}'
            subpages++

            NRISOnlyDump({
                title: OutputBase+'/'+oldfirstletter,
                text: partialwikitext,
                summary:'Generate list of all NRHP articles beginning with '+oldfirstletter+' linked from county lists as of '+DateStr
            },EditSpan,subpages,"no");

            basewikitext+='*[[/'+oldfirstletter+']]\n'
            partialwikitext='=='+firstletter+'==\n{{refbegin|3}}\n# <li value="'+parseFloat(k+1)+'">[['+ExistingTitles[k]+']]\n'
        } else {
            partialwikitext+='# [['+ExistingTitles[k]+']]\n'
        }
    }
    partialwikitext+="{{refend}}"
    subpages++
    NRISOnlyDump({ // manually edit final subpage
        title: OutputBase+'/'+firstletter,
        text: partialwikitext,
        summary:'Generate list of all NRHP articles beginning with '+firstletter+' linked from county lists as of '+DateStr
    },EditSpan,subpages,"no");

    basewikitext+='*[[/'+firstletter+']]\n<hr />*[[/Duplications]]'
    subpages++

    NRISOnlyDump({
        title: OutputBase,
        text: basewikitext,
        summary: 'Generate list of all NRHP articles linked from county lists as of '+DateStr
    },EditSpan,subpages,"no");

    // now dump list of duplicates
    basewikitext = "{{TOC right}}\n<div id=\"duplicates-div\">\n"
    if (Duplications.length>0) {
        var multistate="==Multi-state==\n<div id=\"multistate\">\n{{refbegin|2}}\n"
        var unknown="==Unknown==\n<div id=\"unknown\">\n{{refbegin|2}}\n"
        var oldstate=""
        var state=""
        var prevstate=""
        var multiflag=false
        var unknownflag=false
        var firststateflag=true
        var partialwikitext=""
        for (var k=0; k<Duplications.length; k++) {
            partialwikitext="# [["+Duplications[k][0]+"]]&nbsp;(#"+Duplications[k][1]+") <small>("
            multiflag=false
            unknownflag=false
            for (var l=0; l<Duplications[k][2].length; l++) {
                state=getState(Duplications[k][2][l])
                if (l>0) {
                    if (oldstate==""||state=="") {
                        unknownflag=true
                    } else if (state!=oldstate) {
                        multiflag=true
                    }
                }
                oldstate=state
                partialwikitext+="[["+Duplications[k][2][l]+"|"
                partialwikitext+=Duplications[k][2][l].replace(/National Register of Historic Places listings (i|o)n /g,"")+"]]; "
            }
            partialwikitext=partialwikitext.substr(0,partialwikitext.length-2)
            partialwikitext+=")</small>\n"
            if (unknownflag) {
                unknown+=partialwikitext
            } else if (multiflag) {
                multistate+=partialwikitext
            } else {
                if (state!=prevstate) {
                    if (firststateflag) {
                        basewikitext+="=="+state+"==\n{{refbegin|2}}\n"
                        firststateflag=false
                    } else {
                        basewikitext+="{{refend}}\n\n=="+state+"==\n{{refbegin|2}}\n"
                    }
                }
                var smalltext=partialwikitext.match(/<small>(.)*?<\/small>/g)[0]
                var newsmalltext=smalltext.replace(/,[a-zA-Z .,]*?]]/g,"]]") // remove state names from dupes inside single state
                partialwikitext=partialwikitext.replace(smalltext,newsmalltext)
                basewikitext+=partialwikitext
                prevstate=state
            }
        }
        basewikitext+="{{refend}}\n</div>"
        if (multistate!="==Multi-state==\n<div id=\"multistate\">\n{{refbegin|2}}\n") {
            basewikitext+="\n\n"+multistate+"\n{{refend}}\n</div>"
        }
        if (unknown!="==Unknown==\n<div id=\"unknown\">\n{{refbegin|2}}\n") {
            basewikitext+="\n\n"+unknown+"\n{{refend}}\n</div>"
        }
    }
    NRISOnlyDump({
        title: OutputBase+'/Duplications',
        text: basewikitext,
        summary:'Generate list of all NRHP articles duplicated across county lines as of '+DateStr
    },EditSpan,subpages,"yes");

    // now dump NRIS-only data
    var OutputPage="User:NationalRegisterBot/NRISOnly"
    EditSpan.innerHTML+="<br>Now outputting data to <a href='http://en.wikipedia.org/wiki/"+OutputPage+"'>"+OutputPage+"</a>... "

    basewikitext="{{TOC right}}\n"
    if (ToBeTagged.length>0) {
        basewikitext+="==Articles that need to be tagged==\n<div id=\"tobetagged-div\">\n{{refbegin|3}}\n"
        for (var k=0; k<ToBeTagged.length; k++) {
            basewikitext+='# [['+ToBeTagged[k]+']]\n'
        }
        basewikitext+="{{refend}}</div>\n\n"
    }
    if (ToBeUntagged.length>0) {
        basewikitext+="==Articles that need to be untagged==\n<div id=\"tobeuntagged-div\">\n{{refbegin|3}}\n"
        for (var k=0; k<ToBeUntagged.length; k++) {
            basewikitext+='# [['+ToBeUntagged[k]+']]\n'
        }
        basewikitext+="{{refend}}</div>\n\n"
    }
    if (Dabs.length>0) {
        basewikitext+="==Links to disambiguation pages==\n{{refbegin|3}}\n"
        for (var k=0; k<Dabs.length; k++) {
            basewikitext+='# [['+Dabs[k][0]+']]&nbsp;([['+Dabs[k][1]+'|'
            basewikitext+=Dabs[k][1].replace(/National Register of Historic Places listings (i|o)n /g,"")+']])\n'
        }
        basewikitext+="{{refend}}\n\n"
    }
    if (MissingRefnum.length>0) {
        basewikitext+="==Missing refnum in county list==\n{{refbegin|3}}\n"
        for (var k=0; k<MissingRefnum.length; k++) {
            basewikitext+='# [['+MissingRefnum[k][0]+']]&nbsp;([['+MissingRefnum[k][1]+'|'
            basewikitext+=MissingRefnum[k][1].replace(/National Register of Historic Places listings (i|o)n /g,"")+']])\n'
        }
        basewikitext+="{{refend}}\n\n"
    }
    if (Unreferenced.length>0) {
        basewikitext+="==Articles with no references==\n<div id=\"unreferenced-div\">\n{{refbegin|3}}\n"
        for (var k=0; k<Unreferenced.length; k++) {
            basewikitext+='# [['+Unreferenced[k]+']]\n'
        }
        basewikitext+="{{refend}}</div>\n\n"
    }
    if (OneRefNotNRIS.length>0) {
        basewikitext+="==Articles with only one source that is not NRIS==\n{{refbegin|3}}\n"
        for (var k=0; k<OneRefNotNRIS.length; k++) {
            basewikitext+='# [['+OneRefNotNRIS[k]+']]\n'
        }
        basewikitext+="{{refend}}\n\n"
    }
    NRISOnlyDump({
        title: OutputPage,
        text: basewikitext,
        summary:'Generate list of all NRHP articles to be tagged/untagged with [[Template:NRIS-only]] as of '+DateStr
    },EditSpan,subpages,"");

    // now substubs
    OutputPage="User:NationalRegisterBot/Substubs"
    basewikitext=""
    if (WorstNRIS.length>0) {
        basewikitext+="==Smallest 100 NRIS-only articles by prose size==\n{{refbegin|3}}\n"
        for (var k=0; k<WorstNRIS.length; k++) {
            basewikitext+='# [['+WorstNRIS[k][0]+']] ('+WorstNRIS[k][1]+'&nbsp;bytes)\n'
        }
        basewikitext+="{{refend}}\n\n"
    }
    if (WorstNotNRIS.length>0) {
        basewikitext+="==Smallest 100 articles by prose size NOT tagged NRIS-only==\n{{refbegin|3}}\n"
        for (var k=0; k<WorstNotNRIS.length; k++) {
            basewikitext+='# [['+WorstNotNRIS[k][0]+']] ('+WorstNotNRIS[k][1]+'&nbsp;bytes)\n'
        }
        basewikitext+="{{refend}}\n\n"
    }

    if (ShortNRIS.length>0||ShortNotNRIS.length>0) {
        basewikitext+="==Articles with less than 325 bytes of prose==\n"
        if (ShortNotNRIS.length>0) {
            basewikitext+="===Not tagged NRIS-only===\n{{refbegin|3}}\n"
            for (var k=0; k<ShortNotNRIS.length; k++) {
                basewikitext+='# [['+ShortNotNRIS[k][0]+']] ('+ShortNotNRIS[k][1]+'&nbsp;bytes)\n'
            }
            basewikitext+="{{refend}}\n\n"
            if (ShortNRIS.length>0) basewikitext+="===Tagged NRIS-only===\n"
        }
        if (ShortNRIS.length>0) {
            basewikitext+="{{refbegin|3}}\n"
            for (var k=0; k<ShortNRIS.length; k++) {
                basewikitext+='# [['+ShortNRIS[k][0]+']] ('+ShortNRIS[k][1]+'&nbsp;bytes)\n'
            }
            basewikitext+="{{refend}}\n\n"
        }
    }
    if (LongNRIS.length>0) {
        basewikitext+="==Articles tagged NRIS-only with more than 325 bytes of prose==\n{{refbegin|3}}\n"
        for (var k=0; k<LongNRIS.length; k++) {
            basewikitext+='# [['+LongNRIS[k][0]+']] ('+LongNRIS[k][1]+'&nbsp;bytes)\n'
        }
        basewikitext+="{{refend}}\n\n"
    }
    NRISOnlyDump({
        title: OutputPage,
        text: basewikitext,
        summary:'Generate list of all minimal (<325 bytes) NRHP stubs as of '+DateStr
    },EditSpan,subpages,"");

    // now all NRIS-only
    OutputPage="User:NationalRegisterBot/NRISOnly/All"
    basewikitext = "{{TOC right}}\n<div id=\"NRISOnly-div\">\n"
    if (AllNRISOnly.length>0) {
        var firstletter=AllNRISOnly[0].substr(0,1)
        basewikitext += "=="+firstletter+"==\n{{refbegin|3}}\n"
        for (var k=0; k<AllNRISOnly.length; k++) {
            var oldfirstletter = firstletter
            firstletter = AllNRISOnly[k].substr(0,1)
            if (firstletter!=oldfirstletter) {
                basewikitext+='{{refend}}\n=='+firstletter+'==\n{{refbegin|3}}\n# <li value="'
                basewikitext+=parseFloat(k+1)+'">[['+AllNRISOnly[k]+']]\n'
            } else {
                basewikitext+='# [['+AllNRISOnly[k]+']]\n'
            }
        }
        basewikitext+="{{refend}}</div>"
    }
    NRISOnlyDump({
        title: OutputPage,
        text: basewikitext,
        summary:'Generate list of all NRHP articles sourced only to NRIS as of '+DateStr
    },EditSpan,subpages,"NRIS");
}

// gather information about duplicates from output
function CheckDuplicates() {
    var ProgressDiv=document.getElementById("ProgressDiv")
    ProgressDiv.innerHTML="Checking multi-state duplicates..."
    var MultiSpan = document.createElement("span")
    ProgressDiv.appendChild(MultiSpan)

    var multistate=[];
    var li=document.getElementById("multistate").getElementsByClassName("refbegin")[0].getElementsByTagName("li")
    for (var k=0; k<li.length; k++) {
        var links=li[k].getElementsByTagName("a")
        var refnum=li[k].innerHTML.match(/[0-9]{8}/)[0]
        var titles=[refnum]                                   // make refnum element 0; title=1; county lists=2,3,4,...
        for (var l=0; l<links.length; l++) {
            var temp=links[l].href.replace(/https:\/\/en\.wikipedia\.org\/w(iki)?\/(index\.php\?title=)?/,"").split("&")[0]
            titles.push(decodeURIComponent(temp).replace(/_/g," "))
        }
        multistate[multistate.length]=titles
    }
    var wikitext="==National==\nThe following listings are included in two or more lists which are located in different states."
    wikitext+="\n{| class=\"wikitable sortable\" width=100%\n! {{NRHP color}} width=30% | Site\n! {{NRHP color}} width=30% | "
    wikitext+="Lists\n! {{NRHP color}} width=10% | Number of Duplicates\n! {{NRHP color}} width=30% colspan=7 | Stats\n"

    var switchtabletext="<includeonly>{{#tag:ref|[[WP:NRHPPROGRESS/Duplicates#{{{1}}}{{#if:{{{statewide|}}}|&nbsp;Statewide}}"
    switchtabletext+="{{!}}Click here]] for {{{1}}} duplicate information.}}{{#ifeq:{{{1}}}|National|</th>|{{#ifeq:{{{1}}}|"
    switchtabletext+="{{First word|{{{1}}}|sep=,}}|</th>|</td><td>[[{{Remove first word|{{{1}}}|sep=,}}]]</td>}}}}<td>{{#switch:"
    switchtabletext+="{{{1}}}\n"

    var Total=0
    var TotalIllustrated=0
    var TotalArticled=0
    var TotalStub=0
    var TotalStartPlus=0
    var TotalUntagged=0
    var TotalUnassessed=0
    var TotalNRISOnly=0
    for (var i=0; i<multistate.length; i++) {
        MultiSpan.innerHTML = " "+i+" of "+multistate.length+" complete..."
        wikitext+="|-\n| [["+multistate[i][1]+"]] (#"+multistate[i][0]+")\n|\n"
        var temp=[multistate[i][1],0]  // 0=not duplicated inside single state by default
        multistate[i][1]=temp
        var oldstate=""
        var state=""
        var totalstates=0

        for (var j=2; j<multistate[i].length; j++) {
        wikitext+="*[["+multistate[i][j]+"|"+multistate[i][j].replace(/National Register of Historic Places listings (i|o)n /g,"")
            wikitext+="]]\n"
            state=getState(multistate[i][j])
            if (state!=oldstate) {
                totalstates++
            } else {
                if (multistate[i][1][1]==0) {  // tag as being duplicated inside one state (and record which state) for later use
                    multistate[i][1][1]=state
                } else {
                    multistate[i][1][multistate[i][1].length]=state
                }
            }
            oldstate=state
        }
        var duplications=totalstates-1
        Total+=duplications
        wikitext+="| align=center | "+duplications+"\n| colspan=7 | "

        var StatsStr=getDuplicateStats(multistate[i])
        if (StatsStr.indexOf("unarticled")==-1) TotalArticled+=duplications
        if (StatsStr.indexOf(", illustrated")!=-1) TotalIllustrated+=duplications
        if (StatsStr.indexOf("Stub-class")!=-1) TotalStub+=duplications
        if (StatsStr.indexOf("NRIS-only")!=-1) TotalNRISOnly+=duplications
        if (StatsStr.indexOf("Start+")!=-1) TotalStartPlus+=duplications
        if (StatsStr.indexOf("unassessed")!=-1) TotalUnassessed+=duplications
        if (StatsStr.indexOf("untagged")!=-1) TotalUntagged+=duplications

        wikitext+=StatsStr+"\n"
    }
    wikitext+="|-\n! colspan=2 | Total\n! "+Total+"\n! "+TotalIllustrated+"\n! "+TotalArticled+"\n! "+TotalStub+"\n! "
    wikitext+=TotalNRISOnly+"\n! "+TotalStartPlus+"\n! "+TotalUnassessed+"\n! "+TotalUntagged+"\n|}\n\n"

    switchtabletext+="|National="+Total+"</td><td>"+TotalIllustrated+"</td><td>-</td><td>"+TotalArticled+"</td><td>-</td><td>"
    switchtabletext+=TotalStub+"</td><td>"+TotalNRISOnly+"</td><td>"+TotalStartPlus+"</td><td>-</td><td>"+TotalUnassessed
    switchtabletext+="</td><td>"+TotalUntagged+"</td><td>-</td>\n"

    MultiSpan.innerHTML = " Complete!"

    for (var i=0; i<multistate.length; i++) {
        if (multistate[i][1][1]==0) {multistate.splice(i,1); i--}   // get rid of those not duplicated inside single states
    }

    var StateSpan = document.createElement("span")
    ProgressDiv.appendChild(StateSpan)
    StateSpan.inerHTML="test"
    var CountySpan = document.createElement("span")
    ProgressDiv.appendChild(CountySpan)
    CountySpan.inerHTML="test"
    var ThisStateSpan = document.createElement("span")
    ProgressDiv.appendChild(ThisStateSpan)
    ThisStateSpan.inerHTML="test"

    var StateStructure=[
        ["Alabama",
            ["Jefferson County",["Jefferson County", "Birmingham"]],
            ["Mobile County",["Mobile County", "Mobile"]]],
        ["Alaska"],
        ["Arizona",
            ["Maricopa County",["Maricopa County", "Phoenix"]],
            ["Yavapai County",["Yavapai County", "Prescott"]]],
        ["Arkansas",
            ["Pulaski County",["Pulaski County", "Little Rock"]]],
        ["California",
            ["Los Angeles County",["Los Angeles County", "Los Angeles", "Pasadena"]]],
        ["Colorado",
            ["Denver County",["Downtown Denver","Northeast Denver","Southeast Denver","West Denver"]]],
        ["Connecticut",
            ["Fairfield County",["Fairfield County","Bridgeport","Greenwich","Stamford"]],
            ["Hartford County",["Hartford County","Hartford","Southington","West Hartford","Windsor"]],
            ["Middlesex County",["Middlesex County","Middletown"]],
            ["New Haven County",["New Haven County","New Haven"]]],
        ["Delaware",
            ["New Castle County",["northern New Castle County","southern New Castle County","Wilmington"]]],
        ["D.C."],
        ["Florida",
            ["Miami-Dade County",["Miami-Dade County","Miami"]]],
        ["Georgia"],
        ["Hawaii",
            ["Honolulu County",["Oahu","Northwestern Hawaiian Islands"]],
            ["Maui County",["Maui","Kahoolawe","Lanai","Molokai"]]],
        ["Idaho"],
        ["Illinois",
            ["Cook County",["Cook County","Central Chicago","North Side Chicago","South Side Chicago","West Side Chicago","Evanston"]]],
        ["Indiana",
            ["Marion County",["Marion County","Center Township, Marion County"]]],
        ["Iowa",
            ["Scott County",["Scott County","Downtown Davenport","east Davenport","west Davenport"]]],
        ["Kansas"],
        ["Kentucky",
            ["Jefferson County",["Jefferson County","Anchorage","Downtown Louisville","The Highlands, Louisville","Old Louisville","Portland, Louisville","Louisville's West End"]]],
        ["Louisiana"],
        ["Maine",
            ["Cumberland County",["Cumberland County","Portland"]]],
        ["Maryland",
            ["City of Baltimore",["Central Baltimore","East and Northeast Baltimore","North and Northwest Baltimore","South and Southeast Baltimore","West and Southwest Baltimore"]]],
        ["Massachusetts",
            ["Barnstable County",["Barnstable County","Barnstable"]],
            ["Bristol County",["Bristol County","Fall River","New Bedford","Taunton"]],
            ["Essex County",["Essex County","Andover","Gloucester","Ipswich","Lawrence","Lynn","Methuen","Salem"]],
            ["Hampden County",["Hampden County","Springfield"]],
            ["Middlesex County",["Middlesex County","Arlington","Cambridge","Concord","Framingham","Lexington","Lowell","Marlborough","Medford","Newton","Reading","Sherborn","Somerville","Stoneham","Wakefield","Waltham","Weston","Winchester"]],
            ["Norfolk County",["Norfolk County","Brookline","Milton","Quincy"]],
            ["Suffolk County",["Suffolk County","northern Boston","southern Boston"]],
            ["Worcester County",["Worcester County","northern Worcester County","Southbridge","Uxbridge","eastern Worcester","northwestern Worcester","southwestern Worcester"]]],
        ["Michigan",
            ["Wayne County",["Wayne County","Downtown and Midtown Detroit","Detroit"]]],
        ["Minnesota"],
        ["Mississippi"],
        ["Missouri",
            ["Jackson County",["Jackson County: Downtown Kansas City","Jackson County: Kansas City other"]],
            ["St. Louis",["Downtown and Downtown West St. Louis","St. Louis north and west of downtown","St. Louis south and west of downtown"]]],
        ["Montana"],
        ["Nebraska"],
        ["Nevada"],
        ["New Hampshire"],
        ["New Jersey",
            ["Bergen County",["Bergen County","Closter","Franklin Lakes","Ridgewood","Saddle River","Wyckoff"]]],
        ["New Mexico"],
        ["New York",
            ["Albany County",["Albany County","Albany"]],
            ["Dutchess County",["Dutchess County","Poughkeepsie","Rhinebeck"]],
            ["Erie County",["Erie County","Buffalo"]],
            ["Monroe County",["Monroe County","Rochester"]],
            ["Nassau County",["Hempstead (town)","North Hempstead (town)","Oyster Bay (town)"]],
            ["New York County",["Manhattan below 14th Street","Manhattan from 14th to 59th Streets","Manhattan above 59th to 110th Streets","Manhattan above 110th Street","Manhattan on islands"]],
            ["Onondaga County",["Onondaga County","Syracuse"]],
            ["Suffolk County",["Babylon (town)","Brookhaven (town)","East Hampton (town)","Huntington (town)","Islip (town)","Riverhead (town)","Shelter Island (town)","Smithtown (town)","Southampton (town)","Southold (town)"]],
            ["Westchester County",["northern Westchester County","southern Westchester County","New Rochelle","Peekskill","Yonkers"]]],
        ["North Carolina"],
        ["North Dakota"],
        ["Ohio",
            ["Cuyahoga County",["Cuyahoga County","Cleveland"]],
            ["Erie County",["Erie County","Sandusky"]],
            ["Franklin County",["Franklin County","Columbus"]],
            ["Hamilton County",["Hamilton County","downtown Cincinnati","eastern Cincinnati","western Cincinnati"]],
            ["Montgomery County",["Montgomery County","Dayton"]],
            ["Summit County",["Summit County","Akron"]]],
        ["Oklahoma"],
        ["Oregon",
            ["Multnomah County",["Multnomah County","North Portland","Northeast Portland","Northwest Portland","Southeast Portland","Southwest Portland"]]],
        ["Pennsylvania",
            ["Allegheny County",["Allegheny County","Pittsburgh"]],
            ["Chester County",["eastern Chester County","northern Chester County","southern Chester County"]],
            ["Lancaster County",["Lancaster County","Lancaster"]],
            ["Philadelphia",["Center City, Philadelphia","North Philadelphia","Northeast Philadelphia","Northwest Philadelphia","South Philadelphia","Southwest Philadelphia","West Philadelphia"]]],
        ["Rhode Island",
            ["Providence County",["Providence County","Pawtucket","Providence"]]],
        ["South Carolina",
            ["Charleston County",["Charleston County","Charleston"]],
            ["Greenville County",["Greenville County","Greenville"]],
            ["Richland County",["Richland County","Columbia"]],
            ["York County",["York County","Rock Hill"]]],
        ["South Dakota"],
        ["Tennessee"],
        ["Texas"],
        ["Utah",
            ["Salt Lake County",["Salt Lake County","Salt Lake City"]],
            ["Washington County",["Washington County","Zion National Park"]]],
        ["Vermont"],
        ["Virginia"],
        ["Washington",
            ["King County",["King County","Seattle"]],
            ["Pierce County",["Pierce County","Tacoma"]],
            ["Spokane County",["Spokane County","Spokane"]]],
        ["West Virginia"],
        ["Wisconsin",
            ["Dane County",["Dane County","Madison"]],
            ["Milwaukee County",["Milwaukee County","Milwaukee"]]],
        ["Wyoming"],
        ["Puerto Rico"],
        ["Guam"],
        ["Virgin Islands"],
        ["Northern Mariana Islands"],
        ["American Samoa"],
        ["Federated States of Micronesia"],
        ["Palau"],
        ["Marshall Islands"],
        ["U.S. Minor Outlying Islands"]
    ]

    var states=document.getElementById("duplicates-div").getElementsByClassName("refbegin")
    var currentState=0
    for (var i=0; i<StateStructure.length; i++) {
        StateSpan.innerHTML = "<br />Now working on individual states... "+i+" of "+StateStructure.length+" complete..."
        var thisstate=[];
        var li=states[currentState].getElementsByTagName("li")
        for (var j=0; j<li.length; j++) {
            var links=li[j].getElementsByTagName("a")
            var refnum=li[j].innerHTML.match(/[0-9]{8}/)[0]
            var titles=[refnum]                                   // make refnum element 0; title=1; county lists=2,3,4,...
            for (var l=0; l<links.length; l++) {
                var temp=links[l].href.replace(/https:\/\/en\.wikipedia\.org\/w(iki)?\/(index\.php\?title=)?/,"").split("&")[0]
                titles.push(decodeURIComponent(temp).replace(/_/g," "))
            }
            thisstate[thisstate.length]=titles
        }
        var stateName=getState(thisstate[0][2])
        wikitext+="=="+StateStructure[i][0]+"==\n"
        while (i<StateStructure.length&&stateName!=StateStructure[i][0]) {
            // if the state we're looking at isn't the next one in the structure array
            var tempstate=[];
            for (var j=0; j<multistate.length; j++) {
                var inThisState=0
                for (var k=1; k<multistate[j][1].length; k++) {                    // check if any multistate duplicates are
                    if (multistate[j][1][k]==StateStructure[i][0]) inThisState=1   // duplicated in this state
                }
                if (inThisState==1) {
                    var temp=[];
                    for (var k=0; k<multistate[j].length; k++) { // make temp static
                        temp[k]=multistate[j][k]
                    }
                    for (var k=2; k<temp.length; k++) {
                        if (getState(temp[k])!=StateStructure[i][0]) {temp.splice(k,1); k--} // only pick out those in this state
                    }
                    tempstate[tempstate.length] = [temp[0],temp[1][0],temp[2],temp[3]] // refnum, title, list1, list2
                    for (var k=4; k<temp.length; k++) {
                        tempstate[tempstate.length-1].push(temp[k]) // list3, list4,...
                    }
                }
            }
            var result=GenerateDuplicateTable(StateStructure,i,tempstate,stateName,CountySpan,ThisStateSpan)
            wikitext+=result[0]
            switchtabletext+=result[1]

            i++  // look at next state in StateStructure and repeat until we find the one we're looking at
            StateSpan.innerHTML = "<br />Now working on individual states... "+i+" of "+StateStructure.length+" complete..."
            if (i!=StateStructure.length) wikitext+="=="+StateStructure[i][0]+"==\n"
        }
        if (i!=StateStructure.length) {
            // now we know the state we're looking at has the duplications in thisstate array
            for (var j=0; j<multistate.length; j++) {
                var inThisState=0
                for (var k=1; k<multistate[j][1].length; k++) {         // check if any multistate duplicates are also
                    if (multistate[j][1][k]==stateName) inThisState=1   // duplicated in the current state
                }
                if (inThisState==1) {
                    var temp=[];
                    for (var k=0; k<multistate[j].length; k++) { // make temp static
                        temp[k]=multistate[j][k]
                    }
                    for (var k=2; k<temp.length; k++) {
                        if (getState(temp[k])!=stateName) {temp.splice(k,1); k--} // only pick out those in this state
                    }
                    thisstate[thisstate.length] = [temp[0],temp[1][0],temp[2],temp[3]] // refnum, title, list1, list2
                    for (var k=4; k<temp.length; k++) {
                        thisstate[thisstate.length-1].push(temp[k]) // list3, list4,...
                    }
                }
            }
            var result=GenerateDuplicateTable(StateStructure,i,thisstate,stateName,CountySpan,ThisStateSpan)
            wikitext+=result[0]
            switchtabletext+=result[1]

            CountySpan.innerHTML="<br />&nbsp;"
            ThisStateSpan.innerHTML="<br />&nbsp;"
            if (currentState<states.length-1) currentState++  // next state on the page
        }
    }
    CountySpan.innerHTML=""
    ThisStateSpan.innerHTML=""
    StateSpan.innerHTML = "<br />Now working on individual states... Complete!"
    ProgressDiv.innerHTML+="<br />Now outputting data to "
    ProgressDiv.innerHTML+="<a href='http://en.wikipedia.org/wiki/WP:NRHPPROGRESS/Duplicates'>WP:NRHPPROGRESS/Duplicates</a>..."

    switchtabletext+="|error</td><td>error</td><td>-</td><td>error</td><td>-</td><td>error</td><td>error</td><td>error</td><td>"
    switchtabletext+="-</td><td>error</td><td>error</td><td>-</td>\n}}</includeonly><noinclude>\n"

    var TOCtext="__NOTOC__\n{{anchor|top}}\n{| style=\"margin:.5em; border:1px solid #000; padding:0;"
    TOCtext+=" text-align:center\"\n| '''[[#National|National]]'''\n<hr />\n"

    for (var i=0; i<StateStructure.length; i++) {
        TOCtext+="[[#"+StateStructure[i][0]
        if (StateStructure[i].length>1) TOCtext+=" Statewide"
        TOCtext+="|"+StateStructure[i][0]+"]] "
        for (var j=1; j<StateStructure[i].length; j++) {
            if (j==1) TOCtext+="("
            TOCtext+="[[#"+StateStructure[i][j][0]+", "+StateStructure[i][0]+"|"
            TOCtext+=StateStructure[i][j][0].replace(", "+StateStructure[i][0],"").replace(" County","").replace("City of ","")
            TOCtext+="]], "
        }
        if (StateStructure[i].length>1) {
            TOCtext=TOCtext.substr(0,TOCtext.length-2)  // remove final comma
            TOCtext+=")"
        }
        if (StateStructure[i][0]=="Wyoming") TOCtext+="\n<hr />\n"
        else if (i!=StateStructure.length-1) TOCtext+=" – "
    }
    TOCtext+="\n|}\n\n"

    wikitext=switchtabletext+TOCtext+wikitext+"</noinclude>"

    var d=new Date();
    var months = ['January','February','March','April','May','June','July','August','September','October','November','December'];
    var year=d.getYear();
    if (year < 1000) year += 1900
    var DateStr = months[d.getMonth()]+" "+d.getDate()+", "+year

    // edit page with total wikitext
    NRISOnlyDump({
        title: 'Wikipedia:WikiProject National Register of Historic Places/Progress/Duplicates',
        text: wikitext,
    summary:'Generate statistics about duplicates in NRHP lists as of '+DateStr
    },ProgressDiv,0,"duplicates");
}

// tag/untag pages with the bot
function TagNRISOnly() {
    var tobetagged=document.getElementById('tobetagged-div')
    var tobeuntagged=document.getElementById('tobeuntagged-div')
    var ProgressDiv = document.getElementById('ProgressDiv')

    var HiddenSpan=document.createElement("span")
    HiddenSpan.setAttribute("id", "HiddenSpan")
    HiddenSpan.setAttribute("style", "display:none")
    ProgressDiv.appendChild(HiddenSpan)

    var TotalDone=0

    var d=new Date();
    var months = ['January','February','March','April','May','June','July','August','September','October','November','December'];
    var year=d.getYear();
    if (year < 1000) year += 1900
    var DateStr = months[d.getMonth()]+" "+year

    if (tobetagged!=null) {
        ProgressDiv.innerHTML = "Tagging articles that need to be tagged..."
        var ProgressSpan = document.createElement("span")
        ProgressSpan.setAttribute("id", "ProgressSpan")
        ProgressDiv.appendChild(ProgressSpan)
        ProgressSpan.innerHTML="<br />"

        var sections=tobetagged.getElementsByClassName('refbegin')
        var total=0
        for (var i=0; i<sections.length; i++) {
            var links=sections[i].getElementsByTagName('a')
            total+=links.length
        }
        var tagged=0
        var skipped=0
        ProgressSpan.innerHTML="<br />0 of "+total+" articles examined: 0 tagged, 0 skipped..."
        for (var i=0; i<sections.length; i++) {
            var links=sections[i].getElementsByTagName('a')
            for (var j=0; j<links.length; j++) {
                var wikitext=getNRISOnlyWikitext(links[j].title)
                if (wikitext!="error") {
                    if (wikitext.match(/{{( |[\r\n])*?NRIS-only(.|[\r\n])*?}}/g)!=null) {  // don't tag if already tagged
                        TotalDone++
                        skipped++
                        links[j].style.backgroundColor = "yellow"
                        ProgressSpan.innerHTML="<br />"+TotalDone+" of "+total+" articles examined: "+tagged+" tagged, "
                        ProgressSpan.innerHTML+=skipped+" skipped..."
                        continue
                    }
                    var result=NRISOnlyQuery([links[j].title],HiddenSpan)
                    if (result[0][0]!=links[j].title) {     // check again to make sure list isn't outdated
                        TotalDone++
                        skipped++
                        links[j].style.backgroundColor = "yellow"
                        ProgressSpan.innerHTML="<br />"+TotalDone+" of "+total+" articles examined: "+tagged+" tagged, "
                        ProgressSpan.innerHTML+=skipped+" skipped..."
                        continue
                    }

                    var multipleIssues=wikitext.match(/{{( )*?(multiple|many|mi|article|issues)( )?(issues)?( |[\r\n])*?\|/gi)
                    var NRISstr="{{NRIS-only|date="+DateStr+"}}"

                    if (multipleIssues!=null) {           // if multiple issues tag, add NRIS-only to bottom of list
                        var open=1
                        var start=wikitext.indexOf(multipleIssues[0])
                        var index=start+multipleIssues[0].length
                        while (open!=0 && index<wikitext.length) {
                            if (wikitext.substr(index,2)=="}}") {
                                open--
                                index++
                            } else if (wikitext.substr(index,2)=="{{") {
                                open++
                                index++
                            }
                            index++
                        }
                        index-=2
                        var full=wikitext.substr(start,index-start)
                        if (wikitext.substr(index-1,1)!="\n") full+="\n"
                        var oldsyntax=full.substr(2,full.length-2).match(/{{/g)
                        if (oldsyntax==null) {    // if using old syntax
                            full = full.replace(/\|( )*?one( )?source( )*?=(.|[\r\n])*?(\||$)/g, "|") // replace "|one source"
                            if (full.substr(full.length-1,1)=="|") {
                                full+="\n"
                            } else {
                                NRISstr="|"+NRISstr
                            }
                        } else {                  // replace "{{one source}}"
                            full = full.replace(/{{( )*?(one|single|1)( |-)?(source|ref)( |[\r\n])*?\|(.|[\r\n])*?}}[\r\n]?/gi,"")
                        }
                        full+=NRISstr+"\n"
                        wikitext = wikitext.substr(0,start)+full+wikitext.substr(index,wikitext.length-index)
                    } else {
                      wikitext=wikitext.replace(/{{( )*?(one|single|1)( |-)?(source|ref)( |[\r\n])*?\|(.|[\r\n])*?}}[\r\n]?/gi,"")
                        wikitext = NRISstr+"\n"+wikitext
                    }
                    NRISOnlyDump({
                        title: links[j].title,
                        text: wikitext,
                        summary:'Tag as only sourced to the [[National Register Information System]]'
                    },ProgressSpan,TotalDone,"tag");
                    TotalDone++
                    tagged++
                    ProgressSpan.innerHTML="<br />"+TotalDone+" of "+total+" articles examined: "+tagged+" tagged, "
                    ProgressSpan.innerHTML+=skipped+" skipped..."
                } else {
                    TotalDone++      // skip if wikitext error
                    skipped++
                    links[j].style.backgroundColor = "orange"
                    ProgressSpan.innerHTML="<br />"+TotalDone+" of "+total+" articles examined: "+tagged+" tagged, "
                    ProgressSpan.innerHTML+=skipped+" skipped..."
                }
            }
        }
        ProgressSpan.innerHTML="<br />Tagging complete! "+tagged+" articles tagged successfully! "+skipped
        ProgressSpan.innerHTML+=" skipped as unnecessary."
    }
    if (tobeuntagged!=null) {
        var str=""
        if (tobetagged!=null) {
            str="<br />Now u"
        } else {
            str="U"
        }
        ProgressDiv.innerHTML+=str+"ntagging articles that need to be untagged..."
        var ProgressSpan2 = document.createElement("span")
        ProgressSpan2.setAttribute("id", "ProgressSpan2")
        ProgressDiv.appendChild(ProgressSpan2)
        ProgressSpan2.innerHTML="<br />"

        var TotalDone=0

        var sections=tobeuntagged.getElementsByClassName('refbegin')
        var total=0
        for (var i=0; i<sections.length; i++) {
            var links=sections[i].getElementsByTagName('a')
            total+=links.length
        }
        var untagged=0
        var skipped=0
        ProgressSpan2.innerHTML="<br />0 of "+total+" articles examined: 0 untagged, 0 skipped..."

        for (var i=0; i<sections.length; i++) {
            var links=sections[i].getElementsByTagName('a')
            for (var j=0; j<links.length; j++) {
                var wikitext=getNRISOnlyWikitext(links[j].title)
                if (wikitext!="error") {
                    if (wikitext.match(/{{( |[\r\n])*?NRIS-only(.|[\r\n])*?}}[\r\n]?/g)==null) { //don't untag if already untagged
                        TotalDone++
                        skipped++
                        links[j].style.backgroundColor = "yellow"
                        ProgressSpan2.innerHTML="<br />"+TotalDone+" of "+total+" articles examined: "+untagged+" untagged, "
                        ProgressSpan2.innerHTML+=skipped+" skipped..."
                        continue
                    }
                    var result=NRISOnlyQuery([links[j].title],HiddenSpan)
                    if (result[1][0]!=links[j].title) {     // check again to make sure list isn't outdated
                        TotalDone++
                        skipped++
                        links[j].style.backgroundColor = "yellow"
                        ProgressSpan2.innerHTML="<br />"+TotalDone+" of "+total+" articles examined: "+untagged+" untagged, "
                        ProgressSpan2.innerHTML+=skipped+" skipped..."
                        continue
                    }

                    var multipleIssues=wikitext.match(/{{( )*?(multiple|many|mi|article|issues)( )?(issues)?( |[\r\n])*?\|/gi)

                    if (multipleIssues!=null) {     // if multiple issues tag, check to see we're not leaving only one tag behind
                        var open=1
                        var start=wikitext.indexOf(multipleIssues[0])
                        var index=start+multipleIssues[0].length
                        while (open!=0 && index<wikitext.length) {
                            if (wikitext.substr(index,2)=="}}") {
                                open--
                                index++
                            } else if (wikitext.substr(index,2)=="{{") {
                                open++
                                index++
                            }
                            index++
                        }
                        index-=2
                        var full=wikitext.substr(start,index-start)
                        var oldsyntax=full.substr(2,full.length-2).match(/{{( )*?[^(NRIS)](.|[\r\n])*?}}/g) //match non-NRIS temp

                        if (oldsyntax==null) {
                            var numberTemplates=full.substr(2,full.length-2).match(/\|/g).length - 2
                        } else {
                            var numberTemplates=oldsyntax.length
                        }

                        if (numberTemplates==0) {      // if NRIS-only is only template in multiple issues, remove entire block
                            wikitext=wikitext.replace(full+"}}\n","")
                        } else if (numberTemplates==1 && oldsyntax!=null) {       // if one template left, remove multiple issues
                            wikitext = wikitext.replace(full+"}}", oldsyntax[0])  // and replace with other template
                        } else {      // just remove if more than one other or if using old syntax
                            wikitext = wikitext.replace(/\|?{{( |[\r\n])*?NRIS-only(.|[\r\n])*?}}[\r\n]?/g, '')
                        }
                    } else {
                        wikitext = wikitext.replace(/{{( |[\r\n])*?NRIS-only(.|[\r\n])*?}}[\r\n]?/g, '')
                    }

                    NRISOnlyDump({
                        title: links[j].title,
                        text: wikitext,
                        summary:'Remove [[Template:NRIS-only]]; article has more than one reference'
                    },ProgressSpan2,TotalDone,"tag");
                    TotalDone++
                    untagged++
                    ProgressSpan2.innerHTML="<br />"+TotalDone+" of "+total+" articles examined: "+untagged+" untagged, "
                    ProgressSpan2.innerHTML+=skipped+" skipped..."
                } else {
                    TotalDone++      // skip if wikitext error
                    skipped++
                    links[j].style.backgroundColor = "orange"
                    ProgressSpan2.innerHTML="<br />"+TotalDone+" of "+total+" articles examined: "+untagged+" untagged, "
                    ProgressSpan2.innerHTML+=skipped+" skipped..."
                }
            }
        }
        ProgressSpan2.innerHTML="<br />Untagging complete! "+untagged+" articles untagged successfully! "+skipped
        ProgressSpan2.innerHTML+=" skipped as unnecessary."
    }
}

function getDuplicateStats(item) {
        var IllustratedStr = "illustrated"
        var countytext=""
        var Illustrated=0
        for (var j=2; j<item.length; j++) {
            countytext=getNRISOnlyWikitext(item[j])
            if (countytext!="error") {
                var StartIndex = 0
                var str = "{{NRHP row"
                var skip = str.length;
                var index, RowLocations = [];
                while ((index = countytext.indexOf(str, StartIndex)) > -1) {
                    RowLocations.push(index);
                    StartIndex = index + skip;
                }
                RowLocations.push(countytext.length)    // if duplicated entry happens to be last in table

                var k=0
                while (RowLocations[k]<countytext.indexOf(item[0])) {
                    k++
                }
                var CountyRow=countytext.substr(RowLocations[k-1],RowLocations[k]-RowLocations[k-1])
                CountyRow=CountyRow.replace(/\<\!\-\-(.|[\r\n])*?\-\-\>/g, "")      // get rid of commented out pictures
                if (CountyRow.match(/\|[ ]*?image[ ]*?=[ ]*?[a-zA-Z0-9]/g)!=null) Illustrated++
            } else {
                alert("Error checking duplicate stats! Script aborted!")
                return
            }
        }

        if (Illustrated!=item.length-2&&Illustrated!=0) IllustratedStr="partially-"+IllustratedStr
        if (Illustrated==0) IllustratedStr="un"+IllustratedStr

        var ArticledStr="articled"
        var AssessmentStr=""
        var NRISStr=""
        var title=""

        if(Object.prototype.toString.call(item[1]) === '[object Array]') { // if in multistate, pick out first item in array
            var title=item[1][0]
        } else {
            var title = item[1]
        }

        var nrisonlyquery=JSON.parse(  // check if NRIS-only
            $.ajax({
                dataType: "json",
                url: mw.util.wikiScript('api'),
                data: {
                    format: 'json',
                    action: 'query',
                    prop: 'categories',
                    clcategories: 'Category:All articles sourced only to NRIS',
                    cllimit: 'max',
                    titles: title,
                    redirects: 'true'
                },
                async:false
            })
            .responseText
        );

        if (nrisonlyquery.query.redirects) { // resolve any redirects
            for (var r in nrisonlyquery.query.redirects) {
                title=nrisonlyquery.query.redirects[r].to
            }
        }

        for (var page in nrisonlyquery.query.pages) {
            if (typeof nrisonlyquery.query.pages[page].missing!="undefined") {
                ArticledStr="un"+ArticledStr
                continue
            }
            if (nrisonlyquery.query.pages[page].categories) {
                NRISStr="NRIS-only"
            }
        }

        var catlist='Category:FA-Class National Register of Historic Places articles‎|Category:A-Class National Register of '
        catlist+='Historic Places articles‎|Category:GA-Class National Register of Historic Places articles‎|Category:B-Class '
        catlist+='National Register of Historic Places articles‎|Category:C-Class National Register of Historic Places '
        catlist+='articles‎|Category:Start-Class National Register of Historic Places articles‎|Category:Stub-Class National '
        catlist+='Register of Historic Places articles‎|Category:Unassessed National Register of Historic Places '
        catlist+='articles‎|Category:List-Class National Register of Historic Places articles|Category:Redirect-Class National '
        catlist+='Register of Historic Places articles'

        if (ArticledStr!="unarticled") {
            var statsquery=JSON.parse(  // look at quality stats
                $.ajax({
                    dataType: "json",
                    url: mw.util.wikiScript('api'),
                    data: {
                        format: 'json',
                        action: 'query',
                        prop: 'categories',
                        clcategories: catlist,
                        cllimit: 'max',
                        titles: 'Talk:'+title,
                        redirects: 'true'
                    },
                    async:false
                })
                .responseText
            );

            for (var page in statsquery.query.pages) {
                var tagged = "no"
                if (statsquery.query.pages[page].categories) {
                    tagged = "yes"
                    for (var category in statsquery.query.pages[page].categories) {
                        var CatTitle=statsquery.query.pages[page].categories[category].title
                        if (CatTitle.indexOf("Stub")!=-1) {
                            AssessmentStr="Stub-class"
                            continue
                        }
                        if (CatTitle.indexOf("Unassessed")!=-1||CatTitle.indexOf("Redirect")!=-1) { // also count rdr unassessed
                            AssessmentStr="unassessed"
                            continue
                        }
                        if  (CatTitle.indexOf("List")!=-1) {
                            if (statsquery.query.pages[page].title.indexOf("National Register of Historic Places")!=-1){
                                ArticledStr="un"+ArticledStr
                                continue
                            } else {
                                AssessmentStr="Stub-class"
                                continue
                            }
                        }
                        AssessmentStr="Start+"
                    }
                }
                if (tagged=="no") {
                    AssessmentStr="untagged"
                }
            }
        }

        var StatsStr = ArticledStr+", "+IllustratedStr
        if (AssessmentStr!="") StatsStr+=", "+AssessmentStr
        if (NRISStr!="") StatsStr+=", "+NRISStr

        return StatsStr
}

function GenerateDuplicateTable(StateStructure,i,list,stateName,CountySpan,ThisStateSpan) {
    var wikitext=""
    var switchtabletext=""
    // check county-level duplicates
    CountySpan.innerHTML="<br />First checking county-level duplications in this state..."
    var NumberFound=0

    for (var j=1; j<StateStructure[i].length; j++) {
        wikitext+="==="+StateStructure[i][j][0]+", "+StateStructure[i][0]+"===\n"
        var TotalCountyDuplicates=0
        var TotalCountyArticled=0
        var TotalCountyIllustrated=0
        var TotalCountyStub=0
        var TotalCountyNRISOnly=0
        var TotalCountyStartPlus=0
        var TotalCountyUnassessed=0
        var TotalCountyUntagged=0

        for (var k=0; k<list.length; k++) {
            var numberlists=list[k].length-2
            var NumberInThisCounty=0
            var temp=[];
            for (var l=0; l<list[k].length; l++) { // make temp static
                temp[l]=list[k][l]
            }
            for (var l=2; l<temp.length; l++) {
                var ListName=temp[l].replace(/National Register of Historic Places listings (i|o)n /g,"")
                ListName=ListName.replace(", "+stateName,"")
                var oldnumber=NumberInThisCounty
                for (var m=0; m<StateStructure[i][j][1].length; m++) {
                    if (ListName==StateStructure[i][j][1][m]) NumberInThisCounty++
                }
                if (NumberInThisCounty==oldnumber) {temp.splice(l,1); l--}  // get rid of sublists not in this county
            }
            if (NumberInThisCounty>1) {
                NumberFound++
                CountySpan.innerHTML="<br />First checking county-level duplications in this state... "
                CountySpan.innerHTML+=NumberFound+" found so far..."
                TotalCountyDuplicates++
                if (TotalCountyDuplicates==1) {
                    wikitext+="{| class=\"wikitable sortable\" width=100%\n! {{NRHP color}} width=30% | Site\n! {{NRHP "
                    wikitext+="color}} width=30% | Lists\n! {{NRHP color}} width=10% | Number of Duplicates\n! {{NRHP "
                    wikitext+="color}} width=30% colspan=7 | Stats\n"
                }
                wikitext+="|-\n| [["+temp[1]+"]] (#"+temp[0]+")\n|\n"
                for (var m=2; m<temp.length; m++) {
                    wikitext+="*[["+temp[m]+"|"+temp[m].replace(/National Register of Historic Places listings (i|o)n /g,"")
                    wikitext+="]]\n"
                }
                var duplications=NumberInThisCounty-1
                TotalCountyDuplicates+=duplications-1
                wikitext+="| align=center | "+duplications+"\n| colspan=7 | "

                var StatsStr=getDuplicateStats(temp)
                if (StatsStr.indexOf("unarticled")==-1) TotalCountyArticled+=duplications
                if (StatsStr.indexOf(", illustrated")!=-1) TotalCountyIllustrated+=duplications
                if (StatsStr.indexOf("Stub-class")!=-1) TotalCountyStub+=duplications
                if (StatsStr.indexOf("NRIS-only")!=-1) TotalCountyNRISOnly+=duplications
                if (StatsStr.indexOf("Start+")!=-1) TotalCountyStartPlus+=duplications
                if (StatsStr.indexOf("unassessed")!=-1) TotalCountyUnassessed+=duplications
                if (StatsStr.indexOf("untagged")!=-1) TotalCountyUntagged+=duplications

                wikitext+=StatsStr+"\n"

                if (NumberInThisCounty==numberlists) {  // if only duplicated inside this county, get rid of it
                    list.splice(k,1)
                    k--
                }
            }
        }
        if (TotalCountyDuplicates==0) {
            wikitext+="There are no duplications across sublists of "+StateStructure[i][j][0]
            wikitext+=", "+StateStructure[i][0]+".\n\n"

            switchtabletext+="    |"+StateStructure[i][j][0]+", "+StateStructure[i][0]+"=0</td><td>0</td><td>-</td><td>"
            switchtabletext+="0</td><td>-</td><td>0</td><td>0</td><td>0</td><td>-</td><td>0</td><td>0</td><td>-</td>\n"

            CountySpan.innerHTML="<br />First checking county-level duplications in this state... None found."
        } else {
            wikitext+="|-\n! colspan=2 | Total\n! "+TotalCountyDuplicates+"\n! "+TotalCountyIllustrated+"\n! "
            wikitext+=TotalCountyArticled+"\n! "+TotalCountyStub+"\n! "+TotalCountyNRISOnly+"\n! "+TotalCountyStartPlus
            wikitext+="\n! "+TotalCountyUnassessed+"\n! "+TotalCountyUntagged+"\n|}\n\n"

            switchtabletext+="    |"+StateStructure[i][j][0]+", "+StateStructure[i][0]+"="+TotalCountyDuplicates+"</td><td>"
            switchtabletext+=TotalCountyIllustrated+"</td><td>-</td><td>"+TotalCountyArticled+"</td><td>-</td><td>"
            switchtabletext+=TotalCountyStub+"</td><td>"+TotalCountyNRISOnly+"</td><td>"+TotalCountyStartPlus
            switchtabletext+="</td><td>-</td><td>"+TotalCountyUnassessed+"</td><td>"+TotalCountyUntagged+"</td><td>-</td>\n"

            CountySpan.innerHTML="<br />First checking county-level duplications in this state... Complete! "+TotalCountyDuplicates+" found."
        }
    }
    if (StateStructure[i].length==1) {
        CountySpan.innerHTML="<br />First checking county-level duplications in this state... None found."
    }
    ThisStateSpan.innerHTML="<br />Now checking statewide duplicates..."
    if (StateStructure[i].length>1) wikitext+="==="+StateStructure[i][0]+" Statewide===\n"
    if (list.length==0) {
        wikitext+="There are no duplications across sublists of "+StateStructure[i][0]+".\n\n"

        switchtabletext+="|"+StateStructure[i][0]+"=0</td><td>0</td><td>-</td><td>0</td><td>-</td><td>0</td><td>0</td><td>0"
        switchtabletext+="</td><td>-</td><td>0</td><td>0</td><td>-</td>\n"
    } else {
        var TotalStateDuplicates=0
        var TotalStateArticled=0
        var TotalStateIllustrated=0
        var TotalStateStub=0
        var TotalStateNRISOnly=0
        var TotalStateStartPlus=0
        var TotalStateUnassessed=0
        var TotalStateUntagged=0

        wikitext+="{| class=\"wikitable sortable\" width=100%\n! {{NRHP color}} width=30% | Site\n! {{NRHP "
        wikitext+="color}} width=30% | Lists\n! {{NRHP color}} width=10% | Number of Duplicates\n! {{NRHP "
        wikitext+="color}} width=30% colspan=7 | Stats\n"

        for (var j=0; j<list.length; j++) {
            ThisStateSpan.innerHTML="<br />Now checking statewide duplicates... "
            ThisStateSpan.innerHTML+=j+" of "+list.length+" examined so far..."

            wikitext+="|-\n| [["+list[j][1]+"]] (#"+list[j][0]+")\n|\n"
            for (var m=2; m<list[j].length; m++) {
                wikitext+="*[["+list[j][m]+"|"
                wikitext+=list[j][m].replace(/National Register of Historic Places listings (i|o)n /g,"")+"]]\n"
            }

            var thisDuplicateStates=[];
            for (var l=2; l<list[j].length; l++) {
                var ListName=list[j][l].replace(/National Register of Historic Places listings (i|o)n /g,"")
                ListName=ListName.replace(", "+stateName,"")
                thisDuplicateStates.push(ListName)
                for (var k=1; k<StateStructure[i].length; k++) {
                    for (var m=0; m<StateStructure[i][k][1].length; m++) {
                        if (ListName==StateStructure[i][k][1][m]) {
                            thisDuplicateStates[thisDuplicateStates.length-1]=StateStructure[i][k][0]
                        }
                    }
                }
            }

            for (var l=0;l<thisDuplicateStates.length; l++) {    // shrink list if duplicated inside single county
                for (var m=l+1;m<thisDuplicateStates.length; m++) {
                    if (thisDuplicateStates[l]==thisDuplicateStates[m]) {thisDuplicateStates.splice(m,1);m--}
                }
            }
            var duplications=thisDuplicateStates.length-1

            TotalStateDuplicates+=duplications
            wikitext+="| align=center | "+duplications+"\n| colspan=7 | "

            var StatsStr=getDuplicateStats(list[j])
            if (StatsStr.indexOf("unarticled")==-1) TotalStateArticled+=duplications
            if (StatsStr.indexOf(", illustrated")!=-1) TotalStateIllustrated+=duplications
            if (StatsStr.indexOf("Stub-class")!=-1) TotalStateStub+=duplications
            if (StatsStr.indexOf("NRIS-only")!=-1) TotalStateNRISOnly+=duplications
            if (StatsStr.indexOf("Start+")!=-1) TotalStateStartPlus+=duplications
            if (StatsStr.indexOf("unassessed")!=-1) TotalStateUnassessed+=duplications
            if (StatsStr.indexOf("untagged")!=-1) TotalStateUntagged+=duplications

            wikitext+=StatsStr+"\n"
        }
        wikitext+="|-\n! colspan=2 | Total\n! "+TotalStateDuplicates+"\n! "+TotalStateIllustrated+"\n! "
        wikitext+=TotalStateArticled+"\n! "+TotalStateStub+"\n! "+TotalStateNRISOnly+"\n! "+TotalStateStartPlus
        wikitext+="\n! "+TotalStateUnassessed+"\n! "+TotalStateUntagged+"\n|}\n\n"

        switchtabletext+="|"+StateStructure[i][0]+"="+TotalStateDuplicates+"</td><td>"+TotalStateIllustrated+"</td><td>-</td><td>"
        switchtabletext+=TotalStateArticled+"</td><td>-</td><td>"+TotalStateStub+"</td><td>"+TotalStateNRISOnly+"</td><td>"
        switchtabletext+=TotalStateStartPlus+"</td><td>-</td><td>"+TotalStateUnassessed+"</td><td>"+TotalStateUntagged
        switchtabletext+="</td><td>-</td>\n"
    }
    return [wikitext,switchtabletext]
}

// subroutine to determine state from list name
function getState(title) {
    var temp=title.split(", ")
    var state=temp[temp.length-1]
    if (state=="Philadelphia") state="Pennsylvania"
    if (temp[0]==state||state.indexOf(':')!=-1) {
        if (title.indexOf("Chicago")!=-1) state="Illinois"
        else if (title.indexOf("St. Louis")!=-1) state="Missouri"
        else if (title.indexOf("Kansas City")!=-1) state="Missouri"
        else if (title.indexOf("Baltimore")!=-1) state="Maryland"
        else if (title.indexOf("Manhattan")!=-1) state="New York"
        else if (title.indexOf("Philadelphia")!=-1) state="Pennsylvania"
        else if (title.indexOf("Zion")!=-1) state="Utah"
        else state=""
    }
    return state
}

// dump lists to subpages
function NRISOnlyDump(info,Span,subpages,doneEditing) {
    var api = new mw.Api();

    api.postWithToken( "edit", {
        action: "edit",
        title: info.title,
        summary: info.summary,
        text: info.text,
        bot: 'true'
        },
        {async:false})
    .done( function(data) {
        if (data && data.edit && data.edit.result && data.edit.result=="Success") {
            if (doneEditing=="no") {
                Span.innerHTML="<br>Dumping data to subpages of "
                Span.innerHTML+="<a href='http://en.wikipedia.org/wiki/"+OutputBase+"'>"+OutputBase+"</a>... "+subpages+" edits made."
            } else if (doneEditing=="yes") {
                Span.innerHTML="<br>Dumping data to subpages of "
                Span.innerHTML+="<a href='http://en.wikipedia.org/wiki/"+OutputBase+"'>"+OutputBase+"</a>... Done! "+subpages
                Span.innerHTML+=" subpages edited successfully!"
            } else if (doneEditing=="NRIS") {
                Span.innerHTML+="Done! Click link to see output!"

                // output technical information to console
                var WarningText="NRHP Progress Warnings: "
                for (var i=0; i<WarningCount.length; i++) {
                    WarningText+=WarningCount[i][0]+" ("+WarningCount[i][1]+"), "
                }
                if (WarningCount[0][0]!="") {
                    WarningText=WarningText.substr(0,WarningText.length-2)
                } else {
                    WarningText="NRHP Progress Warnings: none"
                }
                throw(WarningText)
            } else if (doneEditing=="duplicates") {
                Span.innerHTML+="<br>Output saved! Click link to see it."
            }
        } else {
            Span.innerHTML += " The edit query returned an error! Aborting script."
            alert('Edit query error:\n'+data.error.code+': '+data.error.info+'\nClick OK to view raw wikitext for latest subpage.');
            var popup = open("");
            var div = popup.document.createElement("div");
            div.innerHTML=info.title+"<br><hr><br>"+info.text
            popup.document.body.appendChild(div);
        }
    })
    .fail( function() {
            Span.innerHTML += " The edit query returned an error! Aborting script."
            alert('Ajax failure. Click OK to view raw wikitext for latest subpage.');
            var popup = open("");
            var div = popup.document.createElement("div");
            div.innerHTML=info.title+"<br><hr><br>"+info.text
            popup.document.body.appendChild(div);
    });
}

function getNRISOnlyProgressPageWikitext(title) {    // asynchronous fetch of Progress page wikitext
    $.ajax({
        dataType: "json",
        url: mw.util.wikiScript('api'),
        data: {
            format: 'json',
            action: 'query',
            prop: 'revisions',
            rvprop: 'content',
            titles: title,
            indexpageids: true,
            redirects: 'true'
        },
        error: function() {wikitext="error"},
        success: function(output) {
            for (page in output.query.pages) {
                wikitext=output.query.pages[page].revisions[0]['*'];
            }
        },
        complete: function() {
            if (wikitext=="error") {
                var ProgressDiv=document.getElementById("ProgressDiv")
                ProgressDiv.innerHTML+=" Unable to fetch wikitext! Script aborted."
            } else {
                SetupNRISOnlyTables()
            }
        }
    })
}

function getNRISOnlyListWikitext(currentTable,currentRow) {   // asynchronous fetch of each list's wikitext
    $.ajax({
        dataType: "json",
        url: mw.util.wikiScript('api'),
        data: {
            format: 'json',
            action: 'query',
            prop: 'revisions',
            rvprop: 'content',
            titles: NRISOnlyStructure[currentTable][currentRow].Link,
            indexpageids: true,
            redirects: 'true'
        },
        error: function(ajaxResponse,status,errorThrown) {ajaxResponse.errorThrown=errorThrown},
        complete: function(ajaxResponse,status) {NRISOnlyWikitextFetched(ajaxResponse,status,currentTable,currentRow)}
    })
}

function getNRISOnlyWikitext(title) {   // legacy synchronous fetch Wikitext of each page for tagging
    try {
        var output=JSON.parse(
            $.ajax({
                dataType: "json",
                url: mw.util.wikiScript('api'),
                data: {
                    format: 'json',
                    action: 'query',
                    prop: 'revisions',
                    rvprop: 'content',
                    titles: title,
                    indexpageids: true,
                    redirects: 'true'
                },
                async:false
            })
            .responseText
        );
        for (page in output.query.pages) {
            wikitext = output.query.pages[page].revisions[0]['*'];
        }
        return wikitext
    }
    catch(err) {
        return "error"
    }
}

// legacy check to see if article is NRIS-only used during tagging
function NRISOnlyQuery(toQuery,SubpageSpan) { // look through wikitext of each article to find NRIS-only ones
    var ToBeTagged=[];
    var ToBeUntagged=[];
    var Unreferenced=[];
    var OneRefNotNRIS=[];
    var AllNRISOnly=[];
    var Substubs=[];
    var Errors=[];
    var isTagged="no"
    for (var k=1;k<toQuery.length+1; k++) {
        SubpageSpan.innerHTML = "<br />Finding NRIS-only articles... Querying page "+k+" of "+toQuery.length+" in this county..."
        var wikitext=getNRISOnlyWikitext(toQuery[k-1])
        isTagged="no"
        if (wikitext!="error") {
            // calculate prose size
            var prose=wikitext.replace(/\<\!\-\-(.|[\r\n])*?\-\-\>/g,"")                        // strip comments
            prose=prose.replace(/\<ref[^e](.|[\r\n])*?([ ]*?\/|\<\/ref[ ]*?)\>/gi,"")           // strip refs
            prose=prose.replace(/==[ ]*?External links[ ]*?==(.|\n)*?(?=(==.*?==|$))/gi,"")     // strip external links section
            prose=prose.replace(/==[ ]*?See also[ ]*?==(.|\n)*?(?=(==.*?==|$))/gi,"")           // strip see also section
            prose=prose.replace(/==[ ]*?(References|Notes)[ ]*?==(.|\n)*?(?=(==.*?==|$))/gi,"") // strip references section
            // strip further reading section
            prose=prose.replace(/==[ ]*?(Further|Additional) reading[ ]*?==(.|\n)*?(?=(==.*?==|$))/gi,"")
            prose=prose.replace(/={2,5}.*?={2,5}/g,"")                                          // strip section titles
            // replace wikilinks with displayed text
            prose=prose.replace(/\[\[(?![ ]*?Category:|[ ]*?Image:|[ ]*?File:)([^\]]*?\|)?(.*?)\]\]/gi,"$2")
            prose=prose.replace(/\[[ ]*?http.*? (.*?)\]/g,"$1")                 // replace inline external links with displayed text
            prose=prose.replace(/'{2,5}(.*?)'{2,5}/g,"$1")                      // replace bold/italic with displayed text
            prose=prose.replace(/\[\[[ ]*?Category:.*?\]\]/g,"")                                // strip categories
            prose=prose.replace(/\[\[[ ]*?(Image|File):.*?\]\]/g,"")                            // strip images
            prose=prose.replace(/\<[ ]*?gallery(.|\n)*?\<[ ]*?\/[ ]*?gallery[ ]*?\>/gi,"")      // strip galleries
            while(true) {                                                                       // strip templates
                var str="{{"
                var start=prose.indexOf(str)
                if (start==-1) break
                var open=1
                var index=start+str.length
                while (open!=0 && index<prose.length) {
                    if (prose.substr(index,2)=="}}") {
                        open--
                        index++
                    } else if (prose.substr(index,2)=="{{") {
                        open++
                        index++
                    }
                    index++
                }
                prose=prose.replace(prose.substr(start,index-start),"")
            }
            prose=prose.replace(/{\|(.|\n)*?\|}/g,"")                   // strip tables
            prose=prose.replace(/&nbsp;/g," ")                          // replace nbsp with regular space
            prose=prose.replace(/<[ ]*?br.*?>/g, "\n")                  // replace HTML line break with string line break
            prose=prose.replace(/[ \n]+/g," ")                          // replace multiple spaces/linebreaks with single space
            prose=prose.trim()

            if (prose.length<325) Substubs[Substubs.length]=[toQuery[k-1],prose.length]

            if (wikitext.match(/{{( |[\r\n])*?NRIS-only(.|[\r\n])*?}}/g)!=null) isTagged="yes"
            if (wikitext.indexOf("{{GR")!=-1||wikitext.indexOf("{{sfn")!=-1||wikitext.indexOf("{{Sfn")!=-1) {
                if (isTagged=="yes") ToBeUntagged.push(toQuery[k-1])
                continue
            }
            var Refs=wikitext.match(/\<ref[^e](.|[\r\n])*?([ ]*?\/|\<\/ref[ ]*?)\>/gi)
            var comments=wikitext.match(/\<\!\-\-(.|[\r\n])*?\-\-\>/g)

            if (Refs==null) {     // if no refs, count as unreferenced
                Unreferenced.push(toQuery[k-1])
                continue
            }

            if (comments!=null) {
                for (var l=0; l<comments.length; l++) {
                    var CommentedRefs=comments[l].match(/\<ref[^e](.|[\r\n])*?([ ]*?\/|\<\/ref[ ]*?)\>/gi)
                    if (CommentedRefs==null) continue
                    for (var m=0; m<CommentedRefs.length; m++) {
                        for (var n=0; n<Refs.length; n++) {
                            if (Refs[n]==CommentedRefs[m]) {Refs.splice(n,1); n--}
                        }
                    }
                }
            }

            if (Refs.length==0) {    // if all refs commented out, count as unreferenced
                Unreferenced.push(toQuery[k-1])
                continue
            }

            var citesNRIS="no"
            for (var l=0; l<Refs.length; l++) {
                if (Refs[l].indexOf("{{NRISref")!=-1) citesNRIS="yes"
            }

            var namedRefs=[];
            var Duplications=[];
            for (var l=0; l<Refs.length; l++) {
                var nameOfRef=Refs[l].match(/name[ ]*?=.*?(\/|\>)/gi)
                if (nameOfRef==null) {
                    continue
                } else {
                    nameOfRef = nameOfRef[0].replace(/("| )/g,'')
                    nameOfRef = nameOfRef.substr(5,nameOfRef.length-6)
                }
                namedRefs.push(nameOfRef)
                Duplications.push(1)
                for (var m=0; m<namedRefs.length-1; m++) {   // if title is duplicated, count how many times
                    if (nameOfRef==namedRefs[m]) {
                        namedRefs.splice(m,1)
                        Duplications[Duplications.length-1] = Duplications[m] + 1
                        Duplications.splice(m,1);
                        m--
                    }
                }
            }
            if (namedRefs.length==2&&namedRefs[0]==namedRefs[1]) Duplications[0]++ // fix for if all refs are same
            var toSubtract=0
            for (var l=0; l<Duplications.length; l++) {
                toSubtract = toSubtract + Duplications[l] - 1
            }

            var DistinctRefs = Refs.length-toSubtract

            if (DistinctRefs>1) {
                if (isTagged=="yes") ToBeUntagged.push(toQuery[k-1]) // untag if ref has been added since tag placed
                continue
            }
            if (citesNRIS=="no") {OneRefNotNRIS.push(toQuery[k-1]);continue} // if only one ref and not NRIS, count that
            if (isTagged=="no") ToBeTagged.push(toQuery[k-1]) // only push if the only ref is NRISref and it's not already tagged
            AllNRISOnly.push(toQuery[k-1])
        } else {
            Errors.push(toQuery[k-1]);
            continue;
        }
    }
    return [ToBeTagged,ToBeUntagged,Unreferenced,OneRefNotNRIS,AllNRISOnly,Substubs,Errors]
}

$(window).load(CheckPermission);