// ****** Kurzform der HTML-Ausgabe
function docw(s) {
  document.write(s);
}
// ****** Kopf- und Menübereich in Seite einfügen
function envibegin(pathlevel,menuname){
docw('<A name="top"></A>');
docw('<div class="headbeginright">&nbsp;</div>');
docw('<div class="headtitleright">&nbsp;</div>');
docw('<div class="headlogo"><xA href="http://tacimedes.de/index.html" target="_top"><img src="http://tacimedes.de/libs/piclo129.jpg" border=0 height=86 width=129></a></div>');
docw('<div class="headbegin">' + document.lastModified + '&nbsp;&nbsp;&nbsp;</div>');
docw('<div class="columnleft">');
docwritemenu(pathlevel,menuname); //in lokaler .js festgelegt
docw('</div>');
docw('<div class="columncontent">'); //es beginnt der eigentliche Content der aufrufenden Datei
docw('<h1 class="main">' + document.title + '</h1>');
}

// ****** Fussbereich in Seite einfügen
function enviend(){
docw('</div>'); //bei Bedarf könnte hier rechte Spalte definiert werden
}  

// ****** Sekundärfenster mit Focus öffnen
function win2(paralink) {
  var wi=window.open(paralink,"Win2");	
  wi.focus();
}

// ****** Öffnet Fenster mit Grafik und Kommentartext, Fenster schließt sich nach 60 Sekunden selbständig
function imgview (paraimg,paratxt,paraaltimg) {
    bilda=new Image();
    bilda.src=(paraaltimg);
    bild=new Image();
    bild.src=(paraimg);
    imgviewwait(paraimg,paratxt,paraaltimg)
}
function imgviewwait(paraimg,paratxt,paraaltimg)  {  
    var breita=bilda.width;
    var hocha=bilda.height;
    var breit=bild.width;
    var hoch=bild.height;
    var breitx=breit
    var hochx=hoch;
    var bemerk="";
    if ((hoch!=0)&&(breit!=0)) {
      // Bild soweit geladen, dass Größe bekannt, falls Bild gar nicht existiert, Alternativimage verwenden
      if ((hoch<48)&&(breit<48)) {
      	bemerk="<br>(Vergrößerung fehlt: nur kleines Bildchen verfügbar)"; breit=breita; breitx=breita; hoch=hocha; hochx=hocha;
        paraimg=paraaltimg;
      }
      if ((hoch<100)||(breit<100))  {bemerk="<br>(nur kleines Bildchen verfügbar)"; hoch+=40; breit+=80; }
      breit+=40;
      hoch+=paratxt.length*160/breit+80; //im Schnitt 160px pro Zeichen
      if ((hoch>720)||(breit>950)) 
        var imgwin=window.open("","_blank","width="+breit+", height="+hoch+", screenX=100, screenY=50, left=100, top=50, status=no, location=no, directories=no, toolbar=no, menubar=no, copyhistory=no, scrollbars=yes, resizable=yes")
      else
        var imgwin=window.open("","_blank","width="+breit+", height="+hoch+", screenX=100, screenY=50, left=100, top=50, status=no, location=no, directories=no, toolbar=no, menubar=no, copyhistory=no, scrollbars=no, resizable=yes");
      imgwin.document.write('<html><head><meta http-equiv=\"imagetoolbar\" content=\"no\"></head><body bgcolor=\"#000000\" onBlur=\"self.setTimeout('+"'self.close()'"+',3000)\">');
      imgwin.document.write('<table border=0 width="100%" cellpadding=8 cellspacing=0 bgcolor="#000000">');
      imgwin.document.write('<tr><td align="center"><img lowsrc="" src="' + paraimg +'" width='+breitx+' height='+hochx+' border=0 alt="' + paratxt  + '" title="' + paratxt  + '"></td><tr>');
      imgwin.document.write('<tr><td align="center" style="font-family:arial,helvetica,sans-serif;font-size:10pt;color:#ffffff;">' + paratxt + bemerk + '</td><tr>');
      imgwin.document.write('</table>');
      imgwin.document.write('</body></html>');
      imgwin.document.close();
      imgwin.focus();
      imgwin.setTimeout('window.close()',60000)
    }
    else {
      // Bild noch nicht geladen, also Funktion etwas später erneut aufrufen		
      dummy=setTimeout('imgviewwait("'+paraimg+'","'+paratxt+'","'+paraaltimg+'")',500)
    }
}

function minijpg(paraform,parafile,parazoom,paratext,paraexternlink) {
  formjpg(paraform,parafile,"s",parazoom,paratext,paraexternlink); 
}

function formjpg(paraform,parafile,parasuff,parazoom,paratext,paraexternlink) {
  if ((paraexternlink+"x")=="undefinedx")
    docw('<td class="fototab"><a href="javascript:imgview('+"'"+parafile+'_'+parazoom+".jpg','"+paratext+"','"+parafile+"_s.jpg'"+');">')
  else
    docw('<td class="fototab"><a href="javascript:imgview('+"'"+paraexternlink+"','"+paratext+"','"+parafile+"_s.jpg'"+');">');
  docw('<IMG SRC="'+parafile+'_'+parasuff+'.jpg" border=0 ' );
  if (paraform=='H') docw('width=85 HEIGHT=128 '); 
  if (paraform=='HAR') docw('width=85 HEIGHT=128 align="right" '); 
  if (paraform=='HAL') docw('width=85 HEIGHT=128 align="left" '); 

  if (paraform=='h') docw('width=86 HEIGHT=129 '); 
  if (paraform=='q') docw('width=129 HEIGHT=86 '); 

  if (paraform=='hl') docw('width=254 HEIGHT=381 '); 
  if (paraform=='ql') docw('width=381 HEIGHT=254 '); 

  if (paraform=='hs') docw('width=40 HEIGHT=60 '); 
  if (paraform=='qs') docw('width=60 HEIGHT=40 '); 

  if (paraform=='hxs') docw('width=20 HEIGHT=30 '); 
  if (paraform=='qxs') docw('width=30 HEIGHT=20 '); 

  if (paraform=='hxxs') docw('width=10 HEIGHT=15 '); 
  if (paraform=='qxxs') docw('width=15 HEIGHT=10 '); 

  if (paraform=='Q') docw('width=128 HEIGHT=85 '); 
  if (paraform=='QAR') docw('width=128 HEIGHT=85 align="right" '); 
  if (paraform=='QAL') docw('width=128 HEIGHT=85 align="left" '); 

  if (paraform=='Q2') docw('width=256 HEIGHT=85 '); 
  if (paraform=='q2') docw('width=258 HEIGHT=86 '); 
  if (paraform=='Q3') docw('width=384 HEIGHT=85 '); 
  if (paraform=='q3') docw('width=387 HEIGHT=86 '); 
  if (paraform=='Q4') docw('width=512 HEIGHT=85 '); 
  if (paraform=='q4') docw('width=516 HEIGHT=86 '); 
  if (paraform=='Q600') docw('width=600 HEIGHT=85 ');
  if (paraform=='q600') docw('width=600 HEIGHT=86 ');
  if (paraform=='P') docw('width=624 HEIGHT=85 '); 
  if (paraform=='p') docw('width=624 HEIGHT=86 '); 
  docw('alt="'+paratext+'" title="'+paratext+'"></A></td>');
}
function linkjpg(parafile,paralink,paratext) {
  docw('<a href="'+paralink+'">');
  docw('<IMG SRC="'+parafile+'_s.jpg" border=0 width=128 HEIGHT=85 alt="'+paratext+'" title="'+paratext+'"></A>');
}
function headerjpg(parafile,parazoom,paratext) {
  docw('<a href="javascript:imgview('+"'"+parafile+"_"+parazoom+".jpg','"+paratext+"','"+parafile+"_s.jpg'"+');">');
  docw('<IMG SRC="'+parafile+'_s.jpg" border=0 width=128 HEIGHT=85 alt="'+paratext+'" title="'+paratext+'"></A>');
}
function panojpg(parafile,parazoom,paratext) {
  docw('<a href="javascript:imgview('+"'"+parafile+"_"+parazoom+".jpg','"+paratext+"','"+parafile+"_s.jpg'"+');">');
  docw('<IMG SRC="'+parafile+'_s.jpg" border=0 width=640 HEIGHT=85 alt="'+paratext+'" title="'+paratext+'"></A>');
}



function txtmitbild(pAnker, pTitel, pDatum, pImgname, pImgform, pImgtxt, pTxt) {
 document.write('<a name="'+pAnker+'"></a><b>'+pTitel+'</b> - '+pDatum+'<br>');
 if (pImgname!='') minijpg(pImgform,pImgname,'l',pImgtxt==''?pDatum:pImgtxt);
 document.write(pTxt);
 document.write('<a href="#top"><img src="../libs/picauf.gif" width=17 height=9 border=0 alt="Seitenanfang" title="Seitenanfang"></a><br clear=all><br>');
}

// ******* min <= Zufallszahl <= max; 
function randint(min,max) {
 var z=parseInt((max+1-min)*(Math.random())) + min;
 return(z);
}
// ******* Array der Länge len mit Zufallszahlinteger min..max füllen
function randarrint(arr,len,min,max) {
 var r=0;
 var neusuchen=true;
 for(var i=1;i<=len+1;i++) {
   neusuchen=true;
   while(neusuchen) { //weiterwürfeln, bis ein neuer Wert gefunden wurde
     r=randint(min,max); //Zufallszahl bilden
     neusuchen=false; //erst einmal als neu annehmen
     if (len<=max-min+1) { //wenn Arraygröße<Wertebereich testen, ob diese Zahl schon gewürfelt wurde - dann nochmal
       for(var j=1; j<i; j++) {
        if (arr[j]==r) neusuchen=true; //testen, ob diese Zahl im bereits gefüllten Array vorkommt
       }
     }  	
   } 
   arr[i]=r; // ermittelte Zahl ins array eintragen
 } 
 r=""; for(var i=1;i<=len;i++) r+=arr[i]+";";
 return(r); 
}

// ****** Setzt Cookie mit Namen, Inhalt und Verfallstermin in Jahren)
function setcookie(paraname, paracontent, parayears) {
  var haltbarbis = new Date();
  var diesjahr=haltbarbis.getFullYear();
  haltbarbis.setFullYear(diesjahr+parayears);
  var cook=escape(paraname)+"="+escape(paracontent)+";expires="+haltbarbis.toGMTString();
  document.cookie=cook;
  //document.write(cook+"<br>");
}
// ****** Durchsucht Cookielist nach speziellem Namen und gibt Wert zurück, anderenfalls Leerzeichen
function getcookie(paraname) {
  var cookarr = document.cookie.split(/; /);	//Cookie in Einzeleinträge auflösen
  for (var i=0; i < cookarr.length; i++) {
    cookarr[i]=cookarr[i].split(/=/);		//Cookie-Name und Inhalt trennen
    if (cookarr[i][0]==paraname)		//wenn name identifiziert, Inhalt regeneriert zurückgeben
      return(unescape(cookarr[i][1])); 
  }  
  return("");					//Leerstring = nicht gefunden
}

function mixswitch(t) { 
 var s=''; var j=0;
 if (t!=null) {
  for (j=t.length;j>=0;j--) {
   s+=t.substr(j,1);
  }
 } else s=''
 return(s);
}
function mixblock(pname,phead,ptext) {
 var r=''; var beg=0; var inw=false; var c=''; var j=0; var k=0;
 var sc='abcdefghijklmnopqrstuvwxyzäöüß_';
 var t=ptext+" "; //Sicherstellung bis zum letzten Zeichen
 beg=0;
 for(k=0;k<ptext.length;k++) {
  inw=false;
  c=t.substr(k,1);
  c=c.toLowerCase();
  if (sc.indexOf(c)>=0) inw=true;
  if (inw==false) {   //erstes Zeichen außerhalb eines Wortes
   if (beg<k) { //nicht, falls erstes bereits Sonderzeichen ist
    r+=mixswitch(t.slice(beg,k));
   }
   r+=t.substr(k,1); //Sonderzeichen ankleben  
   beg=k+1; 
  }
 }
 document.write('<a name="'+pname+'"></a><b>'+phead+'</b>');
 document.write('<a href="javascript:txtview('+"'<b>"+phead+"</b><br>"+ptext+"'"+')"> - Klartext</a><br>');
 document.write(r);
 document.write('<a href="#top"><img src="../../libs/picauf.gif" width=17 height=9 border=0 alt="Seitenanfang"></a><br><br>');
}

function txtview(paratxt)  {
 var breit=400;
 var hoch=paratxt.length*140/breit+40; //im Schnitt 160px pro Zeichen

 var win=window.open('','_blank','width='+breit+', height='+hoch+', screenX=100, screenY=50, left=100, top=50, status=no, location=no, directories=no, toolbar=no, menubar=no, copyhistory=no, resizable=yes ');
 win.document.write('<html><head><meta http-equiv=\"imagetoolbar\" content=\"no\"></head><body bgcolor=\"#000000\" onBlur=\"self.setTimeout('+"'self.close()'"+',3000)\">');
 win.document.write('<table border=0 width="100%" cellpadding=8 cellspacing=0 bgcolor="#000000">');
 win.document.write('<tr><td align="left" style="font-family:arial,helvetica,sans-serif;font-size:10pt;color:#ffffff;">' + paratxt + '</td><tr>');
 win.document.write('</table>');
 win.document.write('</body></html>');
 win.document.close();
 win.setTimeout('window.close()',60000)
}

function para2url(para) {
var u=document.URL;
if (u.search(/\?/)!=-1) {return(u.replace(/\?/,"?"+para+"&"));}
if (u.search(/#/)!=-1) {return(u.replace(/#/,"?"+para+"#"));}
return(u+"?"+para);
}

function envionload() {
}


//** bisher nur Deklarationen, nun echtes Headerschreiben 
docw('<meta http-equiv="imagetoolbar" content="no">'); //unterdrückt Imagetoolbars

