@ -5,7 +5,7 @@ use strict;
use Exporter 'import';
use base qw(Exporter);
our $VERSION = '2.0.8';
our $VERSION = '2.0.9';
# CONSTANTS
@ -1,7 +1,7 @@
# This file is generated by Lemonldap::NG::Manager::Build. Don't modify it by hand
package Lemonldap::NG::Common::Conf::DefaultValues;
sub defaultValues {
return {
our %EXPORT_TAGS = ( 'all' => [qw($simpleHashKeys $doubleHashKeys $specialNodeKeys $casAppMetaDataNodeKeys $casSrvMetaDataNodeKeys $oidcOPMetaDataNodeKeys $oidcRPMetaDataNodeKeys $samlIDPMetaDataNodeKeys $samlSPMetaDataNodeKeys $virtualHostKeys $specialNodeHash $authParameters $issuerParameters $samlServiceParameters $oidcServiceParameters $casServiceParameters)] );
our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
@ -4,7 +4,7 @@ package Lemonldap::NG::Handler::Lib::StatusConstants;
use strict;
sub portalConsts {
package Lemonldap::NG::Manager::Attributes;
sub perlExpr {
my ( $val, $conf ) = @_;
@ -6,7 +6,7 @@
package Lemonldap::NG::Manager::Build::Attributes;
use Regexp::Common qw/URI/;
@ -18,7 +18,7 @@ sub body {
# Test that key value is sent
my $res = &client->jsonResponse('/view/1/portalDisplayOidcConsents');
ok( $res->{value} eq '$_oidcConnectedRP', 'Key found' );
ok( $res->{value} eq '$_oidcConsents', 'Key found' );
count(1);
# Test that hidden key values are NOT sent
@ -44,7 +44,7 @@ count(2);
# Test that Conf key value is sent
$res = $client2->jsonResponse('/view/2/portalDisplayOidcConsents');
ok( $res->{value} eq '$_oidcConnectedRP', 'Key found' )
ok( $res->{value} eq '$_oidcConsents', 'Key found' )
or print STDERR Dumper($res);
@ -4,7 +4,7 @@ package Lemonldap::NG::Portal::Main::Constants;
use constant HANDLER => 'Lemonldap::NG::Handler::PSGI::Main';
use constant {