Working on Facebook (#595)

Seems to work but not fully tested

lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Auth/Facebook.pm

@@ -41,7 +41,7 @@ sub extractFormInfo {
             my @fields = ('id');
 
             # Look at wanted fields
-            if ( $self->getModule('user') =~ /^Facebook/ ) {
+            if ( $self->getModule( $req, 'user' ) =~ /^Facebook/ ) {
                 push @fields,
                   map { /^(\w+)$/ ? ($1) : () }
                   values %{ $self->conf->{facebookExportedVars} };

lemonldap-ng-portal/lib/Lemonldap/NG/Portal/UserDB/Facebook.pm

@@ -20,7 +20,7 @@ has vars => (
 
 sub init {
     my ($self) = @_;
-    unless ( $self->p->getModule('auth') =~ /^Facebook/ ) {
+    unless ( $self->p->getModule(undef,'auth') =~ /^Facebook/ ) {
         $self->error(
 "UserDBFacebook isn't useable unless authentication module is set to Facebook"
         );