Index: csp/errorvhtbx.cls.xml =================================================================== diff -u -r307 -r332 --- csp/errorvhtbx.cls.xml (.../errorvhtbx.cls.xml) (revision 307) +++ csp/errorvhtbx.cls.xml (.../errorvhtbx.cls.xml) (revision 332) @@ -49,7 +49,7 @@ dehBuildArPageLoadError ; PageLoadError Set tmpAr("ACTIONS")=$LB("LogDB","Email","ErrPage") Set tmpAr("ACTIONS","LogDB")=$LB("DFL","TBX_Err_CSP",$LB("CustomLogError","cspBasis.GAProdTBox",1)) - Set tmpAr("ACTIONS","Email")=$LB($$$SystemMail("CSPserver "_$system.Server.HostName()),$LB($$$EmailToSysOp),"CSP - Error - "_$ZDT($H,4)_$$dehAddDomeinHein(),"§DFL_HTML§",,1) + Set tmpAr("ACTIONS","Email")=$LB($$$SystemMail("CSPserver "_$system.Server.HostName()),$LB($$$EmailToSysOp),"CSP - Error - "_$ZDT($H,4)_$$dehAddTBXDomein(),"§DFL_HTML§",,1) ;Set tmpAr("ACTIONS","Email")=$LB("Skip") Set tmpAr("ACTIONS","ErrPage")=$LB("","OnPageTBX") ; $LB("~") Quit @@ -61,7 +61,7 @@ dehBuildArHyperEventError ; HyperEventError Set tmpAr("ACTIONS")=$LB("LogDB","Email","JSAlert") Set tmpAr("ACTIONS","LogDB")=$LB("DFL","TBX_Err_CSP",$LB("CustomLogError","cspBasis.GAProdTBox",1)) - Set tmpAr("ACTIONS","Email")=$LB($$$SystemMail("CSPserver "_$system.Server.HostName()),$LB($$$EmailToSysOp),"CSP - Error - "_$ZDT($H,4),"§DFL_HTML§",,1) + Set tmpAr("ACTIONS","Email")=$LB($$$SystemMail("CSPserver "_$system.Server.HostName()),$LB($$$EmailToSysOp),"CSP - Error - "_$ZDT($H,4)_$$dehAddTBXDomein(),"§DFL_HTML§",,1) Set tmpAr("ACTIONS","JSAlert")=$LB("Error returned by server call") ; overruled by ("MSG","JSAlert") Set tmpAr("MSG","JSAlert",1)=("TandemBox: "_$$$GetVertaling("jsHyperEventError",$G(Taal,"F"),"O")) Quit @@ -71,11 +71,11 @@ Set tmpAr("ACTIONS","JSAlert")=$LB("Session TimeOut") Quit -dehAddDomeinHein() +dehAddTBXDomein() New AdddText,DomeinKort Set AddText="" Set DomeinKort=$$dehGeefDomeinKort() - If $L(DomeinKort)&&($$$LCase(DomeinKort)="hein") { + If $L(DomeinKort)&&($$$LCase(DomeinKort)'="vhepn") { Set AddText=" ("_DomeinKort_")" } Quit AddText