Index: DOM/PM/impl/INKLangtekstCreator.cls.xml =================================================================== diff -u -r68060 -r68601 --- DOM/PM/impl/INKLangtekstCreator.cls.xml (.../INKLangtekstCreator.cls.xml) (revision 68060) +++ DOM/PM/impl/INKLangtekstCreator.cls.xml (.../INKLangtekstCreator.cls.xml) (revision 68601) @@ -51,16 +51,20 @@ Set Paragraaf = ..Vertaler.GeefVertaling("Op_lengte") Set iterator = ##class(TECH.ListIterator).%New(..IngegevenKenmerken.Lengtes) - If ($Length(..IngegevenKenmerken.Lengtes) = 1) { - Set Paragraaf = Paragraaf _ " " _ ..IngegevenKenmerken.Lengtes.GetAt(1) + If (..IngegevenKenmerken.IdentiekeLengtes) { + Set Paragraaf = Paragraaf _ " " _ ..IngegevenKenmerken.AantalLengtes _"x " _ ..IngegevenKenmerken.Lengtes.GetAt(1) } Else { - Set Iterator = ##class(TECH.ListIterator).%New(..IngegevenKenmerken.Lengtes) - - While Iterator.HasNext() { - Set Paragraaf = Paragraaf _ " " _ Iterator.Next() + If ($Length(..IngegevenKenmerken.Lengtes) = 1) { + Set Paragraaf = Paragraaf _ " " _ ..IngegevenKenmerken.Lengtes.GetAt(1) + } Else { + Set Iterator = ##class(TECH.ListIterator).%New(..IngegevenKenmerken.Lengtes) - If Iterator.HasNext() { - Set Paragraaf = Paragraaf _ " " _ ..Vertaler.GeefVertaling("en") + While Iterator.HasNext() { + Set Paragraaf = Paragraaf _ " " _ Iterator.Next() + + If Iterator.HasNext() { + Set Paragraaf = Paragraaf _ " " _ ..Vertaler.GeefVertaling("en") + } } } }