@@ -750,7 +750,7 @@ sub dump_users {
750
750
}
751
751
}
752
752
753
- # Compat.<=6.2.38
753
+ # Compat.<=6.2.40
754
754
# This is needed for earlier version of Sympa on e.g. remote host.
755
755
print $lock_fh " included 1\n "
756
756
if defined $user -> {inclusion };
@@ -767,7 +767,7 @@ sub dump_users {
767
767
if defined $user -> {$k } and length $user -> {$k };
768
768
}
769
769
770
- # Compat.<=6.2.38
770
+ # Compat.<=6.2.40
771
771
# This is needed for earlier version of Sympa on e.g. remote host.
772
772
print $lock_fh " included 1\n "
773
773
if defined $user -> {inclusion };
@@ -2680,7 +2680,7 @@ sub get_list_member {
2680
2680
$user -> {' custom_attribute' });
2681
2681
}
2682
2682
2683
- # Compat.<=6.2.38 FIXME: needed?
2683
+ # Compat.<=6.2.40 FIXME: needed?
2684
2684
$user -> {' included' } = 1
2685
2685
if defined $user -> {' inclusion' };
2686
2686
} else {
@@ -2813,7 +2813,7 @@ sub get_first_list_member {
2813
2813
$user -> {' custom_attribute' });
2814
2814
}
2815
2815
2816
- # Compat.<=6.2.38 FIXME: needed?
2816
+ # Compat.<=6.2.40 FIXME: needed?
2817
2817
$user -> {' included' } = 1
2818
2818
if defined $user -> {' inclusion' };
2819
2819
} else {
@@ -2873,7 +2873,7 @@ sub get_next_list_member {
2873
2873
$user -> {' custom_attribute' } = $custom_attr ;
2874
2874
}
2875
2875
2876
- # Compat.<=6.2.38 FIXME: needed?
2876
+ # Compat.<=6.2.40 FIXME: needed?
2877
2877
$user -> {' included' } = 1
2878
2878
if defined $user -> {' inclusion' };
2879
2879
} else {
@@ -3093,7 +3093,7 @@ sub get_current_admins {
3093
3093
$user -> {' visibility' } ||= ' noconceal' ;
3094
3094
$user -> {' update_date' } ||= $user -> {' date' };
3095
3095
3096
- # Compat.<=6.2.38 FIXME: needed?
3096
+ # Compat.<=6.2.40 FIXME: needed?
3097
3097
$user -> {' included' } = 1
3098
3098
if defined $user -> {' inclusion' };
3099
3099
}
@@ -3160,7 +3160,7 @@ sub get_first_bouncing_list_member {
3160
3160
$self -> {' name' })
3161
3161
unless defined $user -> {' email' } and length $user -> {' email' };
3162
3162
3163
- # Compat.<=6.2.38 FIXME: needed?
3163
+ # Compat.<=6.2.40 FIXME: needed?
3164
3164
$user -> {' included' } = 1
3165
3165
if defined $user -> {' inclusion' };
3166
3166
} else {
@@ -3199,7 +3199,7 @@ sub get_next_bouncing_list_member {
3199
3199
$user -> {' custom_attribute' });
3200
3200
}
3201
3201
3202
- # Compat.<=6.2.38 FIXME: needed?
3202
+ # Compat.<=6.2.40 FIXME: needed?
3203
3203
$user -> {' included' } = 1
3204
3204
if defined $user -> {' inclusion' };
3205
3205
} else {
@@ -3385,7 +3385,7 @@ sub get_members {
3385
3385
$user -> {custom_attribute } = $custom_attr ;
3386
3386
}
3387
3387
3388
- # Compat.<=6.2.38 FIXME: needed?
3388
+ # Compat.<=6.2.40 FIXME: needed?
3389
3389
$user -> {included } = 1
3390
3390
if defined $user -> {' inclusion' };
3391
3391
}
@@ -3777,7 +3777,7 @@ sub update_list_admin {
3777
3777
# }
3778
3778
# }
3779
3779
3780
- # Compat.<=6.2.38 FIXME: is this used?
3780
+ # Compat.<=6.2.40 FIXME: is this used?
3781
3781
$values -> {inclusion } ||= ($values -> {update_date } || time )
3782
3782
if $values -> {included };
3783
3783
@@ -3964,7 +3964,7 @@ sub add_list_member {
3964
3964
$new_user -> {' custom_attribute' }
3965
3965
);
3966
3966
3967
- # Compat.<=6.2.38 FIXME: needed?
3967
+ # Compat.<=6.2.40 FIXME: needed?
3968
3968
$new_user -> {' inclusion' } ||= ($new_user -> {' date' } || time )
3969
3969
if $new_user -> {' included' };
3970
3970
@@ -4143,7 +4143,7 @@ sub _add_list_admin {
4143
4143
$user -> {' date' } ||= time ;
4144
4144
$user -> {' update_date' } ||= $user -> {' date' };
4145
4145
4146
- # Compat.<=6.2.38 FIXME: needed?
4146
+ # Compat.<=6.2.40 FIXME: needed?
4147
4147
$user -> {' inclusion' } ||= $user -> {' date' }
4148
4148
if $user -> {' included' };
4149
4149
@@ -4513,7 +4513,7 @@ sub restore_users {
4513
4513
next unless $user -> {email };
4514
4514
4515
4515
$user -> {update_date } = $time ;
4516
- # Compat. <= 6.2.38
4516
+ # Compat. <= 6.2.40
4517
4517
# This is needed for dump by earlier version of Sympa.
4518
4518
$user -> {inclusion } ||= ($user -> {update_date } || time )
4519
4519
if $user -> {included };
@@ -4546,7 +4546,7 @@ sub restore_users {
4546
4546
next unless defined $user -> {email } and length $user -> {email };
4547
4547
4548
4548
$user -> {update_date } = $time ;
4549
- # Compat. <= 6.2.38
4549
+ # Compat. <= 6.2.40
4550
4550
# This is needed for dump by earlier version of Sympa.
4551
4551
$user -> {inclusion } ||= ($user -> {update_date } || time )
4552
4552
if $user -> {included };
0 commit comments