//*** Aufruf durch Funktionen wkSenden, bestellungSenden, mailSenden
function adresseTest() {
	var Eingabe, Laenge, EChar, TestEingabe, Test, typ, i=0;
	TelZeichen="0123456789/-";
	NamenZeichen="aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZäÄöÖüÜß- ";
	PlzZeichen="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ- ";
	EmailZeichen="0123456789aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ_@.-";
	
	//*** typ=1: Mann/Frau; typ=2: Organisation
	var typ;
	
	while (window.document.input.elements[i].type != "radio"
	&& window.document.input.elements[i].name != "Anrede") {
		i = i+1;
	}
	if (window.document.input.Anrede[0].checked) {typ=1}
	i = i+1;
	if (window.document.input.Anrede[1].checked) {typ=1}
	i = i+1;
	if (window.document.input.Anrede[2].checked) {typ=2}
	//*** Wenn Anrede Herr oder Frau: Namen  und Vornamen testen
	if (typ==1)
		{
		Eingabe = window.document.input.Name.value;
		if (Eingabe=="") {
			alert("Bitte Namen eingeben!");
			window.document.input.Name.focus();
			return false;
		}
		//*** Vorname testen (Z15)
		Eingabe = window.document.input.Vorname.value;
		if (Eingabe=="") {
			alert("Bitte Vornamen eingeben!");
			window.document.input.Vorname.focus();
			return false;
		}
	}
	
	//*** Organisation testen()
	Eingabe = window.document.input.Organisation.value;
	if (typ==2 && Eingabe=="") {
		alert("Bitte Organisation eingeben!");
		window.document.input.Organisation.focus();
		return false;
	}

	//*** Strasse testen (Z31)
	Eingabe = window.document.input.Strasse1.value;
	switch  (InhaltTesten(Eingabe,1,""))
		{case 1:
			{alert("Bitte Strasse eingeben!");
			window.document.input.Strasse1.focus();
			return false}
		}

	//*** PLZ testen (Z40)
	Eingabe = window.document.input.PLZ.value;
	switch  (InhaltTesten(Eingabe,3,PlzZeichen)) {
		case 1: {
			alert("Bitte Postleitzahl eingeben!");
			window.document.input.PLZ.focus();
			return false;
		}
		case 2: {
	 		alert ("Bitte gültige Postleitzahl eingeben!");
	 		window.document.input.PLZ.value="";
	 		window.document.input.PLZ.focus();
         	return false;
		}
	}
	if (Eingabe.indexOf("-")>-1) {
		if (Eingabe.length < (Eingabe.indexOf("-")+3)) {
	 		alert ("Bitte gültige Postleitzahl eingeben!");
	 		window.document.input.PLZ.value="";
	 		window.document.input.PLZ.focus();
         	return false;
		}
	}
	
	//*** Ort testen (49)
	Eingabe = window.document.input.Ort.value;
		switch  (InhaltTesten(Eingabe,1,""))
		{case 1:
			{alert("Bitte Ort eingeben!");
			window.document.input.Ort.focus();
			return false}
		}

	//*** Telefon Testen (Z58)
	if (window.document.input.Tel) {
		Eingabe = window.document.input.Tel.value;
		switch  (InhaltTesten(Eingabe,2,TelZeichen)) {
			case 2: {
	 			alert ("Bitte nur Ziffern eingeben!");
	 			window.document.input.Tel.value="";
	 			window.document.input.Tel.focus();
         			return false;
			}
		}
	}

	//*** Email-Adresse testen
	Eingabe = window.document.input.Email.value;
	laenge = Eingabe.length;
	if (Eingabe != "") {
		if (Eingabe.indexOf("@") == -1) {
	 		alert ("Bitte gültige Email-Adresse eingeben! (@-Zeichen fehlt)");
	 		window.document.input.Email.value="";
	 		window.document.input.Email.focus();
         	return false;
		}
		for (i=0; i<laenge; i++) {
   			EChar=Eingabe.charAt(i);
  			 if (EmailZeichen.indexOf(EChar)==-1) {
	 			alert ("Bitte gültige Email-Adresse eingeben! ("+EChar+"nicht erlaubt)");
	 			window.document.input.Email.value="";
	 			window.document.input.Email.focus();
         		return false;
			}
   		}

	}
	//***
	gesendet = true;
	return true;
}
	
function InhaltTesten(Eingabe,Test,Zeichen)
	{var Laenge = Eingabe.length,EChar
	// Test=1: Nur testen, ob Eingabe = ""
	// Test=2: Nur testen, ob Eingabe den Zeichen entspricht
	// Test=3: Testen, ob Eingabe = "" und ob Eingabe den Zeichen entspricht
	if ((Test=1) || (Test=3)) {
		if (Eingabe == "") {
			return 1;
		}
	}
	if ((Test=2) || (Test=3)) {
		if (Eingabe != "") {
			 for (i=0; i<Laenge; i++) {
   				EChar=Eingabe.charAt(i);
  				 if (Zeichen.indexOf(EChar)==-1) {
	 				return 2;
				}
   			}
		}
	}
	return 3;
}

function hostPath() {
	path = window.location.href;
	path = path.substring(0,path.lastIndexOf("/"));
	return path;
}

//*** Aufruf durch Funktionen wkSenden, BsSenden, bestellungSenden, mailSenden
function getAdresse() {
	var Adresse="";
	if (wkGet("04anr")=="Herr") {
		Adresse="Herr\n";
	} else if (wkGet("04anr")=="Frau") {
		Adresse="Frau\n";
	} else if (wkGet("04anr")=="Organisation") {
		Adresse=wkGet("07org")+"\n";
	}
	if (wkGet("06vname")!="") {
		Adresse=Adresse+wkGet("06vname")+" ";
	}
	if (wkGet("05name")!="") {
		Adresse=Adresse+wkGet("05name")+"\n";
	}
	if (wkGet("04anr")!="Organisation" && wkGet("07org")!="") {
		Adresse=Adresse+wkGet("07org")+"\n";
	}
	Adresse=Adresse+wkGet("08str1")+"\n";
	if (wkGet("09str2")!="") {
		Adresse=Adresse+wkGet("09str2")+"\n";
	}
	Adresse=Adresse+wkGet("10plz")+" "+wkGet("11ort");
	if (wkGet("11land")!="") {
		Adresse=Adresse+"\n"+wkGet("11land")+"\n";
	}
	if (wkGet("12tel")!="" || wkGet("13email")!="") {
		Adresse=Adresse+"\n\n";
	}
	if (wkGet("12tel")!="") {
		Adresse=Adresse+"Telefon: "+wkGet("12tel")+"\n";
	}
	if (wkGet("13email")!="") {
		Adresse=Adresse+"Email: "+wkGet("13email");
	}
	return Adresse;
}

//*** Aufruf durch wkb.htm: Adresse und Bestellung Warenkorb zusammenstellen und senden
function wkSenden() {
	if (adresseTest()) {
		var datum = new Date ();
		var heute = datum.getUTCDate() + "." + eval(datum.getUTCMonth()+1) + "." + datum.getUTCFullYear();
		var out = "\n\nBestellung vom " + heute + "\n";
		for (var i=0;i<heute.length;++i) {
			out = out + "-";
		}
		out = out + "---------------\n\n";
		out = out + getAdresse();
		if (wkGet("14mtlg")!="") {
			out = out + "\n\nMitteilung:\n-----------\n";
			out = out + wkGet("14mtlg");
		}
		out = out + "\n\n";
		var end = "";
		window.document.mail.Bestellung.value=out + wkASCII() + end;
		window.document.mail.thanks.value=hostPath()+"/wkb1.htm";
		window.document.mail.error.value=hostPath()+"/wkerr.htm";
		window.document.mail.recipients.value=warenkorbAdresse;
		if (testVersand) {
			window.document.mail.subject.value="*** TEST *** "
		+ window.document.mail.subject.value;
			if (!confirm("Testversand an Adresse: "+warenkorbAdresse+"\n\r"+window.location.href))
				return;
		}
		if (!confirm("Die Bestellung wird jetzt gesendet. Bitte warten Sie einen Augenblick."))
			return;
		window.document.mail.submit();
	}
}

//*** Aufruf durch wkb2.htm: Bestätigung der Bestellung mit dem Warenkorb senden
function BsSenden() {
	var datum = new Date ();
	var heute = datum.getUTCDate() + "." + eval(datum.getUTCMonth()+1) + "." + datum.getUTCFullYear();
	var out = "\n\nBestätigung Ihrer Bestellung vom " + heute + "\n-------------------------";
	for (var i=0;i<heute.length;++i) {
		out = out + "-";
	}
	out = out + "\n\nBesten Dank für Ihre Bestellung. Die Auslieferung erfolgt in den nächsten ";
	out = out + "3-4 Werktagen.\nMit freundlichen Grüssen\nEdition SOZIOTHEK\n\n";
	out = out + "Adresse\n-----------\n";
	out = out + getAdresse();
	if (wkGet("14mtlg")!="") {
		out = out + "\n\nMitteilung:\n-----------\n";
		out = out + wkGet("14mtlg");
	}
	out = out + "\n\n";
	window.document.confirm.Bestätigung.value=out + wkASCII();
	window.document.confirm.recipients.value=wkGet("13email");
	window.document.confirm.thanks.value=hostPath()+"/wkdank3.htm";
	window.document.confirm.error.value=hostPath()+"/wkdank1.htm";
	window.document.confirm.submit();
}

//*** Aufruf durch bestellen.htm: Zusammenstellung der Adresse und Bestellung und senden
function bestellungSenden() {
	if (!adresseTest()) return;
		TestEingabe = false
	//*** Test: Bei Angabe Nummer auch Angabe Anzahl
	for (i=1; i<7; ++i) {
		fld1 = "window.document.input.BestNr";
		fld2 = ".value";
		fld3 = eval(fld1+i+fld2);
		if (fld3!="") {
			fld1 = "window.document.input.Anzahl_";
			fld2 = ".value";
			fld3 = eval(fld1+i+fld2);
			if (fld3=="") {
				alert("Bitte Anzahl eingeben.");
				fld1 = "window.document.input.Anzahl_";
				fld2 = ".focus()";
				eval(fld1+i+fld2);
				return false;
			}
		}
	}

	//*** Test: Mindestens eine Eingabe
	if (window.document.input.BestNr1.value != "") {TestEingabe=true}
	if (window.document.input.BestNr2.value != "") {TestEingabe=true}
	if (window.document.input.BestNr3.value != "") {TestEingabe=true}
	if (window.document.input.BestNr4.value != "") {TestEingabe=true}
	if (window.document.input.BestNr5.value != "") {TestEingabe=true}
	if (window.document.input.BestNr6.value != "") {TestEingabe=true}
	if(window.document.input.programm.checked) {TestEingabe=true}
	if(window.document.input.soziothek.checked) {TestEingabe=true}
	if(window.document.input.beitritt.checked) {TestEingabe=true}
	if(window.document.input.auftrag.checked) {TestEingabe=true}
	if (window.document.input.Feedback.value != "") {TestEingabe=true}
	if (!TestEingabe) {
		alert("Sie haben keine Bestellung aufgegeben oder Mitteilung gemacht!");
		return;
	}
	//*** Adresse
	output = "\n\rAdresse\n\r--------\n\r";
	output = output + getAdresse();
	//*** Bestellung
	bestellTest = false;
	for (i=1; i<7; ++i) {
		inputTest = false;
		fld1 = "window.document.input.Anzahl_";
		fld2 = ".value";
		fldn = eval(fld1+i+fld2);
		if (fldn!="" && fldn>0) inputTest = true;
		fld1 = "window.document.input.BestNr";
		fld2 = ".value";
		fldb = eval(fld1+i+fld2);
		if (fldb!="") inputTest = true;
		fld1 = "window.document.input.Titel_";
		fld2 = ".value";
		fldt = eval(fld1+i+fld2);
		if (fldt!="") inputTest = true;
		if (inputTest) {
			if (!bestellTest) {
				output = output + "\n\r\n\rBücherbestellung\n\r" + "----------------";
				bestellTest = true;
			}
			output = output + "\n\rAnzahl: "+fldn;
			output = output + "\n\rBestellnummer: "+fldb;
			output = output + "\n\rTitel: "+fldt;
			output = output + "\n\r\---";
		}
	}
	//*** Programm, Unterlagen, Beitritt, Auftrag
	docTest = false;
	if (window.document.input.programm.checked) docTest = true;
	if (window.document.input.soziothek.checked) docTest = true;
	if (window.document.input.beitritt.checked) docTest = true;
	if (window.document.input.auftrag.checked) docTest = true;
	if (docTest) {
		output = output + "\n\r\n\rUnterlagen - Beitritt - Auftrag\n\r" + "-------------------------------";
		if (window.document.input.programm.checked)
			output = output + "\n\rSenden Sie mir bitte das Verlagsprogramm.";
		if (window.document.input.soziothek.checked)
			output = output + "\n\rSenden Sie mir bitte Unterlagen über die Edition Soziothek.";
		if (window.document.input.beitritt.checked)
			output = output + "\n\rIch möchte dem Verein Soziothek beitreten. Bitte senden Sie mir Unterlagen.";
		if (window.document.input.auftrag.checked)
			output = output + "\n\rIch möchte einen Auftrag an die Soziothek vergeben. Bitte nehmen Sie Kontakt mit mir auf.";

	}
	//*** Mitteilung
	if (window.document.input.Feedback.value!="") {
		output = output + "\n\r\n\rMitteilung\n\r" + "----------\n\r"
		+ window.document.input.Feedback.value;
	}
	window.document.mail.Bestellung.value = "\n\r"+output;
	window.document.mail.recipients.value=bestellungAdresse;
	window.document.mail.thanks.value=hostPath()+"/bestellena.htm";
	window.document.mail.error.value=hostPath()+"/besterr.htm";
	wkPut("15values", output);
	if (testVersand) {
		window.document.mail.subject.value="*** TEST *** "
		+ window.document.mail.subject.value;
			if (!confirm("Testversand an Adresse: "+bestellungAdresse+"\n\r"+window.location.href)) return;
	}
	if (!confirm("Die Bestellung/Mitteilung wird jetzt gesendet. Bitte warten Sie einen Augenblick."))
		return;
	window.document.mail.submit();
}

//*** Aufruf durch bestellen2.htm: Sucht aufgrund der Bestellnummer Autor und Titel
function searchTitle(Nr, bestNr) {
	fld1 = "window.document.input.Anzahl_";
	fld2 = ".value";
	fld3 = eval(fld1+Nr+fld2);
	if (bestNr=="") return;
	var a=0, test=true;
	for (a=0; a<AnzahlPub; a++) {
		if (publDB[a][6]==bestNr) {
	   		test=false;
	   		title=deunicode(publDB[a][0] + "(" + publDB[a][7] + "): " + publDB[a][1]);
			ref=publDB[a][5];
	   		break;
		}
	}
	if (test) {
   		alert("Die Publikation konnte nicht gefunden werden!");
		fld1 = "window.document.input.BestNr";
		fld2 = ".focus();";
		eval(fld1+Nr+fld2);
   	} else {
		fld1 = "window.document.input.Titel_";
		fld2 = ".value=title";
		eval(fld1+Nr+fld2);
	}
}

saveVal = "";
function putValue(val) {
	saveVal = val;
}

function getValue(fld) {
	return saveVal;
}

//*** Aufruf durch mitgl.hmt: Zusammenstellung der Adresse und Infos, Absenden
function mitglSenden() {
	if (!adresseTest()) return;
	if (!window.document.input.Mitgliedschaft.checked
	&& !window.document.input.Spende.checked
	&& !window.document.input.Sponsoring.checked
	&& window.document.input.Mitteilung.value=="") {
		alert("Sie haben keine Option gewählt oder Mitteilung eingegeben.");
		window.document.input.Mitgliedschaft.focus();
		return;
	}
	if (window.document.input.Mitgliedschaft.checked) {
		if (!window.document.input.Mitglied[0].checked &&
		!window.document.input.Mitglied[1].checked) {
			alert("Einzel- oder Kollektivmitgliedschaft eingeben.");
			window.document.input.Mitglied[0].focus();
			return;
		}
	}
	var output = "\n\r\n\rMitgliedschaft Verein / Spende / Sponsoring\n\r------------------------------\n\r\n\r";
	output = output + "Adresse\n\r-------\n\r" + getAdresse() +"\n\r\n\r";
	output = output + "Mitgliedschaft / Unterstützung / Mitteilung\n\r\-----------------------\n\r";
	if (window.document.input.Mitglied[0].checked) {
		output = output + "*** Anmeldung Einzelmitglied ***\n\r";
	}
	if (window.document.input.Mitglied[1].checked) {
		output = output + "*** Anmeldung Kollektivmitglied ***\n\r";
	}
	if (window.document.input.Spende.checked) {
		output = output + "*** Spende: Einzahlungsschein schicken ***\n\r";
	}
	if (window.document.input.Spende.checked) {
		output = output + "*** Sponsoring: Kontakt aufnehmen ***\n\r";
	}
	if (window.document.input.Mitteilung.value!="") {
		output = output + "\n\rMitteilung\n\r----------\n\r"
		+window.document.input.Mitteilung.value;
	}
	window.document.mail.Unterstützung.value = output;
	window.document.mail.recipients.value=mitgliedAdresse;
	window.document.mail.thanks.value=hostPath()+"/maildank.htm";
	window.document.mail.error.value=hostPath()+"/mailerr.htm";
	if (testVersand) {
		
		window.document.mail.subject.value="*** TEST *** "
		+ window.document.mail.subject.value;
		if (!confirm("Testversand an Adresse: "+mitgliedAdresse+"\n\r"+window.location.href)) 			return;
	}
	if (!confirm("Die Anmeldung/Mitteilung wird jetzt gesendet. Bitte warten Sie einen Augenblick."))
		return;
	window.document.mail.submit();
}

//*** Aufruf durch mailto.htm: Zusammenstellung der Adresse und Mitteilung, Absenden
function mailSenden() {
	if (!adresseTest()) return;
	if (window.document.input.Feedback.value=="") {
		alert("Sie haben keine Mitteilung eingegeben.");
		return;
	}
	var output = "\n\r\n\rEmail-Mitteilung\r\n---------------\n\r\n\rAdresse\n\r-------\n\r\n\r";
	output = output + getAdresse() + "\n\r\n\r";
	output = output + "Mitteilung\r\n----------\n\r" + window.document.input.Feedback.value;
	window.document.mail.Mitteilung.value = output;
	window.document.mail.recipients.value=mailtoAdresse;
	window.document.mail.thanks.value=hostPath()+"/maildank.htm";
	window.document.mail.error.value=hostPath()+"/mailerr.htm";
	if (testVersand) {
		window.document.mail.subject.value="*** TEST *** "
		+ window.document.mail.subject.value;
		if (!confirm("Testversand an Adresse: "+mailtoAdresse+"\n\r"+window.location.href)) 			return;
	}
	if (!confirm("Die Mitteilung wird jetzt gesendet. Bitte warten Sie einen Augenblick."))
		return;
	window.document.mail.submit();
}

//*** Aufruf durch mailnews1.htm: Zusammenstellung der Adresse und Infos, Absenden
function newsSenden() {
	if (!adresseTest()) return;
	if (!window.document.input.Neuerscheinungen.checked
	&& !window.document.input.Verlagsprogramm.checked) {
		alert("Sie haben sich weder für die Neuerscheinungen noch "
		+ "das Programm per Email eingetragen.");
		return;
	}
	var output = "\n\r\n\rInformationen per Mail\n\r--------------------\n\r\n\r";
	output = output + "Adresse\n\r-------\n\r" + getAdresse() +"\n\r\n\r";
	output = output + "Verlangte Informationen\n\r\-----------------------\n\r";
	if (window.document.input.Neuerscheinungen.checked) {
		output = output + "*** Neuerscheinungen per Mail ***\n\r";
	}
	if (window.document.input.Verlagsprogramm.checked) {
		output = output + "*** Verlagsprogramm per Mail ***\n\r";
	}
	window.document.mail.mailnews.value = output;
	window.document.mail.recipients.value=newsAdresse;
	window.document.mail.thanks.value=hostPath()+"/maildank.htm";
	window.document.mail.error.value=hostPath()+"/mailerr.htm";
	if (testVersand) {
		window.document.mail.subject.value="*** TEST *** "
		+ window.document.mail.subject.value;
		if (!confirm("Testversand an Adresse: "+newsAdresse+"\n\r"+window.location.href)) return;
	}
	if (!confirm("Die Mitteilung wird jetzt gesendet. Bitte warten Sie einen Augenblick."))
		return;
	window.document.mail.submit();
}

//*** Aufruf durch mailnews4.htm: Zusammenstellung der Adresse und Infos, Absenden
function nonewsSenden() {
	if (!adresseTest()) return;
	if (!window.document.input.Neuerscheinungen.checked
	&& !window.document.input.Verlagsprogramm.checked) {
		alert("Sie haben sich weder die Neuerscheinungen noch "
		+ "das Programm per Email abbestellt.");
		return;
	}
	var output = "\n\r\n\rInformationen per Mail abbestellen\n\r------------------------------\n\r\n\r";
	output = output + "Adresse\n\r-------\n\r" + getAdresse() +"\n\r\n\r";
	output = output + "Abbestellte Informationen\n\r\-----------------------\n\r";
	if (window.document.input.Neuerscheinungen.checked) {
		output = output + "*** Neuerscheinungen abbestellt ***\n\r";
	}
	if (window.document.input.Verlagsprogramm.checked) {
		output = output + "*** Verlagsprogramm abbestellt ***\n\r";
	}
	window.document.mail.nomailnews.value = output;
	window.document.mail.recipients.value=newsAdresse;
	window.document.mail.thanks.value=hostPath()+"/maildank.htm";
	window.document.mail.error.value=hostPath()+"/mailerr.htm";
	if (testVersand) {
		window.document.mail.subject.value="*** TEST *** "
		+ window.document.mail.subject.value;
		if (!confirm("Testversand an Adresse: "+newsAdresse+"\n\r"+window.location.href)) return;
	}
	if (!confirm("Die Mitteilung wird jetzt gesendet. Bitte warten Sie einen Augenblick."))
		return;
	window.document.mail.submit();
}