<%perl> my $rightText = $m->scomp( '/widgets/profile/imageSubmit.mc', formName => "theForm", callback => $widget . "|trail_cb", image => "view_trail_teal" ) . ' '; $rightText .= $m->scomp( '/widgets/profile/imageSubmit.mc', formName => "theForm", callback => $widget . "|notes_cb", value => 'view', image => %{ $fa->get_notes } ? 'note_fill' : "note", useGlobalImage => 1, ); <& '/widgets/wrappers/sharky/table_top.mc', caption => "Information", number => 1, rightText => $rightText &>
<% $lang->maketext('Template Type') %>:
<% $fa->get_tplate_type_string %>
% if ($fa->get_tplate_type == Bric::Biz::Asset::Formatting::ELEMENT_TEMPLATE) {
<% $lang->maketext('Element') %>:
<% $fa->get_element_name %>
% } else {
<% $lang->maketext('Name') %>:
<% $fa->get_name %>
% }
<% $lang->maketext('Description') %>:
<% $fa->get_description %>
<% $lang->maketext('Output Channel') %>:
<% $oc_name %>
<% $lang->maketext('Category') %>:
<% $cat_name %>
<& '/widgets/wrappers/sharky/table_bottom.mc' &> <& '/widgets/wrappers/sharky/table_top.mc', caption => "Template Code", number => 2 &>
<% $code %>
<& '/widgets/wrappers/sharky/table_bottom.mc' &> <& '/widgets/profile/button.mc', disp => 'Return', widget => $widget, cb => 'return_cb', button => 'return_dgreen', useTable => 0 &> <%args> $widget <%init> my $fa = get_state_data($widget, 'fa'); my $cat_name = $fa->get_category_name; my $oc_name = $fa->get_output_channel_name; my $code = $fa->get_data; $code =~ s//>/g; my $agent = detect_agent(); my $infoIndent = $agent->nav4 ? FIELD_INDENT - 5 : FIELD_INDENT + 8;