LEMONLDAP::NG : little bug in redirect sub (Portal/Simple.pm)

modules/lemonldap-ng-manager/Changes

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

modules/lemonldap-ng-portal/Changes

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

modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Simple.pm

@@ -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(@_);