function weiterleitung(ele)
	{
		if (ele.href.indexOf('mod_content_links_rdr')<0)
		{
			var neulink = '/'+hauptskript_rw+'mod_content_links_rdr';
			if (ocs_ausgabe!="")
			{
				neulink += '/ocs_ausgabe/'+ocs_ausgabe;
			}
			neulink += '/index.html';
			neulink += '?link=' + urlencoden(escape(ele.href));
			ele.href = neulink;
		}
		else
		{
			return true;
		}
	}

	function global_kalender(modus,whichdomid)
	{
		var kalender;
		kalender = window.open('/' + hauptskript_rw + 'mod_kalendertool/modus/'+modus+'/domid/' + whichdomid + '/ocs_ausgabe/' + ocs_ausgabe + '_noframe/index.html','kalender','left=300,top=200,width=210,height=125,scrollbars=0,toolbar=0,resizable=0');
		kalender.focus();
	}
	
	function urlencoden(meinstring)
	{
		meinstring = SuchenUndErsetzen(meinstring,"%","%25",meinstring);
		meinstring = SuchenUndErsetzen(meinstring," ","%20",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"!","%21",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"\\\"","%22",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"§","%A7",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"$","%24",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"&","%26",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"/","%2F",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"(","%28",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,")","%29",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"[","%5B",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"]","%5D",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"=","%3D",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"?","%3F",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"`","%60",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"^","%5E",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"°","%B0",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"´","%B4",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"€","%80",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"+","%2B",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"~","%7E",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"'","%27",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"#","%23",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,",","%2C",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"-","%2D",meinstring); // Bindestrich
		meinstring = SuchenUndErsetzen(meinstring,"–","%96",meinstring); // Gedankenstrich
		
		meinstring = SuchenUndErsetzen(meinstring,"Ä","%C4",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"ä","%E4",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"À","%C0",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"à","%E0",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"Á","%C1",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"á","%E1",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"Â","%C2",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"â","%E2",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"Ã","%C3",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"ã","%E3",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"È","%C8",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"è","%E8",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"É","%C9",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"é","%E9",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"Ê","%CA",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"ê","%EA",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"Ë","%CB",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"ë","%EB",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"Ì","%CC",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"ì","%EC",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"Í","%CD",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"í","%ED",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"Î","%CE",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"î","%EE",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"Ï","%CF",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"ï","%EF",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"Ö","%D6",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"ö","%F6",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"Ò","%D2",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"ò","%F2",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"Ó","%D3",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"ó","%F3",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"Ô","%D4",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"ô","%F4",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"Õ","%D5",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"õ","%F5",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"Ü","%DC",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"ü","%FC",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"Ù","%D9",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"ù","%F9",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"Ú","%DA",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"ú","%FA",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"Û","%DB",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"û","%FB",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"Æ","%C6",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"æ","%E6",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"Ç","%C7",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"ç","%E7",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"Ñ","%D1",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"ñ","%F1",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"ß","%DF",meinstring);	
	
		meinstring = SuchenUndErsetzen(meinstring,"©","%A9",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"´","%AE",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"®","%B4",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"«","%AB",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"»","%BB",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"€","%80",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"ž","%9E",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"€","%80",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"œ","%9C",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"¡","%A1",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"¿","%BF",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"“","%93",meinstring);
		meinstring = SuchenUndErsetzen(meinstring," ","%A0",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"�","%81",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"¡","%A1",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"‚","%82",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"¢","%A2",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"ƒ","%83",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"£","%A3",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"„","%84",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"¤","%A4",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"…","%85",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"¥","%A5",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"†","%86",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"¦","%A6",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"¦","%A6",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"‡","%87",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"§","%A7",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"�","%90",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"°","%B0",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"ˆ","%88",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"¨","%A8",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"‰","%89",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"©","%A9",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"Š","%8A",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"ª","%AA",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"‹","%8B",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"«","%AB",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"Œ","%8C",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"¬","%AC",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"�","%8D",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"­","%AD",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"�","%8F",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"¯","%AF",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"‘","%91",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"±","%B1",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"’","%92",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"²","%B2",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"“","%93",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"³","%B3",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"”","%94",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"´","%B4",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"•","%95",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"µ","%B5",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"–","%96",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"—","%97",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"¶","%B6",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"˜","%98",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"¸","%B8",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"™","%99",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"¹","%B9",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"š","%9A",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"º","%BA",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"š","%9A",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"›","%9B",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"»","%BB",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"œ","%9C",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"¼","%BC",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"�","%9D",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"¿","%BF",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"ž","%9E",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"¾","%BE",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"Ÿ","%9F",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"§","%A7",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"¶","%B6",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"µ","%B5",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"±","%B1",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"·","%B7",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"¨","%A8",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"º","%BA",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"¯","%AF",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"°","%B0",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"¹","%B9",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"²","%B2",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"³","%B3",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"¼","%BC",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"½","%BD",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"¾","%BE",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"\n","%0D",meinstring);
		meinstring = SuchenUndErsetzen(meinstring,"\r","%0A",meinstring);
		return meinstring;
	}
	
	function SuchenUndErsetzen(QuellText, SuchText, ErsatzText)
	{   
	        if ((QuellText == null) || (SuchText == null))           { return null; }
	        if ((QuellText.length == 0) || (SuchText.length == 0))   { return QuellText; }
	
	        if ((ErsatzText == null) || (ErsatzText.length == 0))    { ErsatzText = ""; }
	
	        var LaengeSuchText = SuchText.length;
	        var LaengeErsatzText = ErsatzText.length;
	        var Pos = QuellText.indexOf(SuchText, 0);
	
	        while (Pos >= 0)
	        {
	            QuellText = QuellText.substring(0, Pos) + ErsatzText + QuellText.substring(Pos + LaengeSuchText);
	            Pos = QuellText.indexOf(SuchText, Pos + LaengeErsatzText);
	        }
	        return QuellText;
	}