& '/widgets/wrappers/sharky/table_top.mc', caption => "Content", id => 'containerprof', number => $num++ &> <& '/widgets/profile/hidden.mc', name => "$widget|view_cb", value => '', &>
<% $lang->maketext('Fields') %> | <% $lang->maketext('Values') %> | |
---|---|---|
<% $dt->get_name %>: | % if ($dt->is_container) {
<%perl>
# Find a suitable field of a tile to display
my($disp_buf, $value_buf);
foreach my $field ($dt->get_fields) {
# next if $field->get_widget_type !~ /^text/;
if (my $value = $field->get_value) {
$disp_buf = $field->get_name;
$value_buf = substr($value, 0, 64);
last;
}
}
%perl>
% if ($value_buf) {
<% $disp_buf %>: <% escape_html($value_buf) %> % } <& '/widgets/profile/imageSubmit.mc', formName => 'theForm', callback => 'container_prof|view_cb', image => 'view_dgreen', value => $dt->get_id, useHidden => 0, alt => 'View', &> |
% } else {
% my $value = $dt->get_value; % $value = $lang->maketext("Not defined.") unless defined $value; % $m->out(escape_html($value)); |
% }
<%$lang->maketext('No elements are present.')%> |