function getWeekNr() {
	var today = new Date();
	Year = takeYear(today);
	Month = today.getMonth();
	Day = today.getDate();
	now = Date.UTC(Year,Month,Day+1,0,0,0);
	var Firstday = new Date();
	Firstday.setYear(Year);
	Firstday.setMonth(0);
	Firstday.setDate(1);
	then = Date.UTC(Year,0,1,0,0,0);
	var Compensation = Firstday.getDay();
	if (Compensation > 3) Compensation -= 4;
	else Compensation += 3;
	NumberOfWeek =  Math.round((((now-then)/86400000)+Compensation)/7);
	return NumberOfWeek;
	}

function takeYear(theDate) {
	x = theDate.getYear();
	var y = x % 100;
	y += (y < 38) ? 2000 : 1900;
	return y;
	}

function mod(divisee,base) {
	return Math.round(divisee - (Math.floor(divisee/base)*base));
	}


// originally from nowplaying2.html
// Daylight Savings info
// 2007 03/11 11/04 2nd Sun in March 1st Sun in Nov
// 2008 03/09 11/02
// 2009 03/08 11/01
// 2010 03/14 11/07
var TimezoneOffset = -5  // adjust to always keep tod in CST/CDT zone
var localTime = new Date()
var ms = localTime.getTime() 
      + (localTime.getTimezoneOffset() * 60000)
      + TimezoneOffset * 3600000
today  = new Date(ms)
var da = today.getDay();
var hr = today.getHours();
var mn = today.getMinutes();
var to = (hr * 100) + mn;

// show ending times for each day
var showe = new Array();
showe[0] = new Array(200, 500, 700, 900, 1200, 1500, 1700, 1900, 2100, 2400);
showe[1] = new Array(530,800,900,1100,1200,1300,1400,1500,1700,1800,1900,2200,2300,2400);
showe[2] = new Array(200,530,800,900,1100,1200,1300,1400,1500,1700,1800,1900,2000,2100,2400);
showe[3] = new Array(300,530,800,900,1100,1200,1300,1400,1500,1800,1900,2000,2200,2400);
showe[4] = new Array(300,530,800,900,1100,1200,1300,1400,1500,1700,1800,1900,2000,2200,2400);
showe[5] = new Array(300,530,800,900,1100,1200,1300,1400,1500,1700,1800,2000,2200,2400);
showe[6] = new Array(100,300,600,900,1000,1200,1400,1500,1600,1700,1800,2000,2300,2400);

// show links when they exist - 2007-06-30 updt 2007-08-01
var showl = new Array();
showl['d0i1'] = "progdesc1.html?http://kopn.net/pp/MSR3k_i.php?oa=y";
showl['d0i2'] = "progdesc1.html?http://kopn.net/pp/carol-gri.php?oa=y";
showl['d0i4'] = "progdesc1.html?http://kopn.net/pp/steve-ji.php?oa=y";
showl['d0i5'] = "progdesc1.html?http://kopn.net/pp/steve-di.php?oa=y";
showl['d0i6'] = "progdesc1.html?http://kopn.net/pp/carol-gi.php?oa=y";
showl['d0i7'] = "progdesc1.html?http://kopn.net/pp/leigh-li.php?oa=y";
showl['d0i8'] = "progdesc1.html?http://kopn.net/pp/jane_ai.php?oa=y";
showl['d0i9'] = "progdesc1.html?http://kopn.net/pp/bg-brown-i.php?oa=y";
showl['d1i0'] = "progdesc1.html?http://kopn.net/pp/woody-ai.php?oa=y";
showl['d1i1'] = "mapl.html";
showl['d1i8'] = "progdesc1.html?http://kopn.net/pp/jeff-wi.php?oa=y";
showl['d1i10'] = 'http://www.techradio.info/" target="_blank';
showl['d1i11'] = "progdesc1.html?http://kopn.net/pp/jason-ci.php?oa=y";
showl['d1i12'] = "progdesc1.html?http://216.106.95.194/x/free-range-i.htm";
showl['d1i13'] = "progdesc1.html?http://216.106.95.194/x/mike-hi.htm";
showl['d2i0'] = "progdesc1.html?http://216.106.95.194/x/mike-hi.htm";
showl['d2i2'] = "mapl.html";
showl['d2i11'] = "progdesc1.html?http://216.106.95.194/x/mark-hi.htm";
showl['d3i1'] = "progdesc1.html?http://kopn.net/pp/lee-ri.php?oa=y";
showl['d3i2'] = "mapl.html";
showl['d3i9'] = "progdesc1.html?http://kopn.net/pp/kevin-wi.php?oa=y";
showl['d3i10'] = "progdesc1.html?http://216.106.95.194/x/yourhealth-i.htm";
showl['d3i11'] = "progdesc1.html?http://kopn.net/pp/farmnfiddle-i.php?oa=y";
showl['d4i2'] = "mapl.html";
showl['d4i9'] = "progdesc1.html?http://kopn.net/pp/sean-wi.php?oa=y";
showl['d4i11'] = "progdesc1.html?http://216.106.95.194/x/deb-li.htm";
showl['d4i12'] = "progdesc1.html?http://216.106.95.194/x/wiwv-i.htm";
showl['d4i14'] = "progdesc1.html?http://kopn.net/pp/clint-i.php?oa=y";
showl['d5i2'] = "mapl.html";
showl['d5i11'] = "progdesc1.html?http://kopn.net/pp/PowerPop.php?oa=y";
showl['d5i12'] = "progdesc1.html?http://kopn.net/pp/john-hi.php?oa=y";
showl['d5i13'] = "progdesc1.html?http://kopn.net/pp/BPSi.php?oa=y";
showl['d6i0']  = "progdesc1.html?http://kopn.net/pp/BPSi.php?oa=y";
showl['d6i4'] = "progdesc1.html?http://kopn.net/pp/lahora_latina-i.php?oa=y";
showl['d6i5'] = "progdesc1.html?http://kopn.net/pp/frank-si.php?oa=y";
showl['d6i6'] = "progdesc1.html?http://kopn.net/pp/morgan-mi.php?oa=y";
showl['d6i7-1'] = "progdesc1.html?http://kopn.net/pp/tyree-bi.php?oa=y";
showl['d6i8-0'] = "progdesc1.html?http://kopn.net/pp/rihab_si.php?oa=y";
showl['d6i8-1'] = "progdesc1.html?http://kopn.net/pp/tyree-bi.php?oa=y";
showl['d6i9'] = "progdesc1.html?http://216.106.95.194/x/wynna-fi.htm";
showl['d6i10'] = "progdesc1.html?http://kopn.net/pp/tyree-bi.php?oa=y";
showl['d6i11'] = "progdesc1.html?http://kopn.net/pp/morgan-mi.php?oa=y";
showl['d6i12'] = "progdesc1.html?http://kopn.net/pp/Puyear_i.php?oa=y";

// shows that have music playlists - 2007-07-28
// 1 for SJ page, 2 for MA page 
var showp = new Array();
showp['d1i0'] = 1;   
showp['d1i1'] = 2;
showp['d2i2'] = 1;
showp['d3i2'] = 1;
showp['d4i2'] = 1;
showp['d5i2'] = 1;
showp['d1i8'] = 1;
showp['d1i11'] = 1;
showp['d2i1'] = 1;
showp['d2i2'] = 2;
showp['d2i9'] = 1;
showp['d2i13'] = 1;
showp['d2i14-0'] = 1;
showp['d2i14-1'] = 1;
showp['d3i0'] = 1;
showp['d3i1'] = 1;
showp['d3i2'] = 2;
showp['d3i9'] = 1;
showp['d3i12'] = 1;
showp['d3i13'] = 1;
showp['d4i0'] = 1;
showp['d4i1'] = 1;
showp['d4i2'] = 2;
showp['d4i9'] = 1;
showp['d4i13'] = 1;
showp['d3i14'] = 1;
showp['d5i0'] = 1;
showp['d5i1'] = 1;
showp['d5i2'] = 2;
showp['d5i9-0'] = 1;
showp['d5i9-1'] = 1;
showp['d5i11'] = 1;
showp['d5i12'] = 1;
showp['d5i13'] = 1;
showp['d6i0'] = 1;
showp['d6i1'] = 1;
showp['d6i2'] = 1;
showp['d6i3'] = 1;
showp['d6i4'] = 1;
showp['d6i5'] = 1;
showp['d6i6'] = 1;
showp['d6i7-0'] = 1;
showp['d6i7-1'] = 1;
showp['d6i8-0'] = 1;
showp['d6i8-1'] = 1;
showp['d6i11'] = 1;
showp['d6i12'] = 1;
showp['d6i13'] = 1;
showp['d0i0'] = 1;
showp['d0i1'] = 1;
showp['d0i2'] = 1;
showp['d0i3'] = 1;
showp['d0i4'] = 1;
showp['d0i5'] = 1;
showp['d0i6'] = 1;
showp['d0i7'] = 1;
showp['d0i8'] = 1;
showp['d0i9'] = 1;

// time slots with alternating shows
var showd = new Array();
showd['d2i14'] = 1;
showd['d5i9']  = 1;
showd['d6i7']  = 1;
showd['d6i8']  = 1;

for (i in showe[da]) {
	if (to < showe[da][i]) {
	   var ii = 'd' + da + 'i' + i;
	   break;
	   }
	}

// handle slots that alternate
if (showd[ii]) {
	var wk = getWeekNr();
	var j = mod(wk,2);
	if (j > 0) {ii = ii + "-1"}
	else       {ii = ii + "-0"}
	}
	
iid = ii + ".jpg";
if (showl[ii]) {
	document.write('<a href="' + showl[ii] + '"><img src="' + 'media/KOPN_graphics/' + iid + '"></a>');
	}
else {
	document.write('<img src="' + 'media/KOPN_graphics/' + iid + '">');
	}

switch (showp[ii]) {
case 1: 
	document.write('<br><a href="http://www.kopnmusic.org/KOPNMusic/KOPNOnAir.cfm" target="_Blank">Live On-Air Playlist</a>');
	break;
case 2: 
	document.write('<br><a href="mapl.html">Live On-Air Playlist</a>');
	break;
default: 
	break;
	}