/* This builds the page header and menus. */ function HeaderArray(){ document.write(''); document.write(''); document.write(''); document.write(''); document.write(''); document.write(''); document.write(''); document.write('

'); document.write(''); document.write(''); document.write(''); document.write(''); document.write(''); document.write('

'); document.write(''); document.write(''); document.write(''); document.write(''); document.write(''); document.write(''); document.write(''); document.write(''); document.write(''); document.write(''); document.write('

'); } //HeaderArray /* This builds a standard page footer. */ function Footer(theDate){ document.write('

'); document.write(''); document.write(''); document.write(''); document.write(''); document.write(''); document.write(''); document.write('

Go to top of page.	Contact ' + mailtoName + '
© ' + theDate + ' David J. Ellis

'); } //Footer /* This builds the single level image sequencer. */ function ImageSequencer(theTitle,theImage,thePrevious,theNext,theWidth){ document.write(''); document.write(''); document.write(''); document.write(''); document.write(''); document.write('

'); document.write(''); document.write(theTitle + ''); document.write('

'); document.write(''); document.write(''); document.write(''); document.write(''); document.write(''); document.write(''); document.write(''); document.write('

'); document.write('

'); document.write('

'); document.write('

'); document.write('

'); document.write('

'); if(typeof theWidth=="undefined" || theWidth==""){ document.write('

'); } else { document.write('

'); } document.write('

'); document.write(''); document.write(''); document.write(''); document.write(''); document.write(''); document.write(''); document.write(''); document.write('

'); document.write('

'); document.write('

'); document.write('

'); document.write('

'); document.write('

'); } //ImageSequencer /* This builds the second level (left and right) image sequencer. */ function ImageSequencer2(theTitle,theImage,thePrevious,theNext,theLeft,theRight,theWidth){ document.write(''); document.write(''); document.write(''); document.write(''); document.write(''); document.write(''); document.write(''); document.write('

'); document.write(''); document.write(theTitle + ''); document.write('

'); document.write(''); document.write(''); document.write(''); document.write(''); document.write(''); document.write(''); document.write(''); document.write('

'); document.write('

'); document.write('

'); document.write('

'); document.write('

'); document.write('

'); document.write(''); document.write(''); document.write(''); document.write(''); document.write(''); document.write(''); document.write(''); document.write('

'); document.write('

'); document.write('

'); document.write('

'); document.write('

'); document.write('

'); if(typeof theWidth=="undefined" || theWidth==""){ document.write('

'); } else { document.write('

'); } document.write('

'); document.write(''); document.write(''); document.write(''); document.write(''); document.write(''); document.write(''); document.write(''); document.write('

'); document.write('

'); document.write('

'); document.write('

'); document.write('

'); document.write('

'); document.write(''); document.write(''); document.write(''); document.write(''); document.write(''); document.write(''); document.write(''); document.write('

'); document.write('

'); document.write('

'); document.write('

'); document.write('

'); document.write('

'); } //ImageSequencer2 /* autoSequencer, which uses routines refreshImage and gotHit, is an automatic image sequencer for files that share a root filename. It requires two variables to be externally declared: var currImg = new Image(); currImg is used to setup and then to store each image as it is displayed. var fileList = new Array(4,true,"rootFileName","fileType",s1,s2,...,sn); fileList is an array defining the files and containing the all the suffixes that are to be appended to the filename root and then displayed in sequence. The first element of the array is the count that determines which element is to be displayed next. Normally it is preset to 4 but may be preset to the element, or sequence, that is to be displayed first. This is followed by a status flag that indicates if the sequencer is running or not. This should be set to true, as shown. Next is the root file name, i.e. that part of the filename that is common to all the files. Next is the file type, normally ".jpg". The remaining elements may be a list of numbers or short strings that are to be appended to the root filename and displayed. If they are numbers they must be values in the range 0 to 999 and leading zeros will be added by is routine so that each is three characters long. If they are strings, they must be placed in quotes. A range of numeric suffixes between 0 and 999 may be included as ...,"[]",nn,min,max,... where "[]" is a value that indicates the start of a range of values. Next is the count within the range, normally set to equal the minimum value in the range; then the minimum value; and finally then the maximum value. When using repeat statements, only numeric values are permitted and the "[]" marker is required. Calling paramenters are the delay time in milliseconds; the page title; and optionally, the width of the images. */ function autoSequencer(timer,theTitle,theWidth){ document.write(''); document.write(''); document.write(''); document.write(''); document.write(''); document.write(''); document.write('

'); document.write(''); document.write(theTitle + ''); document.write('

'); document.write('

'); // Establish a place for the image name. document.write('

'); document.write(''); document.write(''); document.write(''); document.write(''); document.write(''); document.write(''); document.write(''); document.write('

'); document.write('

'); document.write('

'); document.write('

'); document.write('

'); document.write('

'); refreshImage(0); if(typeof theWidth=="undefined" || theWidth==""){ document.write('' + '

'); } else { document.write('' + '

'); } document.write('

'); document.write(''); document.write(''); document.write(''); document.write(''); document.write(''); document.write(''); document.write(''); document.write('

'); document.write('

'); document.write('

'); document.write('

'); document.write('

'); document.write('

'); refreshImage(timer); } // autoSequencer /* This routine refreshes the image. The paramter "type" is 0 to initialize the routine. When "type" is set to -1 or 1 the images will be sequenced without a timeout. Otherwise "type" is set to the timer delay in milliseconds and the images will sequence without user intervention until an image is clicked. */ function refreshImage(type){ // First we deal with setup and indexing the count. i=fileList[0]; switch (type) { case 0: // This is the setup call. Make sure the initial parameters are correct. if (i>fileList.length-1 || i<4) {i=4; fileList[0]=i;} if (fileList[i]=="[]") { // Initialize an inner sequence but do not increment. fileList[i]="[a]"; fileList[i+1]=fileList[i+2]; } fileList[1]=true; break; case 1: // This is a user controlled increment. if (fileList[i]!="[]") { // Handle regular incrementing first. if (fileList[i]=="[a]") { // Increment an inner sequence count if its active. fileList[i+1]++; if (fileList[i+1]>fileList[i+3]) { // Close an inner sequence when its done. fileList[i]="[]"; i=i+4; } } else { i++; } if (i>fileList.length-1) i=4; // Wrap around at end of list. fileList[0]=i; } if (fileList[i]=="[]") { // If we reached an inner sequence, initialize it but do not increment. fileList[i]="[a]"; fileList[i+1]=fileList[i+2]; } break; case -1: // This is a user controlled decrement. if (fileList[i-3]!="[]") { // Handle regular decrementing first. if (fileList[i]=="[a]") { // Decrement an inner sequence count if its active. fileList[i+1]--; if (fileList[i+1]fileList[i+3]) { // Close an inner sequence when its done. fileList[i]="[]"; i=i+4; } } else { i++; } if (i>fileList.length-1) i=4; // Wrap around at end of list. fileList[0]=i; } if (fileList[i]=="[]") { // If we reached an inner sequence, initialize it but do not increment. fileList[i]="[a]"; fileList[i+1]=fileList[i+2]; } break; } // Now we handle building the filename. i = fileList[0]; if (fileList[i]=="[a]") i++; // Point to the count. if (typeof fileList[i]=="number") { if (fileList[i] < 10) { filename = fileList[2] + '00' + fileList[i] + fileList[3]; } else if (fileList[i] < 100) { filename = fileList[2] + '0' + fileList[i] + fileList[3]; } else { filename = fileList[2] + fileList[i] + fileList[3]; } } else { filename = fileList[2] + fileList[i] + fileList[3]; } currImg.src = reference_server + root + images + filename; // Display the image. switch (type) { case 0: fileList[0]--; // Decrement count to compensate for its being pre-incremented by all other cases. break; // No need to worry about inner sequences as they will be reset. case 1: document.images.displayImage.src=eval('currImg.src'); clearTimeout(timerid); fileList[1] = false; break; case -1: document.images.displayImage.src=eval('currImg.src'); clearTimeout(timerid); fileList[1] = false; break; default: document.images.displayImage.src=eval('currImg.src'); // This builds the call to refreshImage so that the value of "type" can be passed to setTimeout functionCall = "refreshImage(" + type + ")" ; timerid = setTimeout(functionCall,type); break; } // Finally, update the name of the image for the user if (document.all) imageTitle.innerHTML="

"+filename+" - click to stop/start sequencing.

"; else if (document.getElementById){ rng = document.createRange(); el = document.getElementById("imageTitle"); rng.setStartBefore(el); htmlFrag = rng.createContextualFragment("

"+filename+" - click to stop/start sequencing.

"); while (el.hasChildNodes()) el.removeChild(el.lastChild); el.appendChild(htmlFrag); } } // refreshImage /* This routine stops sequencing or restarts it if the user clicks on the image. */ function gotHit(delay){ if (fileList[1]) { fileList[1] = false; clearTimeout(timerid); } else { fileList[1] = true; refreshImage(delay); } } // gotHit /* Following are several routines that manage lists that are used in outline descendant tree. listElement(listLvl,status,content[,sources]) builds list elements. listOpen(listLvl[,startNum]) opens a new list. listClose() closes a list. listElement(listLvl,nameID,status,link,content[,sources]) builds list elements. "state" is a 10 element array used to store the list state and must be declared and initialized to zero externally. "listLvl" is the element level from 0 to 3 or is "". When not "", it causes a new list element or marriage to be started. When "", the values are appended to the currently open list element. "nameID" adds an ID to the list entry so that it may be linked to. This parameter is ignored for all cases except when a new list element is being started. e.g. When set to "rep3" and this is a new list element, then this list element will be tagged with id="rep3". "status" defines the status of the data. It may optionally ne null but should be included when a new list element or a marriage is being started. "link" allows an individual to be linked to another location and should only be used when a new individual is named - i.e. as a new list element or as a marriage. e.g. When set to "Chapter10.htm#rep3" then this individuals name will be linked to "Chapter10#rep3". "content" is the data to be presented in the list element. Following the first five parameters are optional parameters in sets of three that indicate the sources to be used. The first optional parameter in the set of three is the dataset. The second is the image or link to be displayed. The third is the link name. If the first two parameters are a null string, then the source name is stated without any link. There may be up to three sources per list element. */ function listElement(listLvl,nameID,status,link,content){ var outText = ''; var strFact = ''; var strData = ''; // First split the content to look for key words. if(content.indexOf(" ") != -1) { strFact = content.slice(0,content.indexOf(" ")); strData = content.slice(content.indexOf(" ")); } // Start building the output string. // Find those that are marriages. var j = listLvl; if(strFact == "married" || strFact == "partner") { j = j + 10; } // Set up item code and record the data type. if(j < 11) { // If we have an individual with an ID set it up. if(nameID != "") { outText = ' id="' + nameID + '"'; // Heads and list items can have IDs within the tag. } } else { if(nameID != "") { outText = ''; // Anything else needs a specific "'; state[1] = 0; break; case 1: outText = ''; state[1] = 0; break; case 2: outText = ''; state[1] = 0; break; case 3: outText = ''; state[1] = 0; break; // If this is a level 10 marriage and we are already at level 0 // or level 10 then close the original and reopen it to // throw correct line spacing. // state[0] is the current state and listLvl is the one we are about to process. case 10: outText = ''; if(state[0] == 0 || state[0] == 10) {outText = '' + outText;} state[1] = 1; break; // If we just closed a lower level list and have a new marriage then // we should supress the
. case 11: if(listLvl==state[0]) {outText = '
' + outText;} state[1] = 1; break; case 12: if(listLvl==state[0]) {outText = '
' + outText;} state[1] = 1; break; case 13: if(listLvl==state[0]) {outText = '
' + outText;} state[1] = 1; break; default: outText = '
' + outText; state[1] = 2; break; } // Check the current state and see if we need to open or close any lists. if(state[1] != 2) { // Ignore continuation lines. var i = (listLvl + 1) * 2; if(state[1] == 1) { state[i+1]++; // Count the marriages. } else { state[i+1] = 0; // Reset marriage count if its a new individual state[i]++; // and increment the element count. } if(listLvl > state[0]) { // New individual at incr. level (NB: cannot be a marriage, state[0] = listLvl; // might be child of multiple mariages. Update the current listOpen(listLvl,state[i]); // state and open a new list. } else if (listLvl < state[0]) { // New individual at decr. level may be multiple marriage. while(listLvl != state[0]) { // Iterate up to the new list level (might be more than one level). if(state[1] == 0 || state[0] != listLvl+1) { i = (state[0] + 1) * 2; state[i] = 0; // New individual or a marriage more than one level away. state[i+1] = 0; // Reset the element count and marriage count of current level. } listClose(); // Close the existing list. state[0]--; // Decrement the current state. } } } // Highlight any facts that are not well established. if(state[1] != 0) { // state[1] is non zero when we have a continuation line or marriage. document.write(outText); if(link != "" && (strFact == "married" || strFact == "partner")) { popUpLink("",link,strFact); // If we have a link on this fact, set it up. } else { document.write(strFact); // Else just write the fact. } switch(status) { // Include status and highlight it only if it is uncertain. case "": outText = strData; break; case "Proven": outText = ' ' + status + ' ' + strData + ' '; break; case "Probable": outText = ' ' + status + ' ' + strData + ' '; break; case "Conjecture": outText = ' ' + status + ' ' + strData + ' '; break; case "Claimed": outText = ' ' + status + ' ' + strData + ' '; break; default: outText = ' ' + status + ' ' + strData + ' '; break; } document.write(outText); } else { switch(status) { // Always include the status of an primary individual. case "": break; case "Proven": outText = outText + '' + status + ': '; break; case "Probable": outText = outText + '' + status + ': '; break; case "Conjecture": outText = outText + '' + status + ': '; break; case "Claimed": outText = outText + '' + status + ': '; break; default: outText = outText + '' + status + ': '; break; } document.write(outText); if(link != "") { popUpLink("",link,content); // If we have a link on this person, set it up. } else { document.write(content); // Else just write the name. } } // Now work on the citations. if(arguments.length>5){ outText = ' ^{[';
for(i=5; i]}'); } } //listElement /* listOpen(listLvl[,startNum]) opens a new list. If present, startNum specifies the number of the next element. */ function listOpen(listLvl){ var outText = ''; if(arguments.length>1) { outText = ' start=' + arguments[1]; } switch(listLvl) { case 0: outText = ''; break; case 1: outText = ''; break; case 2: outText = ''; break; case 3: outText = ''; break; default: break; } document.write(outText); } /* listClose() closes a list. */ function listClose(){ if(state[0] > 0) { document.write(''); } else { document.write(''); } } /* This builds the link to a popup window with source information in an HTML page. */ function popUpLink(theDataset,theLink,theName){ if(theLink.indexOf("http://") != -1) { document.write('' + theName + ''); } else { document.write('' + theName + ''); } } //popUpLink /* This builds the link to a popup window with source information in a jpg image. */ function popUpImage(theDataset,theLink,theName){ document.write('' + theName + ''); } //popUpImage /* Many pages use tables of data. In order to reduce the volume of HTML code in those pages the following scripts were developed. They can build a table using plain text, a table using quotation style text, and a table with links to other information. */ // *** Table functions. /* This builds a table row for the page title in the transcription. */ function tbTitle(theSpan,theTitle){ document.write('' + theTitle + ''); } //tbTitle /* This builds a table row of column headers in the transcription. Calling parameters are paired: first is the column width, second is the heading. The column width may optionally be a null string - "" - if the width is to be unspecified. */ function tbHead(){ document.write(''); for(i=0; i'; } document.write(th + arguments[i+1] + ''); i = i + 1; } document.write(''); } //tbHead /* This builds a table row in the transcription. Each calling parameter is one element in the row. A second function tbRowQ is provided to allow a specific row to be quoted. */ function tbRow(){ document.write(''); for(i=0; i' + arguments[i] + ''); } document.write(''); } //tbRow function tbRowQ(){ document.write(''); for(i=0; i' + arguments[i] + ''); } document.write(''); } //tbRowQ // *** Table functions with links on the parameters. /* This builds a table row in the transcription with pop up links. The first parameter is the data set, which may be null if the calling location is the same as the pop up target location. After that parameters are in pairs. The second parameter in the pair is a link associated with the previous parameter. A null link parameter creats an entry without a link. A similar function, tbRowPop2L, does the same thing except that all entries after the first are kept in the same table element so that the resulting table is a two column one. */ function tbRowPopL(){ document.write(''); for(i=1; i' + arguments[i] + ''; } document.write('' + arguments[i] + ''); i = i + 1; } document.write(''); } //tbRowPopL function tbRowPop2L(){ document.write(''); sep = ''; for(i=1; i' + arguments[i] + ''; } document.write(sep + arguments[i]); if (i==1) {sep = '' } else { sep = ', '} i = i + 1; } document.write(''); } //tbRowPop2L /* This opens the tables. style FN is a table with framed cells, normal size font. style FS is a table with framed cells, small size font. style FQ is a table with framed cells, normal size font, quotation style. style FSQ is a table with framed cells, small size font, quotation style. style NFQ is a table with unframed cells, normal size font, quotation style. style NFSQ is a table with unframed cells, small size font, quotation style. */ function tbOpen(style){ switch(style) { case "FN": outText = '

'; break; case "FS": outText = '
'; break; case "FQ": outText = '
'; break; case "FSQ": outText = '
'; break; case "NFQ": outText = '
'; break; case "NFSQ": outText = '
'; break; default: outText = '
'; break; } document.write(outText); } //tbOpen /* This builds the last row on each page in the transcription. */ function tbNull(theSpan){ document.write(''); } //tbNull /* This builds the last row on each page in the transcription. */ function tbClose(){ document.write('

'); } //tbClose // ** DEVELOPMENT UTILITY FUNCTIONS function listPropertyNames(obj){ //temporary test function var names = ""; var c2 = 0; names += "Properties, with values, for Object " + obj.tagName + ":\n"; for (var i in obj) { if (obj[i] != null && obj[i] != "" && i != "innerHTML" && i != "innerText" && i != "outerHTML") { if (i != "outerText") { c2 = c2 + 1; names += " .." + i + " = " + obj[i] + ", "; } } if (c2 > 3) { names += "\n"; c2 = 0; } } alert(names); }