Fix session display in Session Exporer (#648)

lemonldap-ng-manager/example/notifications.pl

@@ -48,6 +48,7 @@ $template->param( DIR         => "$skin_dir/$skin" );
 $template->param( CSS         => $css );
 $template->param( CSS_THEME   => $css_theme );
 $template->param( VERSION     => $Lemonldap::NG::Manager::VERSION );
+$template->param( LANG        => shift $cgi->{lang} );
 print $cgi->header('text/html; charset=utf-8');
 print $template->output;
 

lemonldap-ng-manager/example/sessions.pl

@@ -46,6 +46,7 @@ $template->param( DIR         => "$skin_dir/$skin" );
 $template->param( CSS         => $css );
 $template->param( CSS_THEME   => $css_theme );
 $template->param( VERSION     => $Lemonldap::NG::Manager::VERSION );
+$template->param( LANG        => shift $cgi->{lang} );
 print $cgi->header('text/html; charset=utf-8');
 print $template->output;
 

lemonldap-ng-manager/example/skins/default/notifications.tpl

@@ -25,6 +25,7 @@
         var themepath='<TMPL_VAR NAME="DIR">/';
 	var treejquerycss='false';
 	var treeautoclose='false';
+        var lang='<TMPL_VAR NAME="LANG">';
 //]]></script>
 <script src="<TMPL_VAR NAME="DIR">/js/manager.js" type="text/JavaScript"></script>
 <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />

lemonldap-ng-manager/example/skins/default/sessions.tpl

@@ -25,6 +25,7 @@
         var themepath='<TMPL_VAR NAME="DIR">/';
 	var treejquerycss='false';
 	var treeautoclose='false';
+        var lang='<TMPL_VAR NAME="LANG">';
 //]]></script>
 <script src="<TMPL_VAR NAME="DIR">/js/manager.js" type="text/JavaScript"></script>
 <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />

lemonldap-ng-manager/lib/Lemonldap/NG/Manager/Sessions.pm

@@ -470,6 +470,9 @@ sub session {
     # -> quote HTML
     foreach ( keys %session ) {
 
+        # Don't touch references
+        next if ref $session{$_};
+
         # Remove empty value
         delete $session{$_} unless ( length $session{$_} );
 
@@ -595,7 +598,7 @@ sub session {
         foreach ( keys %session ) {
             next if $_ !~ /^notification_(.+)/;
             $res .=
-                '<li><strong>' 
+                '<li><strong>'
               . $1
               . '</strong>: '
               . $session{$_} . " ("