Sub LoginScan_result(ScanType As String, ScanValues As String)
' If the scan type is not QR_CODE, then ask to scan again
If ScanType.ToLowerCase <> "qr_code" Then
LoginScanner.BeginScan("LoginScan")
ToastMessageShow("Scan failed. Please try again.",True)
Return False
End If
Dim jsonString As String = ScanValues.Trim
If jsonString.CharAt(0) <> "{" OR jsonString.CharAt(jsonString.Length-1) <> "}" Then
LoginScanner.BeginScan("LoginScan")
ToastMessageShow("Scan failed. Please try again.",True)
Return False
End If
Dim json As JSONParser
Dim m As Map
json.Initialize(jsonString)
m = json.NextObject ' This line throws an error if the JSON data is not valid
End Sub