var verse;
function FindVerse(fullverse){
var thecolon = fullverse.indexOf(":");
var theblank = thecolon-3;
if (fullverse.charAt(theblank-1) == " ") theblank=theblank-2;
if (fullverse.charAt(theblank) == " ") theblank=theblank-1;
var book = fullverse.substr(0,theblank+1)
var chapno = fullverse.substr(theblank+1,thecolon-theblank-1);
var startverse = fullverse.substr(thecolon+1,fullverse.length-thecolon);
var thehyphen_comma = startverse.indexOf("-") + startverse.indexOf(",");
var endverse;
if (thehyphen_comma == -2)endverse = startverse; // one verse only
else {
   endverse = startverse.substr(thehyphen_comma+2,startverse.length-thehyphen_comma-2);
   startverse = startverse.substr(0,thehyphen_comma+1);
}         
CloseVerse();
verse = window.open("","RSV","width=600,height=500,scrollbars,resizable");
verse.document.write('<HTML><HEAD>');
verse.document.write('<TITLE>RSV Bible -- Citation</TITLE></HEAD><BODY>');
verse.document.write('<h2>RSV Bible -- Citation</h2>');
verse.document.write('<FORM METHOD="GET" ACTION="http://www.hti.umich.edu/cgi/r/rsv/rsv-idx">');
verse.document.write('<INPUT TYPE="hidden" NAME="type" VALUE="citation">');
verse.document.write('<table border><tr><th>Book</th><th>Chapter</th><th>Starting verse</th><th>Ending Verse</th></tr>');
verse.document.write('<tr><td><INPUT NAME="book" SIZE=20 value="'+book+'"></td><td align="right"><INPUT NAME="chapno" SIZE=5 value='+chapno+'> </td><td align="right"><INPUT NAME="startverse" SIZE=5 value='+startverse+'> </td><td align="right"><INPUT NAME="endverse" value='+endverse+' SIZE=5> </td></tr>');
verse.document.write('</table>');
verse.document.write('<font color="red">Press the button to</font> <INPUT TYPE="submit" VALUE="DISPLAY VERSE">');
verse.document.write('</form><HR>');
verse.document.write('</BODY>');
verse.document.write('</HTML>');
verse.window.close;
}
function CloseVerse()		{
	if (verse && !verse.closed) verse.close();
}
//****************************************
var excerpt;
function FindExcerpt(fullexcerpt){
if (fullexcerpt.indexOf("http:") == -1) {
	fullexcerpt = "http://www.peshertechnique.infinitesoulutions.com/" + fullexcerpt;
}
CloseExcerpt();
excerpt = window.open(fullexcerpt,"EXCERPT","width=800,height=1000,scrollbars,resizable");
excerpt.window.close;
}
function CloseExcerpt()		{
	if (excerpt && !excerpt.closed) excerpt.close();
}
//****************************************
var excerpt1
function FindDef(fullexcerpt1){
if (fullexcerpt1.indexOf("http:") == -1) {
	fullexcerpt1 = "http://www.peshertechnique.infinitesoulutions.com/" + fullexcerpt1;
}
CloseExcerpt1();
excerpt1 = window.open(fullexcerpt1,"DEFINITION","width=800,height=200,scrollbars,resizable");
excerpt1.window.close;
}
function CloseExcerpt1()		{
	if (excerpt1 && !excerpt1.closed) excerpt1.close();
}
//****************************************
function CloseAll(){
CloseVerse();
CloseExcerpt();
CloseExcerpt1();
}
