Refresh portal object in Safe (#284)
This commit is contained in:
parent
c7970b69ea
commit
db97a79752
@ -63,7 +63,7 @@ use Digest::MD5;
|
||||
#inherits Apache::Session
|
||||
#link Lemonldap::NG::Common::Apache::Session::SOAP protected globalStorage
|
||||
|
||||
our $VERSION = '1.0.2';
|
||||
our $VERSION = '1.0.4';
|
||||
|
||||
use base qw(Lemonldap::NG::Common::CGI Exporter);
|
||||
our @ISA;
|
||||
@ -1090,8 +1090,17 @@ sub get_module {
|
||||
#@return Safe object
|
||||
sub safe {
|
||||
my $self = shift;
|
||||
return $safe if ($safe);
|
||||
|
||||
# Test if safe already exists
|
||||
if ($safe) {
|
||||
|
||||
# Refresh the portal object inside it
|
||||
$safe->{p} = $self;
|
||||
|
||||
return $safe;
|
||||
}
|
||||
|
||||
# Else create it
|
||||
$safe = Lemonldap::NG::Common::Safe->new($self);
|
||||
|
||||
# Get custom functions
|
||||
|
Loading…
Reference in New Issue
Block a user