Commit cedf04a7 authored by sikeda's avatar sikeda
Browse files

[-dev] Suppress warning on redefined variable.


git-svn-id: https://subversion.renater.fr/sympa/branches/sympa-6.2-branch@12598 05aa8bb8-cd2b-0410-b1d7-8918dfa770ce
parent f0b4a3e5
......@@ -1742,19 +1742,19 @@ sub getDetails {
}
sub setDetails {
my $class = shift;
my $listname = shift;
my $subscriber;
my $list;
my %newcustom = ();
my %user = ();
my $class = shift;
my $listname = shift;
my $gecos = shift;
my $reception = shift;
my ($key, $value);
my $sender = $ENV{'USER_EMAIL'};
my $robot = $ENV{'SYMPA_ROBOT'};
my $subscriber;
my $list;
my %newcustom;
my %user;
unless ($sender) {
die SOAP::Fault->faultcode('Client')
->faultstring('User not authenticated')
......@@ -1785,8 +1785,7 @@ sub setDetails {
'Use : <list> <gecos> <reception> [ <key> <value> ] ...');
}
# Set subscriber values; return 1 for success
my %user;
# Set subscriber values; return 1 for success.
$user{gecos} = $gecos if defined $gecos and $gecos =~ /\S/;
$user{reception} = $reception
# ideally, this should check against the available_user_options
......@@ -1797,9 +1796,9 @@ sub setDetails {
if (@_) { # do we have any custom attributes passed?
%newcustom = %{$subscriber->{'custom_attribute'}};
while (@_) {
$key = shift;
my $key = shift;
next unless $key;
$value = shift;
my $value = shift;
if (!defined $value or $value eq '') {
undef $newcustom{$key};
} else {
......
Supports Markdown
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