Index: Prod/GAData/Product/tmpDev2.mac.rou
===================================================================
diff -u -r2589 -r20214
--- Prod/GAData/Product/tmpDev2.mac.rou	(.../tmpDev2.mac.rou)	(revision 2589)
+++ Prod/GAData/Product/tmpDev2.mac.rou	(.../tmpDev2.mac.rou)	(revision 20214)
@@ -259,24 +259,19 @@
  
 xmlwSpecialsTBX 
 #define VTLKeyLC   "PR;GA;TBLC"
- New LC,URL2
+ New LC,URL2,LadeImageCodeBepalerInput
  Set LC=..Val("LC")
  Do TAGWRITE^XMLWRITE(DevObj,"LADECODE",LC)
  Do WRITELN^XMLWRITE(DevObj)
  // Via BL.Prod.ImageLink 
- Set URL2=##class(BL.PR.GA.TandemBox).GetImageURL("WEB", ..Val("LC"),..Val("BS"),..Val("DS"),..Val("BGRP"),..Val("SPZK"))
  
- // Via VertalingLink (OLD) 
- ;Set URL2=##class(Res.VertalingLink).GetLinkVertaling($$$VTLKeyLC,$$xmlwTBXLCToImg(LC),"LB",Taal,,"WWW")
- ;Set:(URL2[".gif")&&(..Val("BS")="BD") URL2=$$REPLACE^vhRtn1(URL2,".gif","_BS.gif")   ; Dubbelwandige boxside
+ Set LadeImageCodeBepalerInput = ##class(BL.PR.GA.TandemBox).GeefTBXLadeImageCodeBepalerInputMetDefaults(..Val("LC"),..Val("BS"),..Val("DS"),..Val("BGRP"),..Val("SPZK"), ..Val("ODSP"), ..Val("NMBS"))
+ Set URL2=##class(BL.PR.GA.TandemBox).GetImageURL("WEB", LadeImageCodeBepalerInput)
+ 
  Do TAGWRITE^XMLWRITE(DevObj,"IMAGEURL",URL2)
  Do WRITELN^XMLWRITE(DevObj)
  Quit
- /*
-xmlwTBXLCToImg(LC)
- Quit:($G(LC)="") ""
- Quit ##class(BL.PR.GA.TandemBox).ImageCodeFromLC(.LC,..Val("BS"))
- */ 
+
  
  
  ; GAData.Product methods: