%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,
);
$m->comp("/widgets/wrappers/sharky/table_top.mc",
caption => "Information",
number => 1,
rightText => $rightText);
%perl>
<% $fa->get_tplate_type_string %> |
 |
% if ($fa->get_tplate_type == Bric::Biz::Asset::Formatting::ELEMENT_TEMPLATE) {
<% $fa->get_element_name %> |
% } else {
<% $fa->get_name %> |
% }
 |
<% $fa->get_description %> |
 |
<% $oc_name %> |
 |
<% $cat_name %> |
% $m->comp("/widgets/wrappers/sharky/table_bottom.mc");
% $m->comp("/widgets/wrappers/sharky/table_top.mc",
% caption => "Template Code",
% number => 2);
% $m->comp("/widgets/wrappers/sharky/table_bottom.mc");
<%args>
$widget
%args>
<%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;
$code =~ s/>/>/g;
my $agent = detect_agent();
my $infoIndent = $agent->nav4 ? FIELD_INDENT - 5 : FIELD_INDENT + 8;
%init>