Index: BL/Prod/ImageLinkImport.cls.xml
===================================================================
diff -u -r2677 -r2692
--- BL/Prod/ImageLinkImport.cls.xml	(.../ImageLinkImport.cls.xml)	(revision 2677)
+++ BL/Prod/ImageLinkImport.cls.xml	(.../ImageLinkImport.cls.xml)	(revision 2692)
@@ -7,7 +7,6 @@
 <IncludeCode>vhLib.Macro,Prod.Product</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<ClassDefinitionError>0</ClassDefinitionError>
 
 <Parameter name="TBXObjType">
 <Default>TBX</Default>
@@ -778,7 +777,7 @@
  	SELECT ImageLink->%ID,Element_Key,Links_VisueelType,Links_Extensie,Links_Pad,Links_BestandsNaam
  	INTO :ImgID,:Key,:VisueelType,:Extensie,:Pad,:Naam
 	FROM Res.ImageLink_Links 
-	WHERE Links_VisueelType="P")
+	WHERE Links_VisueelType='P')
 	&sql(OPEN AddSVG)
  	For  &sql(FETCH AddSVG) Quit:SQLCODE  Do
  	. Set Cache("IL",Naam,ImgID)=""
@@ -868,7 +867,7 @@
  	SELECT ImageLink->%ID,Element_Key,Links_VisueelType,Links_Extensie,Links_Pad,Links_BestandsNaam
  	INTO :ImgID,:Key,:VisueelType,:Extensie,:Pad,:Naam
 	FROM Res.ImageLink_Links 
-	WHERE Links_VisueelType="P")
+	WHERE Links_VisueelType='P')
 	&sql(OPEN RplVHImg)
  	For  &sql(FETCH RplVHImg) Quit:SQLCODE  Do
 	. Quit:$E(Naam,$L(Naam)-1,$L(Naam))="VH" ; reeds VH versie
@@ -925,7 +924,7 @@
  	SELECT ImageLink->%ID,Element_Key, Links_Extensie,Links_Pad,Links_BestandsNaam
  	INTO :ImgID,:Key,:Extensie,:Pad,:Naam
 	FROM Res.ImageLink_Links 
-	WHERE Links_VisueelType="P" and ImageLink->ObjType="PR" and ImageLink->ObjRef=:PRNr and ImageLink->FunctieType=:FunctieType)
+	WHERE Links_VisueelType='P' and ImageLink->ObjType='PR' and ImageLink->ObjRef=:PRNr and ImageLink->FunctieType=:FunctieType)
 	&sql(OPEN GetImgScale)
  	For  &sql(FETCH GetImgScale) Quit:SQLCODE  Do
  	. Do ..SetScaleFactor(Naam,FunctieType,ScaleFactor)
@@ -944,7 +943,7 @@
  	SELECT ImageLink->%ID,Element_Key, Links_Extensie,Links_Pad, Links_BestandsNaam, ImageLink->ScaleFactor
  	INTO :ImgID,:Key,:Extensie,:Pad,:Naam,:OldScale
 	FROM Res.ImageLink_Links 
-	WHERE Links_VisueelType="P" and Links_BestandsNaam=:ImageName and ImageLink->FunctieType=:FunctieType)
+	WHERE Links_VisueelType='P' and Links_BestandsNaam=:ImageName and ImageLink->FunctieType=:FunctieType)
 	&sql(OPEN SetScaleFactor)
  	For  &sql(FETCH SetScaleFactor) Quit:SQLCODE  Do
  	. Set oImg=##class(Res.ImageLink).%OpenId(ImgID)