var AnzJahre = 70;

var PfadCfg = Pfad0+Pfad1+'ehemalige/listen.cfg';
var PfadStart = PfadRoot+'ehemalige/index.php';
var PfadEintrag = PfadRoot+'ehemalige/eintrag.php';

//------------------------------------------

function heppListe ()
 { location = '/cgi-bin/ohs_list_aus.pl'+'?cfgfile='+PfadCfg+'&jahr='+document.SubMenuForm.ListeJahr.value; }

//------------------------------------------

function SelectListeTab (slcJhr)
 {
  var s = SelectJahr('ListeJahr',0,'',lokJahr-AnzJahre,lokJahr,slcJhr,'heppListe()');
  return(TABLE('',TR('',TD(Cl('submenu'),dot+'Jahrgang  ')+TD('',s)+TD(Cl('submenu'),' anzeigen'))));
 }

function SubMenuTab (slcJhr)
 {
  SubMenu(
   TABLE('',TR('',
    TD(Cl('submenu'),SelectListeTab(slcJhr))
   +TD('',nix(8,1))
   +TD(Cl('submenu'),dot+link(PfadEintrag,0,'Ihr Listeneintrag'))
   +TD('',nix(8,1))
   +TD(Cl('submenu'),dot+link(PfadStart,0,'Förder- und Ehemaligenverein')) )));
 }

function EmlgKopf (Titel1, Titel2, slcJhr)
 {
  document.writeln('<FORM NAME="SubMenuForm">');
  Kopf(Titel1,Titel2,'');
  SubMenuTab(slcJhr);
  BodyKopf();
  document.writeln('</FORM>');
 }

//------------------------------------------

function iTEXT (size, maxl, name, val)
 { return('<INPUT TYPE=TEXT SIZE='+size+(maxl?' MAXLENGTH='+maxl:'')+' NAME="'+name+'" VALUE="'+val+'">') }

function iHIDDEN (name, val)
 { return('<INPUT TYPE=HIDDEN NAME="'+name+'" VALUE="'+val+'">') }

var SUBMIT = TR('',TD(S(2),'')+TD('','<INPUT TYPE=SUBMIT VALUE="Eintrag absenden">'));

var FormDim = TR('',TD('',nix(1,hSepGr))+TD('',nix(8,1))+TD('',''));

function FormJ (slJ) { return(TR('',TD(R,'<B>Abiturjahr:</B>')+TD('',nix(1,26))+TD('',SelectJahr('jahr','','w&auml;hlen',lokJahr-AnzJahre,lokJahr,slJ,'')))) }
function FormN (val) { return(TR('',TD(R,'<B>Name:</B>')+TD('',nix(1,26))+TD('',iTEXT(40,0,'name',val)))) }
function FormG (val) { return(TR('',TD(R,NOBR('ggf. Geburtsname:'))+TD('',nix(1,26))+TD('',iTEXT(40,0,'gebname',val)))) }
function FormV (val) { return(TR('',TD(R,'<B>Vorname:</B>')+TD('',nix(1,26))+TD('',iTEXT(40,0,'vorname',val)))) }
function FormT (val) { return(TR('',TD(R,NOBR('ggf. Titel:'))+TD('',nix(1,26))+TD('',iTEXT(20,0,'titel',val)))) }
function FormM (val) { return(TR('',TD(R,'<B>eMail:</B>')+TD('',nix(1,26))+TD('',iTEXT(40,0,'email',val)))) }
function FormZ (val) { return(TR('',TD(R,'Zusatz:')+TD('',nix(1,26))+TD('',iTEXT(40,40,'zusatz',val)))) }
function FormU (val) { return(TR('',TD(R,'http://')+TD('',nix(1,26))+TD('',iTEXT(40,0,'url',val)))) }

function ListenForm (Inhalt)
 {
  return(
   '<FORM METHOD="POST" NAME="ListenForm" ACTION="/cgi-bin/ohs_list.pl">'
   +iHIDDEN('cfgfile',PfadCfg)
   +Inhalt
   +'</FORM>');
 }

function FormEintrag ()
 {
  document.writeln(
   ListenForm(
    TABLE('',FormDim
     +FormJ(0)+FormN('')+FormG('')+FormV('')+FormT('')
     +FormM('')
     +TR(H(20),TD(S(3),'Sie k&ouml;nnen einen <U>kurzen</U> Zusatz (z.B. Telefon oder Anschrift) angeben:')) +FormZ('')
     +TR(H(20),TD(S(3),'Sie k&ouml;nnen Ihren Namen mit einem Verweis auf Ihre Seite verkn&uuml;pfen:')) +FormU('')
     +TR(H(20),TD(S(2),'')+TD(Cl('smallorange'),'(Bitte nur einmal klicken und etwas warten!)'))
     +SUBMIT) ));
 }

function FormFehler (jahr, name, gebname, vorname, titel, email, zusatz, url, fehlertext)
 {
  document.writeln(
   ListenForm(
    TABLE('',FormDim
     +TR(T,TD(Rs(3)+R,ImgFehler)+TD('','')+TD(Cl('h4'),'<FONT COLOR="red">Eingabefehler:</FONT>'))
     +TR('',TD('','')+TD(S(3),nix(1,4)))
     +TR('',TD('','')+TD(Cl('h5'),'<FONT COLOR="red">'+fehlertext+'</FONT>'))
     +TR('',TD(S(3),nix(1,16)))
     +FormJ(jahr)
     +FormN(name)+FormG(gebname)+FormV(vorname)+FormT(titel)
     +FormM(email)+FormZ(zusatz)+FormU(url)
     +FormDim
     +SUBMIT) ));
 }

function LI (Inhalt) { return ('<LI><B>'+Inhalt+'</B></LI>'); }

function FormAntwort (jahr, name, gebname, vorname, titel, email, zusatz, url)
 {
  document.writeln(
   ListenForm(
     iHIDDEN('jahr',jahr)+iHIDDEN('name',name)+iHIDDEN('vorname',vorname)
    +TABLE('',FormDim
     +TR('',TD(S(3)+Cl('h4'),'Ihr Eintrag'))
     +TR('',TD(S(3),nix(1,16)))
     +TR('',TD(S(3),'<UL>'
       +LI('Abitur '+jahr)
       +LI(name+', '+(gebname?'geb. '+gebname+', ':'')+(titel?titel+' ':'')+vorname)
       +(email?LI(email):'')
       +(zusatz?LI(zusatz):'')
       +(url?LI(url):'')
       +'</UL>'))
     +TR('',TD(S(3),'wird bei der n&auml;chsten Aktualisierung &uuml;bernommen.'))
     +TR('',TD(S(3),nix(1,24)))
     +TR('',TD(S(3)+Cl('h5'),'Sind die Angaben richtig?<BR>Die folgenden Eintr&auml;ge k&ouml;nnen Sie ggf. noch &auml;ndern:'))
     +TR('',TD(S(3),nix(1,16)))
     +FormG(gebname)+FormT(titel)+FormM(email)+FormZ(zusatz)+FormU(url)
     +TR('',TD(S(3),nix(1,8)))
     +TR('',TD(S(2),'')+TD('',
        'Nur wenn auf <B><U>diesem</U></B> Formular &Auml;nderungen<BR> vorgenommen wurden: '
       +'<A HREF="javascript:document.ListenForm.submit()">erneut absenden</A>.'))) ));
 }

//------------------------------------------

function Eintrag (Name, Gebname, Vorname, Titel, eMail, Url, Zusatz, Datum)
 {
  document.writeln(
    TABLE('',TR(H(16),
     TD('',dot)
    +TD(Cl('liste-name')+NW,Name+(Gebname?', '+'geb. '+Gebname:'')+', '+Vorname+(Titel?', '+Titel:''))
    +(eMail?TD(Cl('liste-email'),dot)+TD('','<A HREF="javascript:LinkToCryptMail(\''+CryptMail('')+eMail+'\')">'+ImgMail+'</A>'):'')
//    +(eMail?TD(Cl('liste-email'),dot)+TD('','<A HREF="mailto:'+eMail+'">'+ImgMail+'</A>'):'')
    +(Url?TD('','&nbsp;<A HREF="http://'+Url+'" TARGET="_blank">'+ImgHome+'</A>'):'')
    +(Zusatz?TD(Cl('liste-email'),dot)+TD(Cl('liste-zusatz')+NW,Zusatz):'')
    +TD(Cl('liste-email'),dot)
    +TD(Cl('liste-datum'),Datum))));
 }

/*
<UL>
<!--P-->
<LI><NOBR><SPAN CLASS="liste-name">{Name}</SPAN>[G<SPAN CLASS="liste-name">, geb. {Gebname}</SPAN>G]
<SPAN CLASS="liste-name">, [T{Titel} T]{Vorname}</SPAN><SPAN CLASS="liste-email"> &bull; </SPAN>
[M <A HREF="mailto:{eMail}"><script>document.write(ImgMail)</script></A>M]
 [U <A HREF="http://{Url}" TARGET="_blank"><script>document.write(ImgHome)</script></A>U]
[Z <SPAN CLASS="liste-email"> &bull; </SPAN><SPAN CLASS="liste-zusatz">{Zusatz}</SPAN>Z]
<SPAN CLASS="liste-email"> &bull; </SPAN><SPAN CLASS="liste-datum">{Datum}</SPAN></NOBR></LI>
<!--P-->
</UL>
*/