// Copyright 2004 - 2009, Productive Technologies LLC
// 07/23/09 23:35

var OMCUrlRoot="http://OnMyCalendar.com/";
function JSOPCLFcn(D,DNm){OMCAD.ListSADO(D,DNm)};
var OMCAD=new function(){
this.ListSA=function(Pk){var ParKey=((isArg(Pk))?Pk:getUrlArg("PK"));dw("<script type=\"text/javascript\" src=\""+OMCUrlRoot+"CalServices/GetAcct.aspx?PK="+ParKey+"&DS=PCL \"><\/script>");}
this.ListSADO=function(D,DNm){if(D.RetCode!=1)dw("<div style='margin:10px;padding:20px;border:1px solid black;color:#000;background: #FFF;'>We're sorry. The information you trying to access is not available at this time. Please try again later.</div>");else GenHTML(D);}
function GenHTML(D){var L=D.CalList,CurSH,LstSH,CC,MaxRows,Row,SL=CreateSortList(L,D.NonPersList,D.ParAcctSort);LstSH="~";CC=0;MaxRows=SL.length;for(var i=0;i<SL.length;i++){CurSH=SL[i][0].charAt(0).toUpperCase();if(CurSH!=LstSH){LstSH=CurSH;MaxRows=MaxRows+2;}}if(MaxRows>20){MaxRows=Math.floor(MaxRows/2);CC=1;}dw("<style type='text/css'>.OMCSAL1{width:100%;margin:5px 0;font-family:Verdana,Arial;font-size:12px;}.OMCSAL1 td{vertical-align:top;text-align:left;}.OMCSAL2{width:48%;}.OMCSAL5{width:100%;}.OMCSAL6{font-weight:bold;padding-top:14px;}.OMCSAL7{width:10px;}.OMCSAL8{padding-top:5px;border-bottom:1px solid #CCCCCC;}.OMCSAL9{width:60px;padding-top:5px;border-bottom:1px solid #CCCCCC;}</style>");var F2="<td class='OMCSAL2'><table class='OMCSAL5' cellpadding='0' cellspacing='0' border='0' cols='3'>",F3="</table></td>",F4="<td style='width:4%;'>&nbsp;</td>",F5="<tr><td class='OMCSAL6' colspan='3'>";dw("<table class='OMCSAL1' cellpadding='0' cellspacing='0' border='0'><tr>"+F2);LstSH="~";Row=0;for(var i=0;i<SL.length;i++){CurSH=SL[i][0].charAt(0).toUpperCase();if(CC==1&&Row>=MaxRows){dw(F3+F4+F2);if(CurSH==LstSH){dw(F5+LstSH+"&nbsp;&nbsp; (cont)</td></tr>");}CC=2;}if(CurSH!=LstSH){LstSH=CurSH;dw(F5+LstSH+"</td></tr>");Row+=2;}var x=L[SL[i][1]];dw("<tr><td class='OMCSAL7'>&nbsp;</td><td class='OMCSAL8'>"+x[0]+"</td><td class='OMCSAL9'><a href='"+x[1]+"' target='_blank'>website</a></td></tr>");Row++;}if(CC<2){dw(F3+F4+F2);dw("<tr><td>&nbsp;</td></tr>");}dw(F3+"</tr></table>");}
function CreateSortList(L,Leave,SortOpt){var SA=new Array(),name,i,j,k;for(i=0;i<L.length;i++){name=L[i][0].toLowerCase();if(SortOpt==1){for(j=0;j<Leave.length;j++)if(name.indexOf(Leave[j])>=0)break;if(j>=Leave.length&&name.length>0){var t=name.split(/\s/);if(t.length>0)name=t[t.length-1];for(j=0;j<t-1;j++)name+=" "+t[j];}}SA[SA.length]=[name,i];}return SA.sort();}
function dw(S){document.write(S)}
function gid(S){return document.getElementById(S)}
function isArg(v){if(typeof(v)!='undefined'&&v!=null)return true;return false;}
function getUrlArg(Nm){var US=location.search.replace(/&/g,"?").toUpperCase()+"?",x=US.indexOf("?"+Nm.toUpperCase());return(x<0)?"":location.search.substring(x+Nm.length+2,US.indexOf("?",x+1));}}