Sub JobDone(Job As HttpJob)
If Job.Success Then
Dim res As String
Dim Rec As List
res = Job.GetString
If res = "" Then
Return
End If
Dim parser As JSONParser
parser.Initialize(res )
Select Job.JobName
Case "lst"
Rec.Initialize
Rec = parser.NextArray
Dim m As Map
If Rec.Size = 0 Then
Else
For Xn = 0 To Rec.Size-1
Dim ItemMap As Map
ItemMap = Rec.Get(Xn)
If Main.Lan = "TM" Then
If ItemMap.Get("T") <> "" Then
Clist.Add(CreateItem(ItemMap.Get("ID"),ItemMap.Get("T"),ItemMap.Get("E"),ItemMap.Get("S")),80dip,ItemMap.Get("ID"))
End If
else if Main.Lan = "EN" Then
If ItemMap.Get("E") <> "" Then
Clist.Add(CreateItem(ItemMap.Get("ID"),ItemMap.Get("T"),ItemMap.Get("E"),ItemMap.Get("S")),80dip,ItemMap.Get("ID"))
End If
else if Main.Lan = "SN" Then
If ItemMap.Get("S") <> "" Then
Clist.Add(CreateItem(ItemMap.Get("ID"),ItemMap.Get("T"),ItemMap.Get("E"),ItemMap.Get("S")),80dip,ItemMap.Get("ID"))
End If
End If
Next
End If
End Select
Else
Log(Job.ErrorMessage)
ToastMessageShow("Unable to process. Please check the internet connection.", True)
End If
Job.Release
End Sub