% $m->comp("/widgets/wrappers/sharky/table_top.mc", % caption => "Content", % id => 'containerprof', % number => $num++ % ); % foreach my $dt (@tiles) { % my $sep = 1; % if ($dt->is_container) { % } else { % } % } % if (!scalar(@tiles)) { % }
class=medHeader> <% $lang->maketext('Fields') %> <% $lang->maketext('Values') %>
<% $dt->get_name %>: <%perl> # Find a suitable field of a tile to display my($disp_buf, $value_buf); foreach my $tile ($dt->get_tiles) { next if $tile->is_container; my $props = $tile->get_element_data_obj->get_meta('html_info'); if (my $data = $dt->get_data($tile->get_key_name)) { $disp_buf = $props->{disp}; $value_buf = substr($data, 0, 64); last; } } % 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, &>
% my $data = $dt->get_data; % $data = $lang->maketext("Not defined.") unless defined $data; % $m->out(escape_html($data)); % $sep = 7;  
<%$lang->maketext('No elements are present.')%>
% $m->comp("/widgets/wrappers/sharky/table_bottom.mc"); % return $num; <%args> $widget $num => 1 <%init> # the tile object my $tile = get_state_data($widget, 'tile'); # the contained tiles my @tiles = $tile->get_tiles(); my $agent = detect_agent(); my $infoIndent = $agent->nav4 ? FIELD_INDENT - 5 : FIELD_INDENT + 8;