replace aCopia for laLista

Author: Irwin1985

jsonfox.app

@@ -4,7 +4,7 @@ define class JSONClass as session
 	LastErrorText 	= ""
 	lError 			= .f.
 	lShowErrors 	= .t.
-	version 		= "9.10"
+	version 		= "9.11"
 	hidden lInternal
 	hidden lTablePrompt
 	Dimension aCustomArray[1]

src/jsonclass.prg

@@ -95,7 +95,7 @@ define class ObjectToJSON as session
 					*local array aCopia(alen(tValue. &gaMembers[j]))
 					local array laLista[1]
 					=acopy(tValue. &gaMembers[j], laLista)
-					lcJSONStr = lcJSONStr + this.AnyToJson(@aCopia)
+					lcJSONStr = lcJSONStr + this.AnyToJson(@laLista)
 				catch
 					try
 						lcJSONStr = lcJSONStr + this.AnyToJson(tValue. &gaMembers[j])