Lexicon of Special Meanings

function Lexlookup(obj,wrd$,gkt$){ /* Find verse id as link.id*/ var lnk = obj; var lnkloc = 0; var lexdef = ""; var lexdefpos=0; var lnklen = 0; if (obj != "*") { if (wrd$ != "*") { while (lnk.nodeName != "TABLE" ) { lnk = lnk.parentNode /*alert(lnk.nodeName)*/} /*alert(lnk.id) */ lnklen = lnk.id.length }} /* the above section used to bold the current verse if contained in the definition */ found=false; found1=false; found2=false; foundg=false; var jj = 0; var defpos = 0; var defposg = 0; var defposg = 0; var def1 = 0; var def2 = 0; var defg1 = 0; var defg2 = 0; for (i = 0;i 0) { //verify Greek if present if duplicates then must have 2nd column "(1)", etc if ( gkt$ == defg1 || gkt$ == defg2 || gkt$ == defg3) { found = true; foundg = true; } } } if (found) { parent.sup.document.writeln(''); parent.sup.document.writeln('Lexicon of Special Meanings '); parent.sup.document.writeln(''); parent.sup.document.writeln(' '); parent.sup.document.writeln(''); parent.sup.document.writeln(''); parent.sup.document.writeln(''); parent.sup.document.writeln(''); parent.sup.document.writeln(''); lexdef = Lex[5][i]; lexdefpos = lexdef.search(lnk.id); if (lexdefpos > 0) lexdef = lexdef.substr(0,lexdefpos)+""+lnk.id+""+lexdef.substr(lexdefpos+lnklen); parent.sup.document.writeln ('

'+Lex[0][i]+" "+Lex[2][i]+" "+lexdef+'

'); if (Lex[3][i] != "") { // Expanded definition found1 = true for (j = 0;j"+lnk.id+""+lexdef.substr(lexdefpos+lnklen); parent.sup.document.writeln ('Expanded definition:

'+Lex[0][j]+" "+Lex[2][j]+" "+lexdef+'

'); found2 = true; jj = j; } } // end for } // end expanded if (wrd$ != "*"){ if (Lex[4][i] != "" || wrd$ == "*") { // Definition for further study (8 if it is further study wrd parent.sup.document.writeln ('Show definition for further study or '); } } parent.sup.document.writeln ('Show Complete Reference'); parent.sup.document.writeln (' © 2005,2006,2007,2008,2009 Dr. Barbara Thiering '); parent.sup.document.close(); break; } // end found = true } // End For search whole array x$= wrd$; if (x$ != "<<<<") //fix Crucifixion anomaly { if (wrd$ == "*") x$="Further study " if (found == false) { if (foundg == false) alert( x$+" (greek:"+gkt$+") not found") else alert( wrd$+" not found"); }} if (found1==true){ if (found2!=true) alert( "Expanded definition:"+Lex[3][i]+" not found"); } } //**************************************** function Lexlookup1(obj,wrd$,gkt$){ /* Same as Lexlookup but avoid Explorer bug /* Find verse id as link.id*/ var lnk = obj; var lnkloc = 0; var lexdef = ""; var lexdefpos=0; var lnklen = 0; if (obj != "*") { if (wrd$ != "*") { while (lnk.nodeName != "TABLE" ) { lnk = lnk.parentNode /*alert(lnk.nodeName)*/} /*alert(lnk.id) */ lnklen = lnk.id.length }} /* the above section used to bold the current verse if contained in the definition */ found=false; found1=false; found2=false; foundg=false; var jj = 0; var defpos = 0; var defposg = 0; var defposg = 0; var def1 = 0; var def2 = 0; var defg1 = 0; var defg2 = 0; for (i = 0;i 0) { //verify Greek if present if duplicates then must have 2nd column "(1)", etc if ( gkt$ == defg1 || gkt$ == defg2 || gkt$ == defg3) { found = true; gfound = true; } } } if (found) { parent.sup.document.writeln(''); parent.sup.document.writeln('Lexicon of Special Meanings '); parent.sup.document.writeln(''); parent.sup.document.writeln(' '); parent.sup.document.writeln(''); parent.sup.document.writeln(''); parent.sup.document.writeln(''); lexdef = Lex[5][i]; // lexdefpos = lexdef.search(lnk.id); // if (lexdefpos > 0) lexdef = lexdef.substr(0,lexdefpos)+""+lnk.id+""+lexdef.substr(lexdefpos+lnklen); parent.sup.document.writeln ('

'+Lex[0][i]+" "+Lex[2][i]+" "+lexdef+'

'); if (Lex[3][i] != "") { // Expanded definition found1 = true for (j = 0;j -1) lexdef = lexdef.substr(0,lexdefpos)+""+lnk.id+""+lexdef.substr(lexdefpos+lnklen); parent.sup.document.writeln ('Expanded definition:

'+Lex[0][j]+" "+Lex[2][j]+" "+lexdef+'

'); found2 = true; jj = j; } } // end for } // end expanded if (wrd$ != "*"){ if (Lex[4][i] != "" || wrd$ == "*") { // Definition for further study (8 if it is further study wrd parent.sup.document.writeln ('Show definition for further study or '); } } parent.sup.document.writeln ('Show Complete Reference'); parent.sup.document.writeln (' © 2005,2006,2007 Dr. Barbara Thiering '); parent.sup.document.close(); break; } // end found = true } // End For search whole array x$= wrd$; if (wrd$ == "*") x$="Further study " if (found == false) { if (foundg == false) alert( x$+" (greek:"+gkt$+") not found") else alert( wrd$+" not found"); } if (found1==true){ if (found2!=true) alert( "Expanded definition:"+Lex[3][i]+" not found"); } } //**************************************** var def; function Lexlookupwnd(wrdx$){ // like lexlookup, but displays in separate generated window wrd$= wrdx$.substr(0,1).toUpperCase()+wrdx$.substr(1); //make sure first letter is capitalized (will not fix second word in double word) CloseDef(); parent.def= window.open("","Definition","width=800,height=50,scrollbars,resizable"); parent.def.window.close; CloseDef(); parent.def= window.open("","Definition","width=800,height=50,scrollbars,resizable"); parent.def.document.write(''); parent.def.document.write('DEFINITION'); parent.def.document.write(''); parent.def.focus() found=false; found1=false; found2=false; foundg=false; var jj = 0; var defpos = 0; var defposg = 0; var defposg = 0; var def1 = 0; var def2 = 0; var defg1 = 0; var defg2 = 0; for (i = 0;i'+Lex[0][i]+" "+Lex[2][i]+" "+lexdef+'

'); if (Lex[3][i] != "") { // Expanded definition found1 = true for (j = 0;j'+Lex[0][j]+" "+Lex[2][j]+" "+lexdef+'

'); found2 = true; jj = j; } } // end for } // end expanded } // end found = true } // End For search whole array //Search Greek if English not found if (found==false) { wrd$= wrd$.substr(0,1).toLowerCase()+wrd$.substr(1); //make sure first letter is lower case for (i = 0;i'+Lex[0][i]+" "+Lex[2][i]+" "+lexdef+'

'); if (Lex[3][i] != "") { // Expanded definition found1 = true for (j = 0;j'+Lex[0][j]+" "+Lex[2][j]+" "+lexdef+'

'); found2 = true; jj = j; } } // end for } // end expanded break; //Greek is unique } // end found = true } // End For search whole array } // end Greek check if (found == false) parent.def.document.write( wrd$+" not found"); parent.def.document.write(''); parent.def.document.write(''); parent.def.window.close; } function CloseDef() { if (parent.def && !parent.def.closed) parent.def.close(); }