% my $btn = l("pse_CLICK_TO_CREATE"); %= $c->render_to_string(inline => l("pse_DESCRIPTION")); %= form_for "/pseudonyms" => (method => "POST") => begin %= hidden_field "trt" => "ADD"


%= submit_button "$btn", class => "action"

% end

%=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"); %= t td => (class => "sme-border") => $pseudonym->key %= t td => (class => "sme-border") => $account % }
%=l "Pseudonym" %=l "pse_USER_OR_GROUP" %=l "ACTION"
%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{ % % % %}; %} %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{ % % % %}; %} <%= $c->render_to_string(inline => $actionModify) %> <%= $c->render_to_string(inline => $actionRemove) %>
<%} %>