LEMONLDAP::NG : little bug in SOAP error()

17 years ago · a77e385730
parent 16a29be9fa
commit a77e385730
1 changed files with 1 additions and 1 deletions
--- a/modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Simple.pm
+++ b/modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Simple.pm
@ -160,7 +160,7 @@ sub getConf {
 sub error {
    my $self = shift;
    my $lang = shift || $ENV{HTTP_ACCEPT_LANGUAGE};
-    my $code = $self->{error} || shift;
+    my $code = shift || $self->{error};
    return &Lemonldap::NG::Portal::_i18n::error( $code, $lang );
 }