//   ************************************************************************************
// This Script is copyrighted by Jeff Margenau, Design Solutions, http://xmlo.com/design
// Use is illegal without express permission from Jeff Margenau at jeff@xmlo.com
//   ************************************************************************************
var eventm=new Array
var quick=true
var ex=''
var oute=''
var monthout=''
var O2=''
var stopper=1
var startDay=0;
var oldxcombo=''
var stylewanted='Weekly'
now=new Date()
var lastday='None Selected'
var se=new Array();
var startDayx=dd;
var startDatex=new Date();
var columnx
var co=0
var donalready
var datecounterx
var LSch
var evstx
var evendx
var gotevents
var finish=1
var todaymessage=''
var one_day=1000*60*60*24
var calswitch=0
var dw
var dd
var column



var sunempty='<p>The library building is closed on Sundays.  On our Web site you still can:</p><ul><li style="font-size:'+fontsize+'px"><a href="https://www.sharelibraries.info/uhtbin/cgisirsi/qe06nBVRUR/FTATKINSON/154680199/29/1169/X/3" target="renew">renew your items</a></li><li style="font-size:'+fontsize+'px"><a href="http://www.sharelibraries.info/uhtbin/cgisirsi/x/0/0/57/49?user_id=FTATKINSONWEB">search for and place holds on books, dvds, videos, cds and more</a></li><li style="font-size:'+fontsize+'px"><a href="http://www.fortlibrary.org/webtemplate.php?linkname=bkltrs">get great book ideas for cooking, relaxing, learning...</a></li><li style="font-size:'+fontsize+'px"><a href="http://www.fortlibrary.org/webtemplate.php?linkname=databases">use our databases for research</a></li><li style="font-size:'+fontsize+'px"><a href="http://www.fortlibrary.org/form_library_card_application.php">start your library card application</a></li><li style="font-size:'+fontsize+'px"><a href="http://www.fortlibrary.org/calendar.php">discover what is coming up at the library</a></li></ul>'
var agendaempty='<p><b>Open agenda</b><br /><span class="notes" style="margin-left:0px;color:#666">We are available!  Stop in and <a href="/webtemplate.php?linkname=libserv" title="Go to Library Services page...">see what we have to offer</a>.</span></p>'


function datex(xdate){
se=new Array();se1=new Array()
se0=xdate.split(" ")
se1=se0[0].split("-")
se2=se0[1].split(":");se1[1]--
LSch=new Date(se1[0],se1[1],se1[2],se2[0],se2[1],se2[2])
se[0]=LSch.getDay()
se[1]=LSch.getHours()
se[2]=LSch.getMinutes()
se[2]=se[2]<10?"0"+se[2]:se[2]
TTF=se[1]>11?"pm":"am"
se[1]=se[1]>12?(se[1]-12):se[1]
se[1]=se[1]==0?12:se[1]
se[3]=LSch.getFullYear()
se[4]=LSch.getMonth()
se[5]=LSch.getDate()
return LSch,se,TTF
}


function Nxq(ele){
document.getElementById(ele).innerHTML=Calendar(mm,yy)
}

function Nx2(x){
if(x!=0){O2='<h1>Help for the Calendar Viewer</h1><table width="95%"><tr><td class="bw" style="padding:10px;font-size:11px;background:#E7E7AF;margin:10px"><p>There are several calendar views available including printable version.  Use the "Daily", "Weekly", and "Monthly" buttons to select the caldendar type.  Use the small calendar navigator to select dates.</p><ol><li><b>Daily:</b> Click the "<strong>Daily</strong>" button to view daily calendars.</li><li><b>Weekly:</b> Click the "<strong>Weekly</strong>" button above to view weekly calendars.</li><li><b>Monthly:</b> Click the "<strong>Monthly</strong>" button above to view monthly calendars.</li><li><b>Print:</b> <a href="calendarp.php" target="printer"> Click the "<strong>Print</strong>" button to create printable calendars</a>.</li></ol></td></tr></table><hr /><br />'}
if(stopper==0)s(1,'calday')
document.getElementById("calday").innerHTML=O2
}

function tense() {
ftp='today:'
var Ca=new Date()
var Ca2=new Date()
Ca2.setFullYear(yy)
Ca2.setMonth(mm)
Ca2.setDate(dd)
if(Ca>Ca2){ftp='the past date of:'}
if(Ca<Ca2){ftp='the future date of:'}
}

function changeDay(co,day,month,year) {
dw=co;
dd = day;
mm = month;
yy = year;
startDayx=dd
startDatex.setMonth(mm)
startDatex.setDate(dd)
startDatex.setFullYear(yy)
}

function changed(t,z) {
KK=new Date()
KK.setDate(1)
KK.setFullYear(yy)
KK.setMonth(mm)
KK.setDate(dd)
KK.setHours(0)
KK.setMinutes(0)
KK.setSeconds(0)
if(t==9){KK.setFullYear(yy+z);KK.setMonth(1);KK.setDate(1)} // 9= Year
else if(t==0){KK.setDate(dd+z)} // 0= Day 
else if(t==1){KK.setDate(dd+7*z)} // 1 = Week
else if(t==2){KK.setMonth(mm+z);KK.setDate(1);} // 2= Month
yy=KK.getFullYear()
mm=KK.getMonth()
dd=KK.getDate()
dw=KK.getDay()
//co=dw
startDayx=dd
startDatex.setMonth(mm)
startDatex.setDate(dd)
startDatex.setFullYear(yy)

changeDay(dw,dd,mm,yy)

}

function Calendar(Month,Year) {
gotevents=0
donealready=0
datecounterx=0
var output = '';

for (j=0; j <= 32; j++) {eventm[j]=''}
for (j=0; j <= eventz.length-1; j++) {
if(eventz[j][0]!='')datex(eventz[j][0])
if(yy==se[3] && mm==se[4]){eventm[se[5]]='1'}}

//eventz.sort()
output += '<form><table style="color:#fff;" cellpadding="0" cellspacing="0"><tr><td align="left"><input type="button" onclick="this.blur();changed(2,-1);Nxq(&#39;cal&#39;);" value="<<" class="bwb" style="color:#fff;background:#de6000;" /></td><td align="center" style="color:#000"><font class="nmt"><b>'+names[mm]+' '+yy+'</b></td><td align="right"><input type="button" onclick="this.blur();changed(2,1);Nxq(&#39;cal&#39;);" value=">>" class="bwb" style="color:#fff;background:#de6000;" / ></td></tr><tr><td align="center" colspan="3">';
firstDay = new Date(Year,Month,1);
startDay = firstDay.getDay();
if (((Year % 4 == 0) && (Year % 100 != 0)) || (Year % 400 == 0)){days[1] = 29} 
else{days[1] = 28}

output += '<table border="0" bgcolor="white" bordercolordark="teal" bordercolorlight="#C0C0C0" cellspacing="1" cellpadding="0"><tr bgcolor="#de6000">';

for (i=0; i<7; i++)
output += '<td width="25" align="center" valign="middle"><span class="nmw" style="color:#fff;background:#de6000;">&nbsp;<b>' + d0w[i] +'</b>&nbsp;</span></td>';

output += '</tr><tr align="center" valign="middle">';
var column = 0;
var nextMonth = Month + 1;var nxtyr=Year
if (nextMonth == 12) {nextMonth = 0;nxtyr=Year+1}
var lastMonth = Month - 1;var lstyr=Year
if (lastMonth == -1) {lastMonth = 11;lstyr=Year-1}
bluecount=0
// monthly output for last days of month before the current month
for (i=0; i<startDay; i++, column++)
output += '<td width="25" aFlign="center" height="25"><input type="button" class="bw" style="width:25px;height:25px;background:transparent" value="'+(days[lastMonth]-startDay+i+1)+'" onclick="dd=i;firsttime=&#39;no&#39;;this.blur();changeDay('+column+',' + (days[lastMonth]-startDay+i+1) + ','+lastMonth+','+lstyr+');s(1,&#39;calday&#39;);s(0,&#39;cal_list_view&#39;);columnx='+column+';startDayx='+i+';Nxq(&#39;cal&#39;);" /></td>';
// change mouseovers below to onclicks to change behavior THIS WAS DONE PROGRAMATICALLY
for (i=1; i<=days[Month]; i++, column++) {if(eventm[i]==''){bgc="whitesmoke"}else{bgc="#E7E7AF"};
if((i>=startDayx && i<startDayx+7 && stylewanted=="Weekly")|| stylewanted=="Monthly"){bgc="#b4ddf4";bluecount++}
if(mmm==mm && yyy==yy &&  i==ddd){bgc="gold"
if(i>=startDayx && i<startDayx+7)bluecount++
}
if(i!=dd){
// month output for days that are not today
output += '<td align="middle" width="25" height="25">' + '<input type="button" class="bw" style="width:25px;height:25px;background-color:'+bgc+'" onclick="dd=i;stopper=0;firsttime=&#39;no&#39;;this.blur();changeDay('+column+',' + i + ','+Month+','+Year+');s(1,&#39;calday&#39;);s(0,&#39;cal_list_view&#39;);columnx='+column+';startDayx='+i+';Nxq(&#39;cal&#39;);"  value="'+i+'" /></td>'}
// onmouseover="changeDay('+column+',' + i + ','+Month+','+Year+');" 
else{
if(mmm!=mm || yyy!=yy || ddd!=dd){bgc2="#b4ddf4";bluecount++}else{
// monthly output for today
bgc2="gold"};
output += '<td width="25" height="25">' + '<input type="button" class="bw" style="width:25px;height:25px;background-color:'+bgc2+'" value="'+i+'" onclick="stopper=0;firsttime=&#39;no&#39;;this.blur();changeDay('+column+',' + i + ','+Month+','+Year+');columnx='+column+';startDayx='+i+';s(1,&#39;calday&#39;);s(0,&#39;cal_list_view&#39;);Nxq(&#39;cal&#39;)" /></td>'};
if (column == 6) {
output += '</tr><tr align="center" valign="middle">';
column = -1;
}
}

if (column > 0) {
// monthy output for days after the end of this particular month
for (i=1; column<7; i++, column++){
if((i<= 8-bluecount) && stylewanted=="Weekly"){bgc="#b4ddf4"}else{bgc="transparent"}
output +=  '<td align="middle" width="25" height="25"><input type="button" class="bw" style="width:25px;height:25px;background:'+bgc+'" value="'+i+'" onclick="dd=i;this.blur();changeDay('+column+',' + i + ','+nextMonth+','+nxtyr+');s(1,&#39;calday&#39;);s(0,&#39;cal_list_view&#39;);columnx='+column+';startDayx='+i+';Nxq(&#39;cal&#39;);" /></td>'
}
}
output += '</tr></table></td></tr></table></form>'



var xch1
var xch2
var NextDate
//alert(bluecount)
O2='';
bg='#ffffff'
NextDate= new Date()
NextDate.setMonth(0)
NextDate.setDate(1)
xch1= new Date()
xch1.setMonth(0)
xch1.setDate(1)
xch2= new Date()
xch2.setMonth(0)
xch2.setDate(1)


NextDate.setFullYear(yy)
NextDate.setMonth(mm)
NextDate.setDate(dd)
NextDate.setHours(0)
NextDate.setMinutes(0)
NextDate.setSeconds(0)
EventDateend=0

O2+='<table cellpadding="3" cellspacing="2" width="100%">'

if (stylewanted=='Daily'){
todaymessage=(mm==mmm && dd==ddd && yy==yyy)?'Today at the Library - ':''
exbt=''
O2+='<tr><td valign="top"><a href="javascript:this.blur();changed(0,-1);Nxq(&#39;cal&#39;)">Previous</a>&nbsp;&nbsp;|&nbsp;&nbsp;<a href="javascript:this.blur();changed(0,1);Nxq(&#39;cal&#39;);">Next</a><br /><h4 style="margin-top:10px;padding:0;">'+todaymessage+dow2[dw]+' '+names[mm]+' '+dd+', '+yy+'</h4></td><td style="vertical-align:top;text-align:right"><a href="/rss/calendar.xml" target="Dwightcal" title="Subscribe to the Dwight Foster Public Library Daily Calendar RSS Feed">Subscribe to the Daily Calendar <img alt="rssgraphic (1K)" src="images/rssgraphic.gif" height="19" width="19" style="padding-right:5px;padding-left:5px;border:none;vertical-align:middle" /></a></td></tr>'
xch1.setFullYear(yy)
xch1.setMonth(mm)
xch1.setDate(dd)
xch1.setHours(0)
xch1.setMinutes(0)
xch1.setSeconds(0)
xch2.setFullYear(yy)
xch2.setMonth(mm)
xch2.setDate(dd+1)
xch2.setHours(0)
xch2.setMinutes(0)
xch2.setSeconds(0)
xch2.setSeconds(xch2.getSeconds()-1)

}
else if (stylewanted=='Weekly'){
exbt=''
xch1.setFullYear(yy)
xch1.setMonth(mm)
xch1.setDate(dd)
xch1.setHours(0)
xch1.setMinutes(0)
xch1.setSeconds(0)
xch2.setFullYear(yy)
xch2.setMonth(mm)
xch2.setDate(dd)
xch2.setDate(xch2.getDate()+7)
xch2.setHours(0)
xch2.setMinutes(0)
xch2.setSeconds(0)
xch2.setSeconds(xch2.getSeconds()-1)
dw=xch1.getDay()

O2+='<tr><td><a href="javascript:this.blur();changed(1,-1);Nxq(&#39;cal&#39;);">Previous</a>&nbsp;&nbsp;|&nbsp;&nbsp;<a href="javascript:this.blur();changed(1,1);Nxq(&#39;cal&#39;);">Next</a></td><td style="text-align:right"><h4>Weekly  Calendar Starting '+dow2[dw]+' '+names[mm]+' '+dd+', '+yy+'</h4></td><td align="right"></td></tr>'
}

else if (stylewanted=='Monthly'){
xch1.setFullYear(yy)
xch1.setMonth(mm)
xch1.setDate(1)
xch1.setHours(0)
xch1.setMinutes(0)
xch1.setSeconds(0)
xch2.setFullYear(yy)
xch2.setMonth(mm+1)
xch2.setDate(1)
xch2.setHours(0)
xch2.setMinutes(0)
xch2.setSeconds(0)
xch2.setSeconds(xch2.getSeconds()-1)
O2+='<tr><td><a href="javascript:this.blur();changed(2,-1);Nxq(&#39;cal&#39;);">Previous</a>&nbsp;&nbsp;|&nbsp;&nbsp;<a href="javascript:this.blur();changed(2,1);Nxq(&#39;cal&#39;);">Next</a></td><td style="text-align:right"><h4>Monthly Calendar for '+names[mm]+' '+yy+'</h4></td><td align="right"></td></tr>'
//dd=1;startDayx=1;
}
//else if (stylewanted=='Yearly'){
//firstt=0
//xcombo=NextDate.getMonth()
//xch1= new Date()
//xch1.setMonth(0)
//xch1.setDate(1)
//xch1.setHours(0)
//xch1.setMinutes(0)
//xch1.setSeconds(0)
//xch2= new Date()
//xch2.setMonth(0)
//xch2.setDate(1)
//xch2.setHours(0)
//xch2.setMinutes(0)
//xch2.setSeconds(0)
//xch2.setFullYear(xch2.getFullYear()+1)
//xch2.setSeconds(xch2.getSeconds()-1)
//mm=1;dd=1;startDayx=1;
//}

exb=' (EventDate.getDate()==xch1.getDate() && EventDate.getMonth()==xch1.getMonth() && EventDate.getFullYear()==xch1.getFullYear()) || (EventDate > xch1 && EventDate < xch2)'
didmonth=0
previousdateloop=dd
oldxcombo=NextDate.getMonth()

for (j=0; j <= eventz.length-1; j++) {
if(eventz[j][0]!=''){datex(eventz[j][0]);EventDate=LSch}
if(eval(exb)){
etex=''
eventtype=typ[eventz[j][3]]+'<br />'
if(eventtype=='General<br />')eventtype=''
if(eventtype=='Closed<br />')eventtype=''
shotime=se[1]+':'+se[2]+' '+TTF+' ';
if(se[2]=='00' && se[1]=='12' && TTF=='am'){
if (eventz[j][3]!=6 && eventtype=='' && typ[eventz[j][3]]!='Closed')etex='All day event'
if (eventtype!='')etex=''
shotime=eventtype+etex
}
room='';
if (eventz[j][6]!='')room=' in the '+eventz[j][6]
apptime=eventz[j][5]
if (apptime==' to 12:00 am')apptime=' ';



NextDate2=NextDate

while(EventDate>=NextDate2){
if(EventDate.getDate()!=NextDate.getDate()){
exbtx='<td class="bw" valign="top" align="center" width="120"><span style="font-size:13px;">'+dow2[NextDate.getDay()]+'</span><br /><span style="font-size:36px">'+NextDate.getDate()+'</span></td>'

if(xch1.getMonth() != NextDate.getMonth() && stylewanted=="Weekly" && didmonth==0){
O2+='<tr><td colspan="2" style="text-align:right"><h4>'+names[EventDate.getMonth()]+' '+EventDate.getFullYear()+'</h4></td></tr>'
didmonth=1}

//xcombo=NextDate.getMonth()
//if(xcombo!=oldxcombo && stylewanted=='Yearly'){O2+='<tr><td colspan="2" style="text-align:right"><h4>'+names[EventDate.getMonth()]+' '+EventDate.getFullYear()+' Yearly Calendar</h4></td></tr>';}
//oldxcombo=xcombo

if(NextDate.getDay()==0){calemptymessagex=sunempty}else{calemptymessagex=agendaempty}
O2+='<tr bgcolor="#f5f5f5">'+exbtx+'<td align="left">'+calemptymessagex+'</td></tr>'
datecounterx++
}
NextDate2.setDate(NextDate2.getDate()+1)
}
NextDate3=new Date()
NextDate3.setDate(1)
NextDate3.setFullYear(se[3])
NextDate3.setMonth(se[4])

if(xch1.getMonth() != NextDate3.getMonth() && stylewanted=="Weekly" && didmonth==0){O2+='<tr><td colspan="2" style="text-align:right"><h4>'+names[EventDate.getMonth()]+' '+EventDate.getFullYear()+'</h4></td></tr>';didmonth=1}

if(eventz[j][3]==7 || eventz[j][5]==' to 12:00 am' || eventz[j][5]=='')NextDate.setDate(NextDate.getDate()+1)

dateloop=se[5]
//xcombo=NextDate.getMonth()
//if(stylewanted=='Yearly' && (xcombo!=oldxcombo || firstt==0)){Oextra='<tr><td colspan="2" style="text-align:right"><h4>'+names[NextDate.getMonth()]+' '+NextDate.getFullYear()+' Yearly CalendarXXX</h4></td></tr>';firstt=1;O2+=Oextra}
//oldxcombo=xcombo

if(stylewanted!='Daily' && EventDate.getDate()!=donealready){
exbtx='<td class="bw" valign="top" align="center" width="120"><span style="font-size:13px;">'+dow2[EventDate.getDay()]+'</span><br /><span style="font-size:36px">'+EventDate.getDate()+'</span></td>';
if(bg=="#E7E7AF"){bg="#ffffff"}else{bg="#E7E7AF"}
O2+='<tr bgcolor="'+bg+'">'+exbtx+'<td align="left">'
datecounterx++
}
else if(EventDate.getDate()!=donealready){ondate=se[5];O2+='<tr><td colspan="2">'}


donealready=se[5]
lastdayx=se[0]
gotevents=1
// THIS LINE PRODUCES ALL EVENT INFO except for open agendas and Sundays
if(eventz[j][3]!=7){O2+='<p><b>'+eventz[j][1]+'</b><br /><span class="notes" style="margin-left:0px;color:#666">'+shotime+apptime+room+'</span><br />'+''+eventz[j][2]+'</p>';
datex(eventz[j+1][0])
testdate=se[5]
if(testdate!=EventDate.getDate() && stylewanted!='Daily')O2+='</td></tr>';
}
else{
O2+='<p><b>'+eventz[j][1]+'</b><br />The library is open from '+shotime+apptime+'. </p>';
datex(eventz[j+1][0])
testdate=se[5]
if(testdate!=EventDate.getDate() && stylewanted!='Daily')O2+='</td></tr>';
}
EventDateend=EventDate
previousdateloop=dateloop
}
}
// END OF ALL EVENTS FOUND

if(dw==0){calemptymessage=sunempty}else{calemptymessage=agendaempty}
if(stylewanted=='Daily' && gotevents!=1){O2+='<tr><td colspan="2" align="left"><p>'+calemptymessage+'</p></td></tr>'}



// BEGIN of test for dates requested with no events after the last date with events found
if(stylewanted!="Daily"){finish=1
if(stylewanted=='Monthly'){finish=days[mm]}else if(stylewanted=='Weekly'){finish=7}
PreDate=NextDate
oldmm=mm
PreDate.setDate(PreDate.getDate()-1)
if(donealready==0)donealready=dd
diffe=finish-datecounterx
if(diffe > 0){
for (jx=1; jx <= diffe; jx++) {
PreDate.setDate(PreDate.getDate()+1)
newmm=PreDate.getMonth()
exbtx='<td class="bw" valign="top" align="center" width="120"><span style="font-size:13px;">'+dow2[PreDate.getDay()]+'</span><br /><span style="font-size:36px">'+PreDate.getDate()+'</span></td>'

if(newmm!=oldmm && stylewanted=="Weekly" && didmonth==0){
O2+='<tr><td colspan="2" style="text-align:right"><h4>'+names[PreDate.getMonth()]+' '+PreDate.getFullYear()+'</h4></td></tr>'
oldmm=newmm}

// this needs to test the first previous date's .getDay()  need date from st
if(PreDate.getDay()==0){calemptymessagex=sunempty}else{calemptymessagex=agendaempty}
O2+='<tr bgcolor="#f5f5f5">'+exbtx+'<td align="left">'+calemptymessagex+'</td></tr>'
} // end of jx loop
} // end of diffe test
} // END of TEST FOR DATES REQUESTED after events


O2+='</table><hr><br />'
if(stopper==0)Nx2(0)
lastday=O2
datecounterx=0

if(printable==1)output='' 
return output;

}