function makeAlink(td,trenntext,linktext,linkziel) {
//erstellt einen neuen Hauptmenü-Link und hängt ihn in den Dokumentenbaum ein
//Eingabe: 	td=Elementknoten der Tabellenzelle, in die er kommt
//		trenntext= String, der hinter den Link gepackt wird
//		linktext= String, der Linktext
//		linkziel= String, das Ziel des Links

	//zuerst: die Knoten und das Attribut erzeugen
	var trenntext = document.createTextNode(trenntext);	//Knoten für den Trenntext erzeugen
	var link1 = document.createElement("a");		//Knoten für Link erzeugen
	var class1=document.createAttribute("class");		//Attribut, für css-Stil erzeugen
	var link1text = document.createTextNode(linktext);	//Textknoten für den Linktext erzeugen

	//Die Eigenschaften für die Knoten setzen
	class1.nodeValue = "meinblau";				//dem Attribut sagen, welchen Stil es repräsentiert
	link1.setAttributeNode(class1);				//Dem Link-Konten das Stil-Attribut zuweisen
	link1.href=linkziel; 					//Dem Linkknoten das Linkziel zuweisen
	link1.appendChild(link1text);				//Dem Linkknoten den Linktext anhängen

	//Link und Trenntext in die Zelle "einhängen"
	td.appendChild(link1);					//Der Tabellenzelle den Link anhängen
	td.appendChild(trenntext);				//Der Tabellenzelle den Trenntext anhängen

}



function clearAllSubMenus(){   //klappe alle Submenüs ein

//fells es schon ein ausgeklapptes Submenü gibt: finde und lösche es!
if(document.getElementById("submenu")) document.getElementById("tab").getElementsByTagName("tbody")[0].removeChild(document.getElementById("submenu"));

}



function showSubMenu(option) {

//fells es schon ein ausgeklapptes Submenü gibt: finde und lösche es!
if(document.getElementById("submenu")) document.getElementById("tab").getElementsByTagName("tbody")[0].removeChild(document.getElementById("submenu"));

//konstruiere den Zeilen- und die beiden Zellen-Knoten
var neuTr= document.createElement("tr");		//neue Zeile
var neuTd1= document.createElement("td");		//neue Spalte
var neuTd2= document.createElement("td");		//noch ne neue Spalte (da kommen die Punkte rein)

//je nachdem welches Submenü ausgeklappt werden soll, hänge die Link- und Trennzeilen-Knoten in den Zellenknoten ein
switch (option) {
  case "nav_institut":
	makeAlink(neuTd2," | ","Anschrift","institut/anschrift.shtml");
	makeAlink(neuTd2," | ","Wegbeschreibung","institut/wegbeschreibung.shtml");
	makeAlink(neuTd2," | ","Mitarbeiter","institut/mitarbeiter.shtml");
	makeAlink(neuTd2,"","Einrichtungen","institut/einrichtungen.shtml");
    	break;

  case "nav_lehre":
	makeAlink(neuTd2," | ","Lehrveranstaltungen","lehre/lehrveranstaltungen.shtml");
	makeAlink(neuTd2," | ","Exkursionen","lehre/exkursionen.shtml");
	makeAlink(neuTd2," | ","Studienplan","lehre/studienplan.shtml");
	makeAlink(neuTd2," | ","Prüfung","lehre/pruefung.shtml");
	makeAlink(neuTd2," | ","Nebenfächer","lehre/nebenfach.shtml");
	makeAlink(neuTd2,"","Richtlinien","lehre/richtlinien.shtml");
	break;
  case "nav_publikationen":
	makeAlink(neuTd2," | ","Stuttgarter Geographische Studien","publikationen/sgs.shtml");
	makeAlink(neuTd2," | ","Physische Geographie","publikationen/pub_phys.shtml");
	makeAlink(neuTd2," | ","Wirtschafts- und Kulturgeographie","publikationen/pub_anth.shtml");
	makeAlink(neuTd2," | ","Diskussionsbeiträge zur Anthropogeographie","publikationen/diskussionsbeitraege_anth.shtml");
	makeAlink(neuTd2,"","Diplom- und Abschlußarbeiten","publikationen/abschlussarbeiten.shtml");
	break;
  case "nav_forschung":
	makeAlink(neuTd2," | ","Physische Geographie","forschung/projekte_phys.shtml");
	makeAlink(neuTd2,"","Wirtschafts- und Kulturgeographie","forschung/projekte_anth.shtml");
	break;
  default:
    	break;
}

//Namen der neuen Zeile setzen (damit sie gelöscht=eingeklappt werden kann)
var id=document.createAttribute("id");
id.nodeValue = "submenu";
neuTr.setAttributeNode(id);

//ineinander schachteln (Zellenknoten in Zeilenknoten hängen)
neuTr.appendChild(neuTd1);
neuTr.appendChild(neuTd2);

//Zeilenknoten in Baum einhängen. Achtung: funktioniert nicht beim letzten Eintrag (wegen nextSibling)!
document.getElementById("tab").getElementsByTagName("tbody")[0].insertBefore(neuTr, document.getElementById(option).nextSibling);


};

function Go(x)
{
 if(x == "nothing")
 {
   document.forms[0].reset();
   document.forms[0].elements[0].blur();
   return;
 }
 else if(x == "end")
   top.location.href = parent.frames[1].location;
 else
 {
   parent.frames[1].location.href = x;
   document.forms[0].reset();
   document.forms[0].elements[0].blur();
 }
}

function PageChanger(page) {  document.location=page;}