File tree Expand file tree Collapse file tree 2 files changed +4
-4
lines changed
Expand file tree Collapse file tree 2 files changed +4
-4
lines changed Original file line number Diff line number Diff line change @@ -101,7 +101,7 @@ Public Property Get LoginUrl() As String
101101 If ScopeString = "" Then
102102 ScopeString = Scope
103103 Else
104- ScopeString = ScopeString & "+ " & Scope
104+ ScopeString = ScopeString & " " & Scope
105105 End If
106106 End If
107107 Next Scope
@@ -376,7 +376,7 @@ Private Function OAuthIsDenied(IE As Object) As Boolean
376376
377377 Dim Element As Object
378378 For Each Element In Document.Body.all
379- If Element.nodeName = "P" And Element.ID = "access_denied" Then
379+ If Element.nodeName = "P" And Element.Id = "access_denied" Then
380380 OAuthIsDenied = True
381381 Exit Function
382382 End If
@@ -420,9 +420,9 @@ Private Function OAuthExtractError(IE As Object) As String
420420
421421 Set Document = IE.Document
422422 For Each Element In Document.Body.all
423- If Element.ID = "errorCode" Then
423+ If Element.Id = "errorCode" Then
424424 OAuthExtractError = Element.innerHTML
425- ElseIf Element.ID = "errorDescription" Then
425+ ElseIf Element.Id = "errorDescription" Then
426426 OAuthExtractError = OAuthExtractError & ", " & Element.innerHTML
427427 Exit Function
428428 End If
You can’t perform that action at this time.
0 commit comments