|
@@ -88,6 +88,7 @@ sub main {
|
|
|
my %merged = (
|
|
my %merged = (
|
|
|
%$user_obj,
|
|
%$user_obj,
|
|
|
%options,
|
|
%options,
|
|
|
|
|
+ $options{display_name} ? ( local_href => "/users/$options{display_name}" ) : ( local_href => $user_obj->{local_href} ),
|
|
|
);
|
|
);
|
|
|
# We don't want the password in plain text
|
|
# We don't want the password in plain text
|
|
|
delete $merged{password};
|
|
delete $merged{password};
|