%args> $type => undef $id => undef $msg => undef $activities => undef $details => undef $history => undef %args>
<% i18nGettext ('I18N_OPENXPKI_CLIENT_HTML_MASON_WORKFLOW_SHOW_INSTANCE_ACTIVITIES') %>
% ## I expect the following: % ## SERVICE_MSG => "COMMAND", % ## COMMAND => $cmd, % ## PARAMS => % ## { % ## WORKFLOW => % ## { % ## ID => $id, % ## STATE => $state, % ## CONTEXT => { ... a simple hash ... } % ## } % ## }
<% i18nGettext('I18N_OPENXPKI_CLIENT_HTML_MASON_WORKFLOW_TYPE') %> | <% i18nGettext($msg->{PARAMS}->{WORKFLOW}->{TYPE}) %> |
<% i18nGettext('I18N_OPENXPKI_CLIENT_HTML_MASON_WORKFLOW_CREATOR') %> | <% delete($msg->{PARAMS}->{WORKFLOW}->{CONTEXT}->{creator}) %> |
<% i18nGettext('I18N_OPENXPKI_CLIENT_HTML_MASON_WORKFLOW_LAST_UPDATE') %> | % my $last_update = $msg->{PARAMS}->{WORKFLOW}->{LAST_UPDATE}; % $last_update =~ s/T/ /; % $last_update .= ' UTC';<% $last_update %> |
% $m->comp('/lib/field_to_i18n.mhtml', % 'field' => $context_key); | % my $value = delete($msg->{PARAMS}->{WORKFLOW}->{CONTEXT}->{$context_key}); % $value = encode('UTF-8', $value); % if ($untainted{$context_key}) { <% i18nGettext($value) | n %> % } % else { <% i18nGettext($value) %> % } |
% $m->comp('/lib/field_to_i18n.mhtml', % 'field' => $param); | % my $value = $msg->{PARAMS}->{WORKFLOW}->{CONTEXT}->{$param}; % # someone is interpreting UTF8 data here, re-encode ... % # FIXME - find out why this is actually happening so that we % # can eliminate the source % $value = encode('UTF-8', $value); % if ($untainted{$param}) { <% i18nGettext($value) | n %> % } % else { <% i18nGettext($value) %> % } |
<% i18nGettext('I18N_OPENXPKI_CLIENT_HTML_MASON_WORKFLOW_SHOW_INSTANCE_HISTORY_DATE') %> | <% i18nGettext('I18N_OPENXPKI_CLIENT_HTML_MASON_WORKFLOW_SHOW_INSTANCE_HISTORY_STATE') %> | <% i18nGettext('I18N_OPENXPKI_CLIENT_HTML_MASON_WORKFLOW_SHOW_INSTANCE_HISTORY_ACTION') %> | <% i18nGettext('I18N_OPENXPKI_CLIENT_HTML_MASON_WORKFLOW_SHOW_INSTANCE_HISTORY_NEW_STATE') %> | <% i18nGettext('I18N_OPENXPKI_CLIENT_HTML_MASON_WORKFLOW_SHOW_INSTANCE_HISTORY_USER') %> |
---|---|---|---|---|
<% $entry->{'WORKFLOW_HISTORY_DATE'} %> | <% $entry->{'WORKFLOW_STATE'} %> | <& /lib/field_to_i18n.mhtml, field => $entry->{'WORKFLOW_ACTION'} &> | % if ($entry->{'WORKFLOW_DESCRIPTION'} =~ /NEW_STATE_AUTORUN/) { <% $next_state %> % } % else { <% $next_state %> % } | <% $entry->{'WORKFLOW_USER'} %> |
' . $key_i18n . ' | ' . $ref->{$key} . ' |