LEMONLDAP::NG : minnor things
This commit is contained in:
parent
b8905b4247
commit
5f552f4085
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue
Block a user