<%perl> my $rightText = $m->scomp( '/widgets/profile/imageSubmit.mc', formName => "theForm", callback => $widget . "|trail_cb", image => "view_trail_teal", alt => 'Trail', value => "edit" ) . ' '; $rightText .= $m->scomp( '/widgets/profile/imageSubmit.mc', formName => "theForm", callback => $widget . "|notes_cb", value => 'edit', image => $fa->has_notes ? 'note_fill' : "note", alt => 'Notes', useGlobalImage => 1, ); $m->comp("/widgets/wrappers/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::Template::ELEMENT_TEMPLATE) {
<% $lang->maketext('Element') %>:
<% $fa->get_element_name %>
% } else {
<% $lang->maketext('Name') %>:
<% $fa->get_name %>
% }
<% $lang->maketext('Output Channel') %>:
<% $fa->get_output_channel_name %>
<% $lang->maketext('URI') %>:
<% $fa->get_uri %>
% if (@$sites > 1) {
<% $lang->maketext('Site') %>:
<% Bric::Biz::Site->lookup({id => $fa->get_site_id})->get_name() %> % }
<& '/widgets/profile/displayFormElement.mc', objref => $fa, key => 'priority', &> <& /widgets/profile/text.mc, disp => 'Category', name => 'new_category_autocomplete', id => 'new_category_uri', req => 1, value => $fa->get_category_path, &>
<& '/widgets/profile/displayFormElement.mc', objref => $fa, key => 'description', &> <& '/widgets/profile/displayFormElement.mc', objref => $fa, key => 'expire_date', &> <& '/widgets/wrappers/table_bottom.mc' &> <& /widgets/wrappers/table_top.mc, caption => 'Template Code', number => 2 &> % $m->comp('codemeta.mc', et => $at, button => $search_button) if $at; <& /widgets/dialog_box/find.mc, field_id => "$widget|code", dialog_id => 'finddialog', &>
<& /widgets/wrappers/table_bottom.mc &> <& /widgets/wrappers/table_top.mc, caption => 'Upload Template File', number => 3 &>
% my $uri =
<% $lang->maketext('Download') %>:
<% $fa->get_file_name %>
<% $lang->maketext('Upload') %>:
<& /widgets/wrappers/table_bottom.mc &> <%perl> $m->comp("/widgets/profile/buttonBar.mc", widget => $widget, desks => $desks, cd => $cd, obj => $fa, ); <%args> $widget <%init> my $fa = get_state_data($widget, 'template'); my $at = $fa->get_element_type; # Use the same reset key for this widget in all the widgets we call. my $rk = get_state_data($widget, 'reset_key'); # Get the workflow ID. my $wf_id = get_state_data($widget, 'work_id') || $fa->get_workflow_id(); # Lookup the workflow and get its allowed desks. my $wf = Bric::Biz::Workflow->lookup({id => $wf_id}); my $desks = $wf->allowed_desks(); # Get the current desk, or if this hasn't been put on a desk yet, the start desk my $cd = $fa->get_current_desk() || $wf->get_start_desk(); my $search_button = '}; my $sites = $c->get('__SITES__') || Bric::Biz::Site->list({ active => 1 });