/***********************************************
* Fading Scroller- © Dynamic Drive DHTML code library (www.dynamicdrive.com)
* This notice MUST stay intact for legal use
* Visit Dynamic Drive at http://www.dynamicdrive.com/ for full source code
***********************************************/
/*
Fading Scroller - By DynamicDrive.com
for full source code, and usage terms, visit http://www.dynamicdrive.com
This notice MUST stay intact for use
*/
/*
Parts (C) 2004 for Krzysztof (JARY) Jarosinski
Parts (C) 2006-2008 for Adam Bartkowski
*/
var delay = 5000; // set delay between message change (in miliseconds)
var delay2 = 10000;
// Note:
// fadeMaxSteps * fadeStepDelay will be total time in miliseconds of fading effect
var fadeMaxSteps = 40; // number of steps to take to change from colorStart to colorEnd
var fadeStepDelay = 60; // time in miliseconds of a single step

scrollMain = "fscroll";
scrollNr = "fscrollNr";
scrollMaxLoops = 5; // News werden 5 mal automatisch gewechselt, dann nur durch Anklicken von Nummern
var iLoopCnt = 0; // aktuelle Schleifennummer
firstLoop = true;
// true, wenn newContent[0] <- Abschaltung von PATON-Diensten
// false ansonsten
var showFirstNewsLonger = true;

// News-Ticker-Inhalte:
//   newsIndex immer von 0 vorwärts laufend nummerieren!
//   eine Matrixzelle = eine Nachricht, max. 6-7 Textzeilen
//   HTML möglich, Anführungszeichen beachten
//   Kopfzeile (1. Textzeile) mit <b></b> umklammern!
// Beispiel
//   newsContent[newsIndex] = "<b class='newstitle'>Wünsche zu Weihnachten und zum Neuen Jahr 2010!</b><br><br>Das PATON-Team wünscht allen Kunden und Nutzern des PATON ein frohes Weihnachtsfest und einen guten Start in das Jahr 2010.<br><br><span style='font-size: 75%'>Der Internetlieferdienst PATON<span class='patonorange'>line</span> steht Ihnen in gewohnter Weise auch vom 24.12.2009 bis 4.1.2010 zur Verfügung. Für persönliche Besuche bitten wir, die Schließzeit der TU Ilmenau vom 24.12.2009 bis 4.1.2010 zu beachten.</span>";
//   newIndex++;
//
/***********************************************
* Ablauf:
*   1. newsIndex = 0
*   2. die erste Nachricht im News-Ticker --> newsContent[newsIndex] = "hier_kommt_html";
*   3. newsIndex inkrementieren --> newsIndex++;
*   4. nächste Nachricht
*   5. usw. ...
***********************************************/

var newsContent		= new Array();
var newsIndex = 0;

//newsContent[newsIndex] = "<b class='newstitle' style='color: red;'>Zugangsunterbrechungen am Montag 21.11.2011 und Dienstag 22.11.2011!</b><br><br>Aufgrund des Umzugs werden PATON-Webseiten und -Dienste inklusive PATON<span class='patonorange'>line</span> am 21.11. und 22.11. vorübergehend nicht verfügbar sein!<br><br><b style='font-size: smaller'>Wir bitten um Ihr Verständnis - Ihr PATON-Team</b> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp; ";
//newsIndex++;

//newsContent[newsIndex] = "<b class='newstitle'>Auf Wiedersehen PATINFO 2010, willkommen PATINFO 2011!</b><br><br><a href='aktuell/index.php?submenuheader=0'>33. Kolloquium der Technischen Universität Ilmenau über Patentinformation und gewerblichen Rechtsschutz</a> <span style='color: #000000'>findet am 09. und 10. Juni 2011 statt.<br><br><b><i span class='patonorange'>Let&#39s meet</i></b> am 09.06.2011 in Ilmenau!";
//newsIndex++;

//newsContent[newsIndex] = "<b class='newstitle' style='color: red;'>Verzögerungen bei Auslieferung der Patente am Freitag, den 29.10.2010!</b><br><br>Aufgrund von Wartungsarbeiten kann es am Freitag, den 29.10.2010, ab 12:00 Uhr zu Verzögerungen bei der Auslieferung der Patente über den PATON<span class='patonorange'>line</span>-Dienst kommen. Wir bitten dies zu beachten!<br><br>Vielen Dank für Ihr Verständnis - Ihr PATON-Team";
//newsIndex++;

//newsContent[newsIndex] = "<b class='newstitle'><a href='http://www.paton.tu-ilmenau.de/pdf/tdp21.pdf'>21. Tag der Produktinnovationen</a></b><br><br>Wir laden Sie zum 21. Tag der Produktinnovation am 13. November 2010 um 10:00 Uhr herzlich nach Ilmenau ein. <br><br>Thema: Existenzgründung mit technischen Ideen <br><br>Weitere Veranstaltungen des PATON zur Gründerwoche: <a href='http://www.gruenderwoche.de/partner/partnerliste/index.php?id=385&back=1'>www.gruenderwoche.de</a>";
//newsIndex++;

//newsContent[newsIndex] = "<b class='newstitle'>PATINFO 2012</b><br><br><a href='aktuell/index.php?submenuheader=0'>34. Kolloquium der Technischen Universität Ilmenau über Patentinformation und gewerblichen Rechtsschutz</a> <span style='color: #000000'>findet am 14. und 15. Juni 2012 statt.<br><br>Die <a href='javascript: alert(\"Anmeldung startet am 02.01.2012!\");' title='Konferenzmanagementsystem startet am 02.01.2012'>Anmeldung</a> beginnt am <b>02.01.2012</b> und erfolgt &#252;ber das <a href='javascript: alert(\"Anmeldung startet am 02.01.2012!\");' title='Konferenzmanagementsystem startet am 02.01.2012'>Konferenzmanagementsystem der TU Ilmenau</a>.<br><br><b>Begr&#252;&#223;ungsabend</b> findet am <b>13.06.2012</b> statt!<br><b>Workshops</b> finden am <b>14.06.2012 vormittags</b> statt!";
//newsIndex++;

newsContent[newsIndex] = "<b class='newstitle'>PATINFO 2012</b><br><br><a href='http://www.tu-ilmenau.de/paton/patinfo/'>34. Kolloquium der Technischen Universität Ilmenau über Patentinformation und gewerblichen Rechtsschutz</a> <span style='color: #000000'>findet am 14. und 15. Juni 2012 statt.<br><br>Die <a href='https://conferences.tu-ilmenau.de/frontend/index.php?sub=93' title='Anmeldung zur PATINFO2012 im Konferenzsystem der TU Ilmenau ab 02.01.2012'>Anmeldung</a> hat am <b>02.01.2012</b> begonnen und erfolgt &#252;ber das <a href='https://conferences.tu-ilmenau.de/frontend/index.php?sub=93' title='Anmeldung zur PATINFO2012 im Konferenzsystem der TU Ilmenau ab 02.01.2012'>Konferenzsystem der TU Ilmenau</a>.<br><br>Das Konferenzprogramm finden Sie <a href='http://www.tu-ilmenau.de/paton/patinfo/programm/' title='Programm des PATINFO2012'>hier</a>.<br><br><b>Begr&#252;&#223;ungsabend</b> findet am <b>13.06.2012</b> statt (Teilnahme für Konferenzteilnehmer kostenlos)!<br><a href='http://www.paton.tu-ilmenau.de/pdf/PATINFO2012Workshopangebot.pdf'>Workshops</a> finden am <b>14.06.2012 vormittags</b> statt (Teilnahme f&#252;r Konferenzteilnehmer kostenlos)!";
newsIndex++;

newsContent[newsIndex] = "<b class='newstitle'>Umzug der PATON-Webseiten auf einen neuen Server!</b><br><br>In den kommenden Wochen werden die PATON-Webseiten aus der aktuellen Domäne www.paton.tu-ilmenau.de auf den <a href='http://www.tu-ilmenau.de/paton/' title='PATON-Webpräsenz auf dem Webserver der TU Ilmenau'>Webserver der TU Ilmenau</a> umgezogen!<br><br>Bitte aktualisieren Sie Ihre Bookmarks!<br><br><b style='font-size: smaller'>Wir bitten um Ihr Verständnis - Ihr PATON-Team</b>";
newsIndex++;

newsContent[newsIndex] = "<b class='newstitle'>PATON<span class='patonorange'>line</span> in English!</b><br><br><a href='http://www.patonline.tu-ilmenau.de/' title='Order patent full-text documents online (PDF, TIFF, print)'><b>PATON<span class='patonorange'>line</span></b></a> is from now on available in English!<br>Simply go to <a href='http://www.patonline.tu-ilmenau.de/' title='Order patent full-text documents online (PDF, TIFF, print)'><b>PATON<span class='patonorange'>line</span></b></a> and set English as your language using menu option!";
newsIndex++;

newsContent[newsIndex] = "<b class='newstitle'>Aktuelle Seminartermine im PATON</b><br><br>Aktuelle Seminartermine entnehmen Sie bitte der Seite der <a href='http://www.tu-ilmenau.de/paton/patonakademie/seminartermine/' title='PATONakademie | Seminare'>PATONakademie</a>";
newsIndex++;

//newsContent[newsIndex] = "<b class='newstitle'>Aktuelle Seminartermine im PATON</b><br><br><table cellspacing='5' cellpadding='0' border='0' style='vertical-align:text-top;'><tr valign='middle'><td align='left' valign='top'>11.10.2011</td><td align='left' valign='top'><a href='schulung/kurzinfo.php#RuIP'>Regionale und Internationale Patentsysteme</a></td></tr><tr valign='middle'><td align='left' valign='top'>12.10.2011</td><td align='left'><a href='schulung/kurzinfo.php#ReUe'>Rechtsstands- und &#220;berwachungsrecherchen</a></td></tr><tr valign='middle'><td align='left' valign='top'>13.10.2011</td><td align='left' valign='top'><a href='schulung/kurzinfo.php#PzSuG'>Patente zu Software und Gesch&#228;ftsmethoden</a> (halbtags, Vormittag) </td></tr><tr valign='middle'><td align='left' valign='top'>03.-04.11.2011</td><td align='left' valign='top'><a href='schulung/kurzinfo.php#STN'>Recherchieren in STN-Datenbanken<br> Sprache, Strategien, Umgebung</a> (halbtags, Vormittag) </td></tr><tr valign='middle'><td align='left' valign='top'>16.11.2011</td><td align='left' valign='top'><a href='schulung/kurzinfo.php#EinfPatentrecherche'>Einf&#252;hrung in die Patentrecherche</td></tr></table>";
//newsIndex++;

newsContent[newsIndex] = "<b class='newstitle'><a href='http://www.tu-ilmenau.de/paton/recherchesaal/infolotse/'>Der interaktive Info-Lotse - Ihr persönlicher Online-Rechercheberater</a></b><br><br><b>Wer ist das?</b><br><br>Der interaktive <a href='http://www.tu-ilmenau.de/paton/recherchesaal/infolotse/'>Info-Lotse</a> ist ein Dienst, der Ihnen bei eigenen Patent- und Gebrauchsmuster-, sowie Marken- und Geschmacksmusterrecherchen im Internet hilft.<br><br>Bei diesem exklusiven Dienst der Patentinformationszentren treffen Sie sich virtuell im Internet mit dem Rechercheexperten und werden individuell bei Ihrer Recherche begleitet.";
newsIndex++;

//newsContent[newsIndex] = "<b class='newstitle'>Erweiterung des Lieferumfangs in PATON<span class='patonorange'>line</span>!</b><br><br>Ab sofort ist es möglich, <b>Patente aus allen Ländern, u.a. maschinelle Übersetzung für CN,KR,IN (intellektuelle Übersetzung auf Anfrage)</b> in PATON<span class='patonorange'>line</span> abzufragen!<br>Falls die von Ihnen eingegebenen Patentnummern bei uns nicht Online verfügbar sind, werden wir sie innerhalb weniger Tage aus anderen Quellen besorgen. Sie bekommen eine E-Mail sobald die Dokumente zum Download bereit liegen!";
//newsIndex++;

newsContent[newsIndex] = "<b class='newstitle'>&#220;berwachungen von Fachgebieten, Mitbewerbern oder auf Erteilung</b><br><br><a href='http://www.tu-ilmenau.de/paton/recherche-und-analyse/ueberwachungsrecherchen/'><b>Neu:</b> Ausgabe der Ergebnisse im Excel-Format mit Verlinkung zu Espacenet und USPTO!</a>";
newsIndex++;

//newsContent[newsIndex] = "<b class='newstitle'>SIGNO-KMU-Patentaktion:</b><br><br><a href='insti/index.php?submenuheader=7'>F&#246;rdermittel f&#252;r Patente und Gebrauchsmuster</a><br><br>Mit der KMU-Patentaktion werden kleine und mittlere Unternehmen der gewerblichen Wirtschaft und der freien naturwissenschaftlich-technischen Berufe bei der erstmaligen Sicherung ihrer Ergebnisse aus Forschung und Entwicklung (FuE) durch gewerbliche Schutzrechte und bei deren Nutzung unterstützt und angeleitet.";

//newsIndex++;

//newsContent[newsIndex] = "<b class='newstitle'>Spezialangebot für Studenten:</b><br><br><a href='pdf/Faltblatt_markus-stud_2007.pdf'>Auf der Suche nach dem richtigen Praktikums- oder Arbeitsplatz?</a><br><br>Unsere Lösung:<br>Die <b>Firmenprofil- und Branchenanalyse-Datenbank Markus</b> in unserem Recherchesaal LB4019!";

var idxCurrentNews	= 0;

var DOM2=document.getElementById;

// scroll unterbrechen
function setLongDelay() {
	clearTimeout(currentScroller);
}
// scroll neu starten
function resetLongDelay() {
	currentScroller = setTimeout("changeContent()",1000);
}

function getNewsNr(newsC,currentIndex) {
 	var i = 0;
 	strNumbers = '';
 	for (i in newsC) {
   		idx = parseInt(i) + 1;
   		if (i==currentIndex)
   			strNumbers += '<b>'+ idx +'</b> ';
   		else
   		{
   			s = getHint(newsC[i]);
   			strNumbers += ' <a href="JavaScript:getNewsContent('+i+')" title="'+s+'">'+idx+'</a> ';
   		}
 	}
 	return (strNumbers);
}

function getHint(content) {
	var iBR = content.indexOf('<br>');
	var ret = '';
	if (iBR<0) {
		ret = removeHTML(content).replace(':','');
	} else if (iBR==0) {
		iBR = content.indexOf('<br>',1);
		if (iBR<0)
			iBR = content.length;
		ret =  removeHTML(content.substr(0,iBR)).replace(':','');
	} else {
		ret =  removeHTML(content.substr(0,iBR)).replace(':','');
	}

	return ret;
}

function removeHTML(content){
	return (content.replace(/<\/?[^>]+(>|$)/g, ""));
}

function getNewsContent(newIndex) {
	clearTimeout(currentScroller);
	var s = '';
	var d = delay;
	idxCurrentNews=newIndex;
	if (idxCurrentNews>=newsContent.length)
		idxCurrentNews=0;
	if (DOM2) {
		document.getElementById(scrollMain).style.color=colorStart;
		s = newsContent[idxCurrentNews]
		d = (s.length<100 ? delay : delay2)
		if (showFirstNewsLonger)
			d = (idxCurrentNews==0 ? 12000 : d)
		document.getElementById(scrollMain).innerHTML = s
		document.getElementById(scrollNr).innerHTML=getNewsNr(newsContent,idxCurrentNews);
		objLink=document.getElementById(scrollMain).getElementsByTagName("A");
		if (fadeLinks)
			fadeLinkColor(objLink);
		fadeColor();
	}
	idxCurrentNews++
	currentScroller = setTimeout("changeContent()",d)
}

// *********************************************** //
// No need to edit below this line                 //
// *********************************************** //

var fadeScheme	= 0; 	// set 0 to fade text color from (white to red), 1 for (red to white)
var fadeLinks	= 1;  	// should links inside scroller content also fade like text? 0 for no, 1 for yes.
var colorHex 	= (fadeScheme==0)? 255 : 0
var colorStart 	= (fadeScheme==0)? "rgb(255,255,255)" : "rgb(255,0,0)" //#FFFACD
var colorEnd 	= (fadeScheme==0)? "rgb(255,0,0)" : "rgb(255,255,255)"

/* Rafael Raposo edited function */
// function to change content
function changeContent(){
	var s = '';
	var d = delay;
	if (iLoopCnt<=(scrollMaxLoops * newsContent.length)) {
		if (idxCurrentNews>=newsContent.length)
			idxCurrentNews=0
			iLoopCnt++;
		if (DOM2) {
			document.getElementById(scrollMain).style.color=colorStart
			s = newsContent[idxCurrentNews]
			d = (s.length<200 ? delay : delay2)
			if (showFirstNewsLonger)
				d = (idxCurrentNews==0 ? 12000 : d)
			document.getElementById(scrollMain).innerHTML = s
			document.getElementById(scrollNr).innerHTML=getNewsNr(newsContent,idxCurrentNews)
			objLink=document.getElementById(scrollMain).getElementsByTagName("A")
			fadeColor()
			if (fadeLinks)
				fadeLinkColor(objLink)
		}
		idxCurrentNews++
		currentScroller = setTimeout("changeContent()",d)
	}
}

fadeFrameCnt = 25;

function fadeLinkColor(obj){
	if (obj.length>0){
		for (i=0;i<obj.length;i++)
			obj[i].style.color = "rgb(255,"+colorHex+","+colorHex+")";
	}
}

function fadeColor() {
	if (fadeFrameCnt>0) {
		colorHex=(fadeScheme==0)? colorHex-12 : colorHex+12 // increase or decrease color value depd on fadeScheme
		document.getElementById(scrollMain).style.color="rgb("+colorHex+","+colorHex+","+colorHex+")"; // Set color value.
		if (fadeLinks)
			fadeLinkColor(objLink)
		fadeFrameCnt--;
		setTimeout("fadeColor()",20);
	} else {
		fadeFrameCnt = 25;
		colorHex = (fadeScheme==0)? 255 : 0
	}
}

function resetChanger() {
	idxCurrentNews	= 0
}

window.onload=changeContent

window.onunload=resetChanger