Skip to content

Commit 9b267c9

Browse files
committed
Merge pull request #35 from timhall/google-auth-fixes
Fix GoogleAuthenticator scope string bug
2 parents a3b7cb8 + fda74b4 commit 9b267c9

File tree

2 files changed

+4
-4
lines changed

2 files changed

+4
-4
lines changed

authenticators/GoogleAuthenticator.cls

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff 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

examples/Excel-REST - Example.xlsm

68.6 KB
Binary file not shown.

0 commit comments

Comments
 (0)