Commit 367dcf31 authored by IKEDA Soji's avatar IKEDA Soji
Browse files

Unable to set custom attribute using the SOAP API (if none already set) (#1401)

parent 549024a0
......@@ -1449,7 +1449,7 @@ sub setDetails {
and $reception =~
/^(mail|nomail|digest|digestplain|summary|notice|txt|html|urlize|not_me)$/;
if (@_) { # do we have any custom attributes passed?
%newcustom = %{$subscriber->{'custom_attribute'}};
%newcustom = %{$subscriber->{custom_attribute} // {}};
while (@_) {
my $key = shift;
next unless $key;
......@@ -1509,7 +1509,7 @@ sub setCustom {
->faultstring('Not a subscriber to this list')
->faultdetail('Use : <list> <key> <value> ');
}
%newcustom = %{$subscriber->{'custom_attribute'}};
%newcustom = %{$subscriber->{custom_attribute} // {}};
#if(! defined $list->{'admin'}{'custom_attribute'}{$key} ) {
# return SOAP::Data->name('result')->type('boolean')->value(0);
#}
......
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