I am very new at this (B4X) so I may be wrong, but I had a similar issue and found that I needed to add the following Sub.
It appears that is what you are missing.
B4X:
Sub Activity_PermissionResult (Permission As String, Result As Boolean)
If Permission = rp.PERMISSION_CAMERA Then
If Result Then Log("Permission granted")
End If
End Sub