Correction issued from the first test in real life:

* Close #306573 / forge.objectweb.org
 * Close #306574 / forge.objectweb.org
This commit is contained in:
Xavier Guimard 2007-01-17 20:00:54 +00:00
parent 391b0dffec
commit 1e2d74157c
4 changed files with 11 additions and 5 deletions

View File

@ -1,5 +1,10 @@
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)

View File

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

View File

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

View File

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