Commit 7d595d04 authored by Xavier Guimard's avatar Xavier Guimard

Correction issued from the first test in real life:

 * Close #306573 / forge.objectweb.org
 * Close #306574 / forge.objectweb.org


git-svn-id: svn://svn.forge.objectweb.org/svnroot/lemonldap/trunk@25 1dbb9719-a921-0410-b57f-c3a383c2c641
parent 36a35f51
Revision history for Perl extension Lemonldap::NG::Manager.
0.42 Wed Jan 17 20:35:43 2007
- Correction issued from the first test in real life:
* Close #306573 / forge.objectweb.org
* Close #306574 / forge.objectweb.org
0.41 Sun Jan 14 14:04:05 2007
- I18n in javascripts (close #306564 / forge.objectweb.org)
- Increase number of help chapter (General Parameters)
......
......@@ -12,7 +12,7 @@ require Lemonldap::NG::Manager::Help;
our @ISA = qw(Lemonldap::NG::Manager::Base);
our $VERSION = '0.41';
our $VERSION = '0.42';
sub new {
my ( $class, $args ) = @_;
......
......@@ -4,7 +4,7 @@ use strict;
use Storable qw(thaw freeze);
use MIME::Base64;
our $VERSION = 0.4;
our $VERSION = 0.41;
our @ISA;
sub new {
......@@ -65,9 +65,9 @@ sub getConf {
my $conf;
while ( my ( $k, $v ) = each(%$fields) ) {
my $tmp;
eval "\$tmp = thaw(decode_base64($v))";
$v =~ s/^'(.*)'$/$1/m;
eval "\$tmp = thaw(decode_base64('$v'))";
if ( $@ or not($tmp) ) {
$v =~ s/^'(.*)'$/$1/m;
$conf->{$k} = $v;
}
else {
......
......@@ -6,7 +6,7 @@ package Lemonldap::NG::Manager::_HTML;
use AutoLoader qw(AUTOLOAD);
require Lemonldap::NG::Manager::_i18n;
our $VERSION = '0.11';
our $VERSION = '0.12';
1;
__END__
......@@ -294,6 +294,7 @@ function saveConf(){
function tree2txt(id){
var s=tree.getSubItems(id);
var c=s.split(',');
id = id.replace(/[0-9]*_/,'');
var r='<'+id+"><text>"+ec(tree.getItemText(id))+"</text>\\n";
if((!s) || s=='' || c.length==0){
r+= '<value>'+ec(tree.getUserData(id,'value'))+"</value>\\n";
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment