LEMONLDAP::NG : little bug in redirect sub (Portal/Simple.pm)
This commit is contained in:
parent
397077bcc7
commit
2df9aed0f9
|
@ -3,6 +3,9 @@ Revision history for Perl extension Lemonldap::NG::Manager.
|
|||
0.8 Sat jun 23 21:54:27 2007
|
||||
- New feature: syntax errors are now displayed in the manager interface
|
||||
|
||||
0.72 Tue jun 20 22:00:15 2007
|
||||
- Javascript rewrite
|
||||
|
||||
0.71 Mon jun 19 22:22:33 2007
|
||||
- Bug in javascript : a 'z' is added in regexp
|
||||
|
||||
|
|
|
@ -1,5 +1,8 @@
|
|||
Revision history for Perl extension Lemonldap::NG::Portal.
|
||||
|
||||
0.741 Tue Jul 3 7:21:16 2007
|
||||
- Little bug in redirect sub
|
||||
|
||||
0.74 Mon May 14 7:04:48 2007
|
||||
- Multiple ldap servers can be used
|
||||
- CDA optimization
|
||||
|
|
|
@ -13,7 +13,7 @@ use CGI::Cookie;
|
|||
require POSIX;
|
||||
use Lemonldap::NG::Portal::_i18n;
|
||||
|
||||
our $VERSION = '0.74';
|
||||
our $VERSION = '0.741';
|
||||
|
||||
our @ISA = qw(CGI Exporter);
|
||||
|
||||
|
@ -131,8 +131,8 @@ sub header {
|
|||
# CGI.pm overload to add Lemonldap::NG cookie
|
||||
sub redirect {
|
||||
my $self = shift;
|
||||
if ( $_[0]->{cookie} ) {
|
||||
$self->SUPER::redirect( @_, -cookie => $_[0]->{cookie} );
|
||||
if ( $self->{cookie} ) {
|
||||
$self->SUPER::redirect( @_, -cookie => $self->{cookie} );
|
||||
}
|
||||
else {
|
||||
$self->SUPER::redirect(@_);
|
||||
|
|
Loading…
Reference in New Issue