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
101
101
If ScopeString = "" Then
102
102
ScopeString = Scope
103
103
Else
104
- ScopeString = ScopeString & "+ " & Scope
104
+ ScopeString = ScopeString & " " & Scope
105
105
End If
106
106
End If
107
107
Next Scope
@@ -376,7 +376,7 @@ Private Function OAuthIsDenied(IE As Object) As Boolean
376
376
377
377
Dim Element As Object
378
378
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
380
380
OAuthIsDenied = True
381
381
Exit Function
382
382
End If
@@ -420,9 +420,9 @@ Private Function OAuthExtractError(IE As Object) As String
420
420
421
421
Set Document = IE.Document
422
422
For Each Element In Document.Body.all
423
- If Element.ID = "errorCode" Then
423
+ If Element.Id = "errorCode" Then
424
424
OAuthExtractError = Element.innerHTML
425
- ElseIf Element.ID = "errorDescription" Then
425
+ ElseIf Element.Id = "errorDescription" Then
426
426
OAuthExtractError = OAuthExtractError & ", " & Element.innerHTML
427
427
Exit Function
428
428
End If
You can’t perform that action at this time.
0 commit comments