//--Copyright © 1999-2003, A Plus Consultants, LLC, All Rights Reserved. (020216)
//--No part of this script may be used for any purpose without prior
//--written permission. Contact richard@aplusconsultants.com.
function aBreakApart(sString,sDelim){var aArray=new Array();var iPos=-1;var sStr=sString;while(sStr.indexOf(sDelim)>=0){iPos=sStr.indexOf(sDelim);if(iPos==0){aArray[aArray.length]="";sStr=sStr.substr(iPos+1);}else{aArray[aArray.length]=sStr.substr(0,iPos);sStr=sStr.substr(iPos+1);}}if(sStr.length>0){aArray[aArray.length]=sStr;sStr="";}return aArray;}
function ClearValues(oElement,sList){var arFields=sList.split(",");var ii=0;var oForm=oElement.form;for(ii=0; ii<arFields.length; ii++){if(oForm[arFields[ii]].type=="select-one"){oForm[arFields[ii]].selectedIndex=0;}else{oForm[arFields[ii]].value="";}}}
function LTrim(str){var sWS=new String(" \t\n\r\xA0");var s=new String(str);if(sWS.indexOf(s.charAt(0))!=-1){var j=0,i=s.length;while(j<i&&sWS.indexOf(s.charAt(j))!=-1){j++;}s=s.substring(j,i);}return s;}
function RTrim(str){var sWS=new String(" \t\n\r\xA0");var s=new String(str);if(sWS.indexOf(s.charAt(s.length-1))!=-1){var i=s.length-1;while(i>=0&&sWS.indexOf(s.charAt(i))!=-1){i--;}s=s.substring(0,i+1);}return s;}
function sTimeToFloat(sTime){var aTime=new Array();
var reTime=new RegExp("([0-1]?[0-9]+):?([0-5]?[0-9]?) ?([AaPp]m?)","i");aTime[0]=sTime.replace(reTime,"$1");aTime[1]=sTime.replace(reTime,"$2");aTime[2]=sTime.replace(reTime,"$3");if(aTime[1]==""){aTime[1]="0";}
if(aTime[0]=="12"){if(aTime[2].indexOf("a")==0){aTime[0]=parseInt(aTime[0])-12;}}
else{if(aTime[2].indexOf("p")==0){aTime[0]=parseInt(aTime[0])+12;}}return parseInt(aTime[0])+(aTime[1] / 60);}
function sWhoseThere(bHex,sTo,sSubject,sBody,sBCC,sTokens){var ii=0;var reAmp=/\&/gi;var reSp=/\s/gi;var reQ=/\?/gi;var sOrigBody=sBody;if(arguments.length<5){sBCC="";}if(arguments.length<4){sBody="";}if(arguments.length<3){sSubject="";}
if(bHex){bHex=confirm("For users of Microsoft Outlook e-mail software, click 'OK', otherwise click 'Cancel'.");}var iMax=bHex ? 325 : 400;var sRepl=bHex ? "%20" : "+";if(sTokens){var arPairs=sTokens.split("^");for(ii=0; ii<arPairs.length; ii++){var arPair=arPairs[ii].split("|");var reNew=new RegExp("v"+arPair[0]+"v","g");sBody=sBody.replace(reNew,arPair[1]);sOrigBody=sOrigBody.replace(reNew,arPair[1]);sSubject=sSubject.replace(reNew,arPair[1]);}}sTo=sTo.replace(reSp,"@");sBCC=sBCC.replace(reSp,"@");sSubject=sSubject.replace(reSp,sRepl);var iLen=sSubject.length+sBody.length;sBody=sBody.replace(reSp,sRepl);sBody=sBody.replace(reQ,"%3F");sBody=sBody.replace(reAmp,"%26");if(iLen>iMax){var bOk=CreateMsg(sOrigBody);
alert("The prepared message has been shortened due to a limitation of your e-mail software.\n\nSee the browser window that just opened for the suggested message.");var iTrim=iLen-iMax;var iTrim=(iLen>iMax)? iMax : iLen;sBody=sBody.substr(0,iTrim);}return "mailto:"+sTo+"?Subject="+sSubject+"&Body="+sBody;for(ii=10; ii<document.links.length-10; ii++){alert(document.links[ii].href);}return "";}
function CreateMsg(sSuggested){var w;var re=new RegExp("\%0D","gi");
w=window.open("MsgPop.htm","msg","height=240,scrollbars=yes,width=480");var d=w.document;sSuggested=sSuggested.replace(re,"<br>");d.write("<html>");
d.write("<head><title>Suggested Message from Main Street Central</title></head>");d.write("<body>");
d.write("<p style='color: Blue'>You may copy the message below into your e-mail program window and then close this window.");
d.write("<p style='color: Red'>Note that if you close this window before completing the paste, Windows may erase the copied text from your clipboard.");d.write("<h2 align='Center'>Suggested Message</h2>");d.write("<p>"+sSuggested+"</p>");
d.write("<p align='Center'><a href='JavaScript:window.close()'>Close Window</a></p>");d.write("</body>");d.write("</html>");d.close;return true;}