<html>
<head>
<title>Events in Month - RJM Programming - August, 2023</title>
<style>
.dayb {
color: white;
background-color: red;
padding: 5 5 5 5;
}

.selday {
margin-left: 8px;
}
</style>
<script type=text/javascript>
var nts=1970;
var presm=location.search.split('caltitle=')[1] ? eval(decodeURIComponent(location.search.split('caltitle=')[1].split('&')[0]).split(',')[0].replace('January','1').replace('February','2').replace('March','3').replace('April','4').replace('May','5').replace('June','6').replace('July','7').replace('August','8').replace('September','9').replace('October','10').replace('November','11').replace('December','12')) : -1;
var presy=location.search.split('caltitle=')[1] ? eval(decodeURIComponent(location.search.split('caltitle=')[1].split('&')[0]).split(',')[1].trim()) : -1970;
var tazo=location.search.split('ta01.00=')[1] ? (decodeURIComponent(location.search.split('ta01.00=')[1].split('&')[0])) : ' ';
var sm=location.search.split('smonth=')[1] ? eval(decodeURIComponent(location.search.split('smonth=')[1].split('&')[0])) : Math.abs(presm);
var sy=location.search.split('syear=')[1] ? eval(decodeURIComponent(location.search.split('syear=')[1].split('&')[0])) : Math.abs(presy);
var im=0;
var adate=null;
var dotw=['Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday'];
var dinm=[31,29,31,30,31,30,31,31,30,31,30,31];
var trtemplate='';
var iijj=1;
var initialdb='MON';


function fixitzero(iniis, imin, imax) {
var minustwo=-2;
var premin='0';
if (('' + imin).length == 4) {
minustwo=-4;
premin='';
}
if (iniis.value.length == 1) {
if ((premin + iniis.value) >= (premin + imin).slice(minustwo) && (premin + iniis.value) <= (premin + imax).slice(minustwo)) {
iniis.value=premin + iniis.value;
} else {
iniis.value=(premin + imin).slice(-4);
}
} else if (iniis.value.length == eval(0 - eval('' + minustwo))) {
if (('' + iniis.value) >= (premin + imin).slice(minustwo) && ('' + iniis.value) <= (premin + imax).slice(minustwo)) {
iniis.value='' + iniis.value;
} else {
iniis.value=(premin + imin).slice(-4);
}
} else {
iniis.value=(premin + imin).slice(-4);
}
}

function sepit(ospel) {
var sptbls=('' + ospel.id).replace('sp','');
document.getElementById('i' + sptbls).value='' + ospel.innerHTML;
}

function selit(osel) {
var newtr='', lfor='sel', xinc=0.01, startnum=0.00, zero='0', tbls='';
var stbls=('' + osel.id).replace('sel','');
tbls=('' + osel.id).replace('sel','').split('.')[0];
if (osel.value == 'Clone') {
startnum=('' + osel.id).replace('sel','');
if (('' + osel.id).replace('sel','').substring(0,1) == '0') { zero='0'; startnum=startnum.substring(1); }
startnum=startnum.replace('.00', '.01');
while (document.getElementById('sel' + zero + eval('' + startnum))) {
startnum='' + eval(xinc + eval('' + startnum)).toPrecision(2);
while (startnum.split('.')[1].length < 2) {
startnum+='0';
}
}
newtr=trtemplate.replace(/\.00/g, '.' + startnum.split('.')[1]).replace(/01\./g, tbls + '.');
document.getElementById('tbl' + tbls).innerHTML+=newtr.replace(initialdb, osel.getAttribute('data-dow')).replace(initialdb, osel.getAttribute('data-dow')).replace('>1<', '>' + tbls.replace(/^0/g,'') + '<');
osel.value='';
} else if (osel.value == '') {
document.getElementById('sp' + stbls).innerHTML='';
document.getElementById('i' + stbls).value='';
} else if (osel.value == '...') {
document.getElementById('sp' + stbls).innerHTML='...';
document.getElementById('i' + stbls).value='...';
osel.style.visibility='hidden';
} else if (osel.value == '&...') {
document.getElementById('sp' + stbls).innerHTML='& ';
document.getElementById('i' + stbls).value='&';
osel.style.visibility='hidden';
}
}


function sinit() {
var dec='';
if (sm != 0) { document.getElementById('smonth').value=('0' + sm).slice(-2); }
if (sy != 1970) { if (sy < 100) { sy+=2000; } document.getElementById('syear').value=(' ' + sy).slice(-4); }
if (document.URL.indexOf('?') != -1) {
adate=new Date(sy, eval(-1 + sm), 1, 0, 0, 0, 0);
//alert('' + dotw[adate.getDay()]);
var idow=adate.getDay();
var jdow=idow;
initialdb=dotw[idow].toUpperCase().substring(0,3);
trtemplate='<tr id=tr01.00><td style=width:20%;><span id=sone01.00 class=dow>' + dotw[adate.getDay()].toUpperCase().substring(0,3) + '</span><br><br><span id=stwo01.00 class=dayb>1<span onblur=sepit(this); contenteditable=true id=sp01.00></span><input type=hidden id=i01.00 name=i01.00 value=""></input><select data-dow=' + dotw[adate.getDay()].toUpperCase().substring(0,3) + ' class=selday onchange="selit(this);" id=sel01.00><option id=opt01.00 value=""></option><option title="All such in month (ie. weekly)" value="...">...</option><option title="And ..." value="&...">&</option><option value=Clone>Clone</option></select></span></td><td class=blurb title="What is on?" id=tb01.00><textarea name=ta01.00 id=ta01.00 style="width:100%;height=100%;" placeholder="Blurb ..." class=tablurb></textarea></td></tr>';
if (sm == 2 && eval(sy % 4) != 0) { dinm[1]=28; }
dec='<h2>Events in ' + document.getElementById('smonth').innerHTML.split('"' + ('0' + sm).slice(-2) + '">')[1].split('<')[0] + ', ' + document.getElementById('syear').value + '&nbsp;<input type=submit value=Remember style=background-color:lightgreen;></input><br><input type=hidden name=caltitle value="' + document.getElementById('smonth').innerHTML.split('"' + ('0' + sm).slice(-2) + '">')[1].split('<')[0] + ', ' + document.getElementById('syear').value + '"></input><table cellpadding=20 cellspacing=20 id=t' + sy + ('0' + sm).slice(-2) + '><table style=width:80%; border=5 data-next="01" id=tbl01>' + trtemplate + '</table></table>';
for (iijj=2; iijj<=dinm[eval(-1 + sm)]; iijj++) {
jdow++;
if (jdow >= 7) { jdow=0; }
if (dotw[jdow].toUpperCase().substring(0,3) == 'SUN') { dec+='<table><tr><td><hr></td><td><hr></td></tr></table>'; }
dec+='<table style=width:80%; border=5 id=tbl' + ('0' + iijj).slice(-2) + '>' + trtemplate.replace(/01\.00/g, ('0' + iijj).slice(-2) + '.00').replace(/\>1\</g, '>' + ('' + iijj) + '<').replace(dotw[idow].toUpperCase().substring(0,3), dotw[jdow].toUpperCase().substring(0,3)).replace(dotw[idow].toUpperCase().substring(0,3), dotw[jdow].toUpperCase().substring(0,3)) + '</table></table>';
}
if (tazo != ' ' && 2 == 2) {
document.title='Events in Month ' + (location.search.split('caltitle=')[1] ? (decodeURIComponent(location.search.split('caltitle=')[1].split('&')[0]).trim()).replace(/\+/g,' ') : '');
document.getElementById('eventcalendar').innerHTML='<form action=./events_in_month.html method=GET>' + dec + '<br><br><input type=submit value=Remember style=background-color:lightgreen;></input></form><br><br><br><hr><br><br>';
var findeq='.01', aone=1, jk=1, lastchange='';
var thingos=document.URL.split(findeq + '=');
var args=document.URL.split('&');
var thislabel='', thisval='';
while (thingos.length > 1) {
for (jk=1; jk<thingos.length; jk++) {
if (lastchange != 'sel' + thingos[eval(-1 + jk)].slice(-2) + '.00') {
document.getElementById('sel' + thingos[eval(-1 + jk)].slice(-2) + '.00').value='Clone';
selit(document.getElementById('sel' + thingos[eval(-1 + jk)].slice(-2) + '.00'));
lastchange='sel' + thingos[eval(-1 + jk)].slice(-2) + '.00';
}
}
aone++;
findeq='.' + ('0' + aone).slice(-2);
thingos=document.URL.split(findeq + '=');
}
for (jk=1; jk<args.length; jk++) {
thislabel=args[jk].split('=')[0];
thisval=decodeURIComponent(args[jk].split('=')[1]).replace(/\ \;/g,' ').replace(/\&\;/g,'&');
if (thislabel.substring(0,1) == 'i') {
document.getElementById(thislabel.replace('i', 'opt')).innerText=thisval.replace(/\+$/g, ' ');
document.getElementById(thislabel).value=thisval.replace(/\+$/g, ' ');
} else {
document.getElementById(thislabel).value=thisval.replace(/\+/g, ' ').replace(/\ \ \ /g, ' + ');
}
}
}
}
if (dec != '' && tazo == ' ') {
document.getElementById('eventcalendar').innerHTML='<form action=./events_in_month.html method=GET>' + dec + '<br><br><input type=submit value=Remember style=background-color:lightgreen;></input></form><br><br><br><hr><br><br>';
}
}

</script>
</head>
<body onload=sinit();>
<h1>Events in Month</h1>
<h3>RJM Programming - August, 2023</h3>
<div id=eventcalendar></div>

<form action=./events_in_month.html method=GET>
<select style=display:inline-block; id="smonth" name="smonth" title="Month"><option value="01">January</option><option value="02">February</option><option value="03">March</option><option value="04">April</option><option value="05">May</option><option value="06">June</option><option value="07">July</option><option value="08">August</option><option value="09">September</option><option value="10">October</option><option value="11">November</option><option value="12">December</option></select>/<input style=display:inline-block;min-width:55px; onblur=fixitzero(this,this.value,nts); onchange=fixitzero(this,this.value,nts); step=1 min=1970 type="number" id="syear" name="syear" value="1970" title="Year"></input>
<input type=submit id=mysub value="Ready to Fill in Events ..." style='background-color:yellow;'></input>
</form>
</body>
</html>