FishEye: Tag 783 refers to a dead (removed) revision in file `APPS/TBXWeb/LoginBypass/UrlBepaler.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/TBXWeb/LoginBypass/impl/LadeConfiguratorUrlBepaler.cls.xml
===================================================================
diff -u
--- APPS/TBXWeb/LoginBypass/impl/LadeConfiguratorUrlBepaler.cls.xml	(revision 0)
+++ APPS/TBXWeb/LoginBypass/impl/LadeConfiguratorUrlBepaler.cls.xml	(revision 784)
@@ -0,0 +1,86 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.TBXWeb.LoginBypass.impl.LadeConfiguratorUrlBepaler">
+<Super>APPS.TBXWeb.LoginBypass.UrlBepaler</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Taal">
+<Type>DOM.enu.Taal</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Taal:DOM.enu.Taal=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	If $$$Trim(Taal) = "" {
+		Set Taal = ##class(DOM.enu.Taal).Duits()
+	}
+	Set ..Taal = Taal
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefLadeConfiguratorUrlViaUser">
+<FormalSpec>LadeVariant:%String,GebruikerNaam:%String,Wachtwoord:%String,IpAdres:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	;Set KlantLoginId = ##class(cspBasis.GAProdTBox).GeefKlantLoginId(..DomeinVerwerker, GebruikerNaam, Wachtwoord)
+	;Set Klantnummer = KlantLoginId
+	;Quit ..GeefLadeConfiguratorUrl(LadeVariant, Klantnummer, ..DomeinVerwerker)
+]]></Implementation>
+</Method>
+
+<Method name="GeefLadeConfiguratorUrl">
+<FormalSpec>LadeVariant:%String,Klantnummer:%String,DomeinVerwerker:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set LadeConfiguratorUrl = ""
+
+	If $L(Klantnummer) {
+		Set Result = ..GeefWebshopUrl(LadeVariant, Klantnummer, DomeinVerwerker)   ; Dit Result is "" (leeg) indien Error, of Url indien succes :-P 
+		If $L(Result) {
+			Set LadeConfiguratorUrl = ..GeefVolledigeConfiguratorUrl(Result)
+		}
+	}
+	Quit LadeConfiguratorUrl
+]]></Implementation>
+</Method>
+
+<Method name="GeefWebshopUrl">
+<FormalSpec>LadeVariant:%String,Klantnummer:%String,DomeinVerwerker:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set KlantSpecifiekeSettingSubnode = ""
+	If (LadeVariant = "TBX") {
+		Set KlantSpecifiekeSettingSubnode = "URLTBOXWEB"
+	}
+	ElseIf (LadeVariant = "LBX") || (LadeVariant = "TAX") {
+		Set KlantSpecifiekeSettingSubnode = "URLUNISHOP"
+	}
+	Else {
+		; Exception ! 
+	}
+	
+	Set WebshopUrl = ##class(cspBasis.GAProdTBox).GeefKlantSpecifiekeSetting(DomeinVerwerker,Klantnummer,KlantSpecifiekeSettingSubnode)
+	Quit WebshopUrl
+]]></Implementation>
+</Method>
+
+<Method name="GeefVolledigeConfiguratorUrl">
+<FormalSpec>OorspronkelijkeUrl:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Quit OorspronkelijkeUrl
+	
+	// QueryString parameter "" toevoegen of vervangen 
+	;Quit "http://localdev.tandem-box.com/VHISIE/TBX/Main.csp?HIST=0&REF=_6k9XujZFR3P0g95/SwVVKuazmkYsVt_Cb7lBI3sufU-&Taal="_..Taal
+]]></Implementation>
+</Method>
+</Class>
+</Export>