Re: [sympa-fr] Bug sur supression de moderateur par wwwsympa.

[Olivier Salaun <adresse@cachée>]

Bonjour,

Christophe Turbout wrote:
> 
> J'ai une erreur lorsque je supprime un moderateur.
> il ne veut pas le faire et me met :editeur comme erreur
> (c'est pour supprimer tous les modérateurs)
> la liste est une liste newsletter.
> Sympa 3.1b9

Je viens de corriger ce bug dans la version de développement.
Ci-joint un patch correctif.

--
Olivier Salaün
Comité Réseaux des UniversitésIndex: sympa/wwsympa/wwsympa.fcgi
diff -c sympa/wwsympa/wwsympa.fcgi:1.54 sympa/wwsympa/wwsympa.fcgi:1.55
*** sympa/wwsympa/wwsympa.fcgi:1.54     Wed Mar 21 16:48:05 2001
--- sympa/wwsympa/wwsympa.fcgi  Thu Mar 22 12:09:23 2001
***************
*** 4157,4163 ****
                }
                ## Hash
            }elsif (ref ($pinfo->{$pname}{'format'}) eq 'HASH') {
! 
                foreach my $key (keys %{$pinfo->{$pname}{'format'}}) {
  
                    next unless 
($list->may_edit("$pname.$key",$param->{'user'}{'email'}) eq 'write');
--- 4157,4164 ----
                }
                ## Hash
            }elsif (ref ($pinfo->{$pname}{'format'}) eq 'HASH') {
!               
!               ## Foreach Keys
                foreach my $key (keys %{$pinfo->{$pname}{'format'}}) {
  
                    next unless 
($list->may_edit("$pname.$key",$param->{'user'}{'email'}) eq 'write');
***************
*** 4167,4195 ****
                            $changed{$pname} = 1; next;
                        }
                    }else{
                        if ($pinfo->{$pname}{'format'}{$key}{'occurrence'} =~ 
/n$/) {
  
                            if ($#{$p->[$i]{$key}} != $#{$new_p->[$i]{$key}}) 
{
                                $changed{$pname} = 1; next;
                            }
                            foreach my $index (0..$#{$p->[$i]{$key}}) {
                                if ($p->[$i]{$key}[$index] ne 
$new_p->[$i]{$key}[$index]) {
!                                   unless ($new_p->[$i]{$key}[$index] =~ 
/^$pinfo->{$pname}{'format'}{$key}{'file_format'}$/) {
                                        push @syntax_error, $pname;
                                    }
                                    $changed{$pname} = 1; next;
                                }
                            }
                        }else {
                            if ($p->[$i]{$key} ne $new_p->[$i]{$key}) {
!                               unless ($new_p->[$i]{$key} =~ 
/^$pinfo->{$pname}{'format'}{$key}{'file_format'}$/) {
!                                   push @syntax_error, $pname;
!                               }
!                               
                                ## If empty and is primary key => delete entry
!                               if ((! $new_p->[$i]{$key}) && 
($pinfo->{$pname}{'format'}{$key}{'occurrence'} eq '1')) {                    
            
                                    splice @{$new_p}, $i, 1;
                                }
                                $changed{$pname} = 1; next;
                            }
                        }
--- 4168,4203 ----
                            $changed{$pname} = 1; next;
                        }
                    }else{
+                       ## Multiple param
                        if ($pinfo->{$pname}{'format'}{$key}{'occurrence'} =~ 
/n$/) {
  
                            if ($#{$p->[$i]{$key}} != $#{$new_p->[$i]{$key}}) 
{
                                $changed{$pname} = 1; next;
                            }
+ 
+                           ## Multiple param, foreach entry
                            foreach my $index (0..$#{$p->[$i]{$key}}) {
+                               
                                if ($p->[$i]{$key}[$index] ne 
$new_p->[$i]{$key}[$index]) {
!                                   
!                                   if ($new_p->[$i]{$key}[$index] !~ 
/^$pinfo->{$pname}{'format'}{$key}{'file_format'}$/) {
                                        push @syntax_error, $pname;
                                    }
                                    $changed{$pname} = 1; next;
                                }
                            }
+ 
+                       ## Single Param
                        }else {
                            if ($p->[$i]{$key} ne $new_p->[$i]{$key}) {
! 
                                ## If empty and is primary key => delete entry
!                               if ((! $new_p->[$i]{$key}) && 
($pinfo->{$pname}{'format'}{$key}{'occurrence'} eq '1')) {
                                    splice @{$new_p}, $i, 1;
+                               }elsif ($new_p->[$i]{$key} !~ 
/^$pinfo->{$pname}{'format'}{$key}{'file_format'}$/) {
+                                   push @syntax_error, $pname;
                                }
+                               
                                $changed{$pname} = 1; next;
                            }
                        }