Refresh portal object in Safe (#284)

This commit is contained in:
Clément Oudot 2011-03-16 13:58:17 +00:00
parent c7970b69ea
commit db97a79752

View File

@ -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