%args>
$type => undef
%args>
<& /service/open_form.mhtml &>
<% i18nGettext ('I18N_OPENXPKI_CLIENT_HTML_MASON_WORKFLOW_CREATE_INSTANCE_TITLE') %>
<% i18nGettext('I18N_OPENXPKI_CLIENT_HTML_MASON_WORKFLOW_CREATE_INSTANCE_DESCRIPTION') %>
% my $msg = $context->{client}->send_receive_command_msg ("list_workflow_titles");
% ## I expect the following:
% ## SERVICE_MSG => "COMMAND",
% ## COMMAND => $cmd,
% ## PARAMS => {$name => {description => $desc}, ... }
%
<& /service/send_form.mhtml &>
<& /service/close_form.mhtml &>
%
% foreach my $type (keys %{$msg->{PARAMS}})
% {
-
<% i18nGettext($type) %>
- <% i18nGettext($msg->{PARAMS}->{$type}->{description}) %>
% }
<%init>
if (defined $type)
{
my $msg = $context->{client}->send_receive_command_msg
(
"create_workflow_instance",
{"WORKFLOW" => $type}
);
return $m->comp ('/service/workflow_list_instances.html', 'type' => $type)
if ($msg);
}
%init>