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 warnings;
use Exporter 'import';
use Lemonldap::NG::Portal::SharedConf;
use Lemonldap::NG::Portal::_LDAP;
use XML::LibXML;
@ -10,8 +9,6 @@ use Safe;
our $VERSION = '0.01';
our @ISA = qw(Exporter);
### ACCESS CONTROL DISPLAY SYSTEM
our ( $defaultCondition, $locationCondition, $locationRegexp, $cfgNum, $path ) =
@ -201,7 +198,7 @@ sub _getXML {
eval {
$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;
# 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',
@_,
);
$self->{error} = PE_REDIRECT;
$self->{error} = PE_REDIRECT;
$self->_subProcess(qw(log autoRedirect));
return PE_FIRSTACCESS;
}