% my $btn = l("pse_CLICK_TO_CREATE");

<%= $c->render_to_string(inline => l("pse_DESCRIPTION")); %>

<%= $btn %>

<%= hidden_field "trt" => "ADD" %>

<%= l "pse_CURRENT_PSEUDONYMS" %>

% my $numPseudonyms = @$pseudonyms; % if ($numPseudonyms == 0) { <%= l "pse_ACCOUNT_PSEUDONYM_NONE" %> % } else { % foreach my $pseudonym ( @$pseudonyms ) { % my $modifiable = $pseudonym->prop("Changeable") || "yes"; % my $removable = $pseudonym->prop("Removable") || "yes"; % my $account = $pseudonym->prop("Account"); % $account = "Administrator" if ($account eq "admin"); % $account = $c->l("Everyone") if ($account eq "shared"); % my $visible = $pseudonym->prop("Visible"); % $account .= $c->l("pse_LOCAL_ONLY") % if (defined $visible && $visible eq "internal"); % my ($actionModify, $actionRemove) = " "; % if ($modifiable eq "yes") { %my $modify_text = l("MODIFY"); # Localized text %my $csrf_token = "TOKEN"; # CSRF token for security %my $pseudonyms_entry_name = $pseudonym->key; # pseudonyms_entry name extracted from the data structure %$actionModify = qq{ % % % $modify_text % % % }; % } % if ($removable eq "yes") { %my $remove_text = l("REMOVE"); # Localized text %my $csrf_token = "TOKEN"; # CSRF token for security %my $pseudonyms_entry_name = $pseudonym->key; # pseudonyms_entry name extracted from the data structure %$actionRemove = qq{ % % % $remove_text % % % }; % } % }

<%= l "Pseudonym" %>	<%= l "pse_USER_OR_GROUP" %>	<%= l "ACTION" %>
<%= $pseudonym->key%>	<%= $account%>	<%= $c->render_to_string(inline => $actionModify) %>	<%= $c->render_to_string(inline => $actionRemove) %>

% }