<%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" ); $m->comp("/widgets/wrappers/sharky/table_top.mc", caption => "Information", number => 1, rightText => $rightText);
Asset Type:   <% $fa->get_name %>
Template Name:   <% $fa->get_name %>
Description:   <% $fa->get_description %>
Output Channel:   <% $oc_name %>
Category:   <% $cat_name %>
% $m->comp("/widgets/wrappers/sharky/table_bottom.mc"); % $m->comp("/widgets/wrappers/sharky/table_top.mc", % caption => "Template Code", % number => 2);
 
<% $code %>
% $m->comp("/widgets/wrappers/sharky/table_bottom.mc");
<%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 = $m->comp("/widgets/util/detectAgent.mc"); my $infoIndent = ($agent->{browser} eq "Netscape") ? FIELD_INDENT - 5 : FIELD_INDENT + 8;