dani/lemonldap-ng
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

LEMONLDAP::NG : minnor things

Browse Source
This commit is contained in:
Xavier Guimard 2008-12-03 18:30:57 +00:00
parent b8905b4247
commit 5f552f4085
2 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Menu.pm
View File

@ -2,7 +2,6 @@ package Lemonldap::NG::Portal::Menu;
use strict; use strict;
use warnings; use warnings;
use Exporter 'import';
use Lemonldap::NG::Portal::SharedConf; use Lemonldap::NG::Portal::SharedConf;
use Lemonldap::NG::Portal::_LDAP; use Lemonldap::NG::Portal::_LDAP;
use XML::LibXML; use XML::LibXML;
@ -10,8 +9,6 @@ use Safe;
our $VERSION = '0.01'; our $VERSION = '0.01';
our @ISA = qw(Exporter);
### ACCESS CONTROL DISPLAY SYSTEM ### ACCESS CONTROL DISPLAY SYSTEM
our ( $defaultCondition, $locationCondition, $locationRegexp, $cfgNum, $path ) = our ( $defaultCondition, $locationCondition, $locationRegexp, $cfgNum, $path ) =
@ -201,7 +198,7 @@ sub _getXML {
eval { eval {
$xml = $parser->parse_file( $self->{apps}->{xmlfile} ); $xml = $parser->parse_file( $self->{apps}->{xmlfile} );
}; };
$self->{portalObject}->abort("Fichier XML incorrect", $@) if($@); $self->{portalObject}->abort("Bad XML file", $@) if($@);
my $root = $xml->documentElement; my $root = $xml->documentElement;
# Filter XML file with user's authorizations # Filter XML file with user's authorizations

2
modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Simple.pm
View File

@ -456,7 +456,7 @@ sub controlExistingSession {
-expires=> '-1d', -expires=> '-1d',
@_, @_,
); );
$self->{error} = PE_REDIRECT; $self->{error} = PE_REDIRECT;
$self->_subProcess(qw(log autoRedirect)); $self->_subProcess(qw(log autoRedirect));
return PE_FIRSTACCESS; return PE_FIRSTACCESS;
} }