Index: APPS/TBXWeb/impl/KISCHOrderHandler.cls.xml
===================================================================
diff -u -r199 -r320
--- APPS/TBXWeb/impl/KISCHOrderHandler.cls.xml	(.../KISCHOrderHandler.cls.xml)	(revision 199)
+++ APPS/TBXWeb/impl/KISCHOrderHandler.cls.xml	(.../KISCHOrderHandler.cls.xml)	(revision 320)
@@ -1,48 +1,34 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
 <Class name="APPS.TBXWeb.impl.KISCHOrderHandler">
+<ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>AbstractOrderHandler</Super>
-<ClassDefinitionError>0</ClassDefinitionError>
 
 <Parameter name="HaltOnLineErrors">
 <Default>0</Default>
 </Parameter>
 
 <Method name="WebServer">
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
- 
-	  Quit $$$TBoxWebDomeinKISCH
+<Implementation><![CDATA[  Quit $$$TBoxWebDomeinKISCH
 ]]></Implementation>
 </Method>
 
 <Method name="OrderStartTypeValid">
-<ReturnType>Boolean</ReturnType>
-<Implementation><![CDATA[  Quit ..WSOrd.BonType?1(1"OFF",1"OFFAV")
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[  Quit ..WSOrd.BonType?1(1"OFF")
 ]]></Implementation>
 </Method>
 
 <Method name="GetMailTo">
-<FormalSpec>Destination</FormalSpec>
+<Private>1</Private>
 <ReturnType>%List</ReturnType>
-<Implementation><![CDATA[
-	#define TempToWV   """KISCH OV."" <wv@vanhoecke.be>"
-
- #If ($$$Server["WWW")&&($$$NSpace'="DEMO")
-    Set lbTo=$LB($$$EMailOVKisch, $$$EMailOVKischBis)   ; """Kisch OV."" <$$$EMailOVKisch>" (naar 2 personen) 
-    Set ServerPrefix=""
-#Else
-    Set lbTo=$LB($$$EMailOVKischTEST)   ; """Kisch OV."" <$$$EMailOVKischTEST>"
-    Set ServerPrefix="["_$$$Server_"] "
-#EndIf
-
-	Quit lbTo
+<Implementation><![CDATA[    quit $LB($$$EMailOVKisch, $$$EMailOVKischBis)   ; """Kisch OV."" <$$$EMailOVKisch>" (naar 2 personen)
 ]]></Implementation>
 </Method>
 
 <Method name="GetMailLanguage">
-<FormalSpec>Destination</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit "N"
 ]]></Implementation>
@@ -59,5 +45,12 @@
 <Implementation><![CDATA[ 	Quit ..SendMail()
 ]]></Implementation>
 </Method>
+
+<Method name="GetMailFrom">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit """"_$S($L(..WSOrd.KLNaam):..WSOrd.KLNaam, 1:"Anonymous")_""" <"_$$$EMailFrom2Any_">"
+]]></Implementation>
+</Method>
 </Class>
 </Export>