var imagepath='';
var slidepath='';
var pagepath='';
//================================================================
//	DOCUMENT.WRITE
//================================================================
function dw(str) { document.write(str); }
function dwr(str) { document.write(str+'<br>'); }
function drw(str) { document.write('<br>'+str); }
function rep(str) { dw(' <b style="background-color:#ffaa77">&nbsp;'+str+' replaced&nbsp;</b> '); }
function cwr(str) { dw('<div>&nbsp;'+str+'&nbsp;<div>'); }
//================================================================
//	SEND AND GET PARAMETERS
//================================================================
var sel=0,mod='';
//----------------------------------------------------------------
function getpar(par){ try {
 	par=par.replace(/[\[]/,"\\\[").replace(/[\]]/,"\\\]");  
	var regexS= "[\\?&]"+par+"=([^&#]*)";  
	var regex= new RegExp(regexS);  
	var results= regex.exec(window.location.href);  
	if (results==null) ret=''; else ret=unescape(results[1]);
	ret=ret.replace(/\+/g," ");  
	return ret;
} catch(err) { dwr('getpar--'+err.description); }}
//================================================================
//	DATE
//================================================================
var date=new Date();
var dd=date.getDate();
var mm=date.getMonth()+1;
var yyyy=date.getFullYear();
if (dd<10) { dd="0"+dd; }
if (mm<10) { mm="0"+mm; }
var MonthName=new Array('','January','February','March','April','May','June',
	'July','August','September','October','November','December');
var mnam=new Array('','januari','februari','mars','april','maj','juni',
	'juli','augusti','september','oktober','november','december');
var dnam=new Array('sön','mån','tis','ons','tors','fre','lör','sön');
//----------------------------------------------------------------
function montxt(mon) { return mnam[mon]; }
function daytxt(day) { return dnam[day]+'dag'; }
function dagensdatum() { return dd+' '+montxt(parseInt(mm))+' '+yyyy; }
//----------------------------------------------------------------
function day_name(ddd,mmm,yyy) {
	var dtxt=ddd+" "+MonthName[mmm]+", "+yyy;
	var thisday = new Date(eval('"'+dtxt+'"'));
	var dayname = daytxt(thisday.getDay());
	return dayname;
}
//----------------------------------------------------------------
function date_number(ddd) {
	var d=ddd.split('-');
	var ret=Number(d[0])*366+Number(d[1])*31+Number(d[2])*1;
	return ret;
}
//----------------------------------------------------------------
var today=date_number(yyyy+'-'+mm+'-'+dd);
//================================================================
//	SYNTAX HELP
//================================================================
function gri(txt) { return '<font color="#007700"><i>'+txt+'</i></font>'; }
function blb(txt) { return '<font color="#0000FF"><b>'+txt+'</b></font>'; }
function reb(txt) { return '<font color="#FF0000"><b>'+txt+'</b></font>'; }
//----------------------------------------------------------------
function syntaxhelp() {
	dw('<ul>');
	dw('<li>'+blb('&lt;img src="'+imagepath+'">'));
//	dw('&nbsp; &nbsp;'+blb('[[img:]]'));

	dw('<li>'+blb('&lt;a target="_new" href="http://">&lt;/a>'));
//	dw('&nbsp; &nbsp;'+blb('[[http://]] |]'));

	dw('<li>'+blb('&lt;a href="mailto:">&lt;/a>'));
//	dw('&nbsp; &nbsp;'+blb('[[mailto:]] |]'));


	dw('<li>'+blb('&lt;font color="#">&lt;b>&lt;/b>&lt;/font>'));

	dw('<li>'+blb('&lt;p>'));
	dw('&nbsp; &nbsp;'+blb('&lt;br>'));
	dw('&nbsp; &nbsp;'+blb('&lt;b>&lt;/b>'));
	dw('&nbsp; &nbsp;'+blb('&lt;i>&lt;/i>'));

	dw('<li>'+blb('[[coor:lat=&lon=]| |]'));
	dw('</ul>');
}
//================================================================
//	DECODE
//================================================================
function code_links(par) { 
	par=par.replace(/\[\[img:/g,"<img align=\"right\" src=\"./images/");
	par=par.replace(/\[\[http/g,"<a target=\"_new\" href=\"http");
	par=par.replace(/\[\[mailto:/g,"<a target=\"_new\" href=\"mailto:");
	par=par.replace(/\[\[coor:/g,"<a target=\"_new\" href=\"http://wikimapia.org/#");
	par=par.replace(/\]\|/g,"&z=12&l=0&m=m&v=1\">");
	par=par.replace(/\]\]/g,"\">");
	par=par.replace(/\|\]/g,"</a>");
	return par;
}
//----------------------------------------------------------------
function coor(val) {
	var gg=Math.floor(val);
	var mm=Math.floor((val-gg)*60);
	var ss=Math.floor((val-gg-mm/60)*3600);
	return gg+'°'+mm+'’'+ss+'"';
}
//----------------------------------------------------------------
function map_coor(lat,lon) {
	var ret='';
	ret+='<br><a target="_new" href="http://wikimapia.org/#lat='+lat+'&lon='+lon+'&z=15&m=m&v=1">';
	ret+='Karta</a>';
	ret+='<small><b>';
	ret+=' - GPS: ';
	ret+='<font color="#ff0000">';
	ret+=coor(lat)+'N , '+coor(lon)+'O';
	ret+='</font>';
	ret+='</b></small>';
	return ret;
}
//================================================================
//	BUTTONS
//================================================================
function button_open(add) { 
	return '<table class="fmmenu" border="0" cellspacing="2" cellpadding="1" '+add+'><tr>'; }
function button_row() { return '</tr><tr>'; }
function button_close() { return '</tr></table>'; }
//----------------------------------------------------------------
function button_title(txt) {
	var ret='';
	ret+='<td>';
	ret+='<div style="position:relative; left:0px">';
	ret+=txt;
	ret+='</div>';
	ret+='</td>';
	return ret;
}
//----------------------------------------------------------------
function button_href(col,url,tar,txt) {
	var ret='';
	ret+='<td';
	if (col==1) { ret+=' bgcolor="#A0522D"'; }
	if (col==2) { ret+=' bgcolor="#D2691E"'; }
	if (col==3) { ret+=' bgcolor="#CD853F"'; }
	ret+='>';
	ret+='<a href="'+url+'" target="'+tar+'"';
	ret+=' style="color:#FFFF00; text-decoration:none;"';
	ret+='>&nbsp;'+txt+'&nbsp;</a>';
	ret+='</td>';
	return ret;
}
//----------------------------------------------------------------
function button_single(url,txt) {
	var ret='';
	ret+=button_open(); 
	ret+=button_row();
	ret+=button_href(1,url,'',txt);
	ret+=button_close();	
	return ret;
}
//================================================================
//	KALENDER
//================================================================
var fda='',tda='',fnc='',tit='',aty=1,arr='',log='',img='',ali='',add='';
var pre='',pro='',pla='',map='',lat='',lon='',vag='';
var kon='',tel='',mai='',url='',pag='',sou='';
var knr=0; var train='';
//----------------------------------------------------------------
function kal_reset() {
	fda=''; // från datum
	tda=''; // till datum
	tit=''; // Korttitel namn och plats
	aty=1 ; // 1:evenemang/2:kurs/3:kurs och evenemang
	img=''; // namn bild 1
	ali="right"; // align bild 1
	add="height=80"; // tilläggsparametrar bild 1
	pre=''; // Vad? presentationstext evenemang
	pro=''; // När? progr och tider evenmang
	pla=''; // Var? plats /namn adress
	map=''; // Url till karta inklusive http://
	lat=''; // Longitud
	lon=''; // Lattitude
	vag=''; // Hur? vägbeskrivning
	arr=''; // arrangörens namn
	log=''; // namn på logga
	kon=''; // Kontaktperson
	tel=''; // telefon
	mai=''; // e-postadress
	url="http://";  // hemsideadress
	sou=''; // källa
}
//----------------------------------------------------------------
function short_date(dlg,mlg) {
	if (!fda) return '';
	var fddd=Number(fda.substr(8,2));
	var fmmm=Number(fda.substr(5,2));
	var fyyy=Number(fda.substr(0,4));
	var tddd=Number(tda.substr(8,2));
	var tmmm=Number(tda.substr(5,2));
	var tyyy=Number(tda.substr(0,4));

	var fdnam = day_name(fddd,fmmm,fyyy).substr(0,dlg)+' ';
	var sht=fdnam+fddd;

	if (tddd>0) { 
		var tdnam = day_name(tddd,tmmm,tyyy).substr(0,dlg)+' ';
		if (tmmm>fmmm) { sht=sht+'&nbsp;'+montxt(fmmm).substr(0,mlg)+' '; }
		sht=sht+' - '+tdnam+tddd+' '+montxt(tmmm).substr(0,mlg);
		if (tyyy==yyyy) { } else { sht=sht+" "+tyyy; }
	} else {
		sht=sht+"&nbsp;"+montxt(fmmm).substr(0,mlg); 
		if (fyyy==yyyy) { } else { sht=sht+" "+fyyy; }
	}
	return sht;
}
//----------------------------------------------------------------
function short_title() {
	dw(short_date(2,3)+' - '+tit);
	if (pre.length<30) { dw(' ~'); }
}
//----------------------------------------------------------------
function short_title3() {
	var ret='',sht=short_date(10,10);
	ret+='<font color="#770077" size="-1">'+sht+'</font>';
	ret+='<br>';
	ret+='<font color="#777700">'+tit+'</font>';
	return ret;
}
//----------------------------------------------------------------
function dispsub_image(img,adt,adi) {
	if (img) { 
		dw('<table');
		if (adt) dw(' '+adt);
		dw('><tr>');
		dw('<td>&nbsp;</td>');
		dw('<td><img src="'+imagepath+img+'" '+adi+'></td>');
		dw('<td>&nbsp;</td>');
		dw('</tr></table>');
	}
}
//----------------------------------------------------------------
function dispsub_map(txt,url) {
	var ret='';
	if (!txt) txt=url;
	if (url) ret+='<br><a target="_new" href="'+url+'">'+txt+'</a>';
	if (lat && lon) ret+=map_coor(lat,lon);
	return ret;
}
//----------------------------------------------------------------
function dispsub_writerow(txt,val) {
	if (val) {
		dw('<tr bgcolor="#DDEEFF"><td valign="top" width="25%">');
		dw('<b>'+txt+': </b>');
		dw('</td>');
		dw('<td valign="top" width="75%">'); 
		dw(val); 
		dw('</td></tr>'); 
	}
}
//----------------------------------------------------------------
function dispsub_writeinf(txt,nam,tel,mai,url) {
	var inf='';
	if (nam) { inf+='<br>'+nam; }
	if (tel) { inf+='<br>Tel: '+tel; }
	if (mai) { inf+='<br>E-post: <a href="mailto:'+mai+'">'+mai+'</a>' }
	if (url && url.substr(0,4)=='http' && url!='http://') { 
		inf+='<br>Hemsida: <a href="'+url+'" target="_new">'+url+'</a>'; 
	}
	inf=inf.substr(4,inf.length-4);
	dispsub_writerow(txt,inf);
}
//----------------------------------------------------------------
function kal_head() {
	dw('<table border="0" cellspacing="0" cellpadding="0" width="100%"><tr>')
	dw('<td valign="top" class="even2">');
		//---------------- Logga
		if (log) {
			if (adt) at=adt; else if (!ali) var at='align=right'; else var at='align='+ali;
			if (adi) ai=adi; else if (!add) var ai='width=150 '; else var ai='width='+add;
			dispsub_image(log,at,ai); 
		} 
		//---------------- Titel
		dw('<p><b style="font-size:20px; font-family:arial; font-weight:bold;">');
		dw(short_title3());
		dw('</b>');
		dw(' <small>(');
		if (aty==1) { dw('evenemang') }
		if (aty==2) { dw('kurs / läger') }
		if (aty==3) { dw('kortkurs/workshop i evenemang') }
		if (aty==4) { dw('kurs, utspridda tillfällen') }
		if (aty==9) { dw('evenemang längre bort / tidmarkör') }
		dw(')</small></p> ');
	dw('</td>');
	dw('</tr></table>');
}
//----------------------------------------------------------------
function kal_text() {
	if (pre) dw('<p>'+code_links(pre)+'</p>');
	if (pro) dw('<p>'+code_links(pro)+'</p>');
}
//----------------------------------------------------------------
function kal_info() {
	dw('<table border="0" cellspacing="2" cellpadding="2" class="arial13" width="100%"><tr>');
	dw('<td>');
		dispsub_writerow('Plats',pla+dispsub_map('Karta',map));
		dispsub_writerow('Vägbeskrivning',vag);
		dispsub_writerow('Arrangörer',arr);
		dispsub_writeinf('Kontakt och info',kon,tel,mai,url);
		dispsub_writerow('Källa',code_links(sou));
	dw('</td>');
	dw('</tr></table>');
}
//----------------------------------------------------------------
function kal_box() {
	dw('<tr><td>');
	dw('<div class="dispbox">');
	//---------------
	dw('<a name="kinfobox'+knr+'"></a>');
	dw('<table border="1" cellspacing="0" cellpadding="8" frame="box" rules="none" width="100%">');
	dw('<tr><td class="arial13" colspan="2" bgcolor="#FFFFFF">');
		kal_head();
		kal_text();
		kal_info();
	dw('</td></tr>');
	dw('</table>');
	if (sel==knr) dw(button_single(pagepath+'index.html','Stäng'));
	//---------------
	dw('</div><br>');
	dw('</td></tr>');
}
//----------------------------------------------------------------
function kal_link(dnr) {
	dw('<tr><td class=even>');
	dw('<a href="');
		dw(pagepath+'index.html');
		dw('?sel='+knr);
		if (mod) dw('&mod='+mod);
		if (yyy) dw('&yyy='+yyy);
		dw('#kinfobox'+knr);
	dw('" style="');
		dw('color:');
		if (today<=dnr) { dw('#A52A2A'); } else { dw('#2A2AA5'); }
		dw('; text-decoration:none;');
	dw('">');
		if (aty>7) dw('<font size="-2">');
		short_title();
		if (aty>7) dw('</font>');
	dw('</a>');
	dw('</td></tr>');
}
//----------------------------------------------------------------
function kal_kurs() {
	dw('<tr><td class="kurs">');
	dw('<a href="');
		dw(pagepath+'index.html');
		dw('?sel='+knr);
		if (mod && mod!='kal_kurs') dw('&mod='+mod);
		dw('#kinfobox'+knr);
	dw('"');
	dw(' style="color:#FFDD00; text-decoration:none; ');
		if (aty==2) { dw('background-color:#337700;'); }	
		if (aty==3) { dw('background-color:#DD0000;'); }
		if (aty==4) { dw('background-color:#0000DD;'); }
	dw('">');
		dw('&nbsp;&nbsp;');
		dw(short_date(2,3)+' - '+tit);
		dw('&nbsp;&nbsp;');
	dw('</a>');
	dw('</td></tr>');
}
//----------------------------------------------------------------
function kalpres2() {
	var dnr=date_number(fda);
	if (tda) var tnr=date_number(tda); else var tnr=dnr;
	knr++;
	if (knr==sel) { kal_box(); } else
	if (!mod) {
		if ((today<=dnr && dnr<=today+7)) { kal_box(); } else 
		if (today<=dnr) { kal_link(dnr) }
	} else {
		if (mod.substr(0,3)=='kal')  var m=mod; else var m='kal_link';
		switch (m) {
			case 'kal_box':   { kal_box(); break; }
			case 'kal_link':  { kal_link(dnr); break; }
			case 'kal_arkiv': { kal_link(dnr); break; }
			case 'kal_kurs':  { if (1<aty && aty<8 && today<=tnr) 
							{ kal_kurs(); } break; }

		}
	}
	kal_reset();
}
//================================================================
//	NOTISER
//================================================================
var cnt=0,mod='',knr=0,yyy='';
var tit='',dat='',sig='',txt='';
//----------------------------------------------------------------
function notis_reset() {
	tit=''; dat=''; sig=''; txt='';
}
//----------------------------------------------------------------
function notis_disp() {
	//---------------- title
	dw('<b class="even2" style="font-size:20px; font-family:arial; font-weight:bold;">'+
		tit+'</b> <small>('+dat+' - '+sig+')</small>');
	//---------------- text
	dw('<div class="fmtext"><p class="fm">'+code_links(txt)+'&nbsp;');
	//---------------- 
}
//----------------------------------------------------------------
function notis_note() {
	dw('<table border="0" cellspacing="0" cellpadding="0" width="100%">');
	dw('<tr><td class="arial13">');
		notis_disp();
	dw('</td></tr>');
	dw('</table>');
	dw('<hr>');
}
//----------------------------------------------------------------
function notis_box() {
	dw('<a name="ninfobox'+cnt+'"></a>');
	dw('<br><table border="1" cellspacing="0" cellpadding="8" frame="box" rules="none" width="100%">');
	dw('<tr bgcolor="#FFFFFF"><td class="arial13">');
		notis_disp();
	dw('</td></tr>');
	dw('</table>');
	if (sel==cnt) dw(button_single(pagepath+'index.html','Stäng'));
	dw('<br>');
}
//----------------------------------------------------------------
function notis_link() {
	dw(dat+': ');
	dw('<a href="');
		dw(pagepath+'index.html');
		dw('?sel='+cnt);
		dw('#ninfobox'+cnt);
	dw('">');
	dw(tit);
	dwr('</a>');
}
//----------------------------------------------------------------
function notpres2() {
	cnt++;
	if (mod.substr(0,3)=='not') var m=mod; else var m='notis_note';
	if (m=='notis_note' && cnt>20) { return; }
	if (m=='notis_note' && cnt>10) { m='notis_link'; }
	if (cnt==sel) { m='notis_box'; }
	switch (m) {
		case 'notis_box':	{ notis_box(); break; }
		case 'notis_link':	{ notis_link(); break; }
		case 'notis_arkiv':	{ notis_link(); break; }
		case 'notis_note':	{ notis_note(); break; }
	}
	notis_reset();
}
//================================================================
//	MAIN HEAD
//================================================================
function this_news_page(page,height,name) {
	var ret='';
	ret+='<iframe';
	ret+=' name="'+name+'"';
	ret+=' src="'+page+'"';
	ret+=' scrolling="no"';
	ret+=' frameborder="0"';
	ret+=' style="position:relative; top:0px; left:0px;"';
	ret+=' width="100%"';
	ret+=' height="'+height+'"';
	ret+='></iframe>';
	return ret;
}
//----------------------------------------------------------------
function head() {
	var ret='';
	ret+='<div>';
		//----------------
		ret+='<div>';
		ret+='<table align=right cellspacing=0 border=1><tr><td width=280>';
		ret+=this_news_page(slidepath+'bildspel4.htm',150);
		ret+='</td></tr></table>';
		ret+='</div>';
		//----------------
		ret+='<a href="http://www.skanefolk.se">';
		ret+='<img src="'+imagepath+'FmiSlogga7.png"';
		ret+=' alt="Folkmusik i Skåne"';
		ret+=' style="width:400px;" border="0"/></a>';
		//----------------
		ret+='<font color=brown>';
		ret+='<b class="normtitle" style="font-face:arial;">';
		ret+=dagensdatum();
		ret+='</font>';
		//----------------
	ret+='</div>';
	ret+='<p>';
	//----------------
	ret+='<div class="normtitle" style="position:relative; left:3;">';
		ret+='<font color=brown>';
		ret+='Portal för folkmusik i Skåne';
		ret+='</font>';
	ret+='</div>';
	//----------------
	ret+='</font>';
	return ret;
}
//================================================================