@@ -749,7 +749,7 @@ sub dump_users {
749
749
}
750
750
}
751
751
752
- # Compat.<=6.2.38
752
+ # Compat.<=6.2.40
753
753
# This is needed for earlier version of Sympa on e.g. remote host.
754
754
print $lock_fh " included 1\n "
755
755
if defined $user -> {inclusion };
@@ -766,7 +766,7 @@ sub dump_users {
766
766
if defined $user -> {$k } and length $user -> {$k };
767
767
}
768
768
769
- # Compat.<=6.2.38
769
+ # Compat.<=6.2.40
770
770
# This is needed for earlier version of Sympa on e.g. remote host.
771
771
print $lock_fh " included 1\n "
772
772
if defined $user -> {inclusion };
@@ -2679,7 +2679,7 @@ sub get_list_member {
2679
2679
$user -> {' custom_attribute' });
2680
2680
}
2681
2681
2682
- # Compat.<=6.2.38 FIXME: needed?
2682
+ # Compat.<=6.2.40 FIXME: needed?
2683
2683
$user -> {' included' } = 1
2684
2684
if defined $user -> {' inclusion' };
2685
2685
} else {
@@ -2812,7 +2812,7 @@ sub get_first_list_member {
2812
2812
$user -> {' custom_attribute' });
2813
2813
}
2814
2814
2815
- # Compat.<=6.2.38 FIXME: needed?
2815
+ # Compat.<=6.2.40 FIXME: needed?
2816
2816
$user -> {' included' } = 1
2817
2817
if defined $user -> {' inclusion' };
2818
2818
} else {
@@ -2872,7 +2872,7 @@ sub get_next_list_member {
2872
2872
$user -> {' custom_attribute' } = $custom_attr ;
2873
2873
}
2874
2874
2875
- # Compat.<=6.2.38 FIXME: needed?
2875
+ # Compat.<=6.2.40 FIXME: needed?
2876
2876
$user -> {' included' } = 1
2877
2877
if defined $user -> {' inclusion' };
2878
2878
} else {
@@ -3092,7 +3092,7 @@ sub get_current_admins {
3092
3092
$user -> {' visibility' } ||= ' noconceal' ;
3093
3093
$user -> {' update_date' } ||= $user -> {' date' };
3094
3094
3095
- # Compat.<=6.2.38 FIXME: needed?
3095
+ # Compat.<=6.2.40 FIXME: needed?
3096
3096
$user -> {' included' } = 1
3097
3097
if defined $user -> {' inclusion' };
3098
3098
}
@@ -3159,7 +3159,7 @@ sub get_first_bouncing_list_member {
3159
3159
$self -> {' name' })
3160
3160
unless defined $user -> {' email' } and length $user -> {' email' };
3161
3161
3162
- # Compat.<=6.2.38 FIXME: needed?
3162
+ # Compat.<=6.2.40 FIXME: needed?
3163
3163
$user -> {' included' } = 1
3164
3164
if defined $user -> {' inclusion' };
3165
3165
} else {
@@ -3198,7 +3198,7 @@ sub get_next_bouncing_list_member {
3198
3198
$user -> {' custom_attribute' });
3199
3199
}
3200
3200
3201
- # Compat.<=6.2.38 FIXME: needed?
3201
+ # Compat.<=6.2.40 FIXME: needed?
3202
3202
$user -> {' included' } = 1
3203
3203
if defined $user -> {' inclusion' };
3204
3204
} else {
@@ -3384,7 +3384,7 @@ sub get_members {
3384
3384
$user -> {custom_attribute } = $custom_attr ;
3385
3385
}
3386
3386
3387
- # Compat.<=6.2.38 FIXME: needed?
3387
+ # Compat.<=6.2.40 FIXME: needed?
3388
3388
$user -> {included } = 1
3389
3389
if defined $user -> {' inclusion' };
3390
3390
}
@@ -3776,7 +3776,7 @@ sub update_list_admin {
3776
3776
# }
3777
3777
# }
3778
3778
3779
- # Compat.<=6.2.38 FIXME: is this used?
3779
+ # Compat.<=6.2.40 FIXME: is this used?
3780
3780
$values -> {inclusion } ||= ($values -> {update_date } || time )
3781
3781
if $values -> {included };
3782
3782
@@ -3958,7 +3958,7 @@ sub add_list_member {
3958
3958
$new_user -> {' custom_attribute' }
3959
3959
);
3960
3960
3961
- # Compat.<=6.2.38 FIXME: needed?
3961
+ # Compat.<=6.2.40 FIXME: needed?
3962
3962
$new_user -> {' inclusion' } ||= ($new_user -> {' date' } || time )
3963
3963
if $new_user -> {' included' };
3964
3964
@@ -4137,7 +4137,7 @@ sub _add_list_admin {
4137
4137
$user -> {' date' } ||= time ;
4138
4138
$user -> {' update_date' } ||= $user -> {' date' };
4139
4139
4140
- # Compat.<=6.2.38 FIXME: needed?
4140
+ # Compat.<=6.2.40 FIXME: needed?
4141
4141
$user -> {' inclusion' } ||= $user -> {' date' }
4142
4142
if $user -> {' included' };
4143
4143
@@ -4501,7 +4501,7 @@ sub restore_users {
4501
4501
next unless $user -> {email };
4502
4502
4503
4503
$user -> {update_date } = $time ;
4504
- # Compat. <= 6.2.38
4504
+ # Compat. <= 6.2.40
4505
4505
# This is needed for dump by earlier version of Sympa.
4506
4506
$user -> {inclusion } ||= ($user -> {update_date } || time )
4507
4507
if $user -> {included };
@@ -4534,7 +4534,7 @@ sub restore_users {
4534
4534
next unless defined $user -> {email } and length $user -> {email };
4535
4535
4536
4536
$user -> {update_date } = $time ;
4537
- # Compat. <= 6.2.38
4537
+ # Compat. <= 6.2.40
4538
4538
# This is needed for dump by earlier version of Sympa.
4539
4539
$user -> {inclusion } ||= ($user -> {update_date } || time )
4540
4540
if $user -> {included };
0 commit comments