<%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 => 'edit', image => $fa->has_notes ? 'note_fill' : "note", useGlobalImage => 1, ); $m->comp("/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::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 %>
<% $lang->maketext('Site') %>:
<% Bric::Biz::Site->lookup({id => $fa->get_site_id})->get_name() %>
<& '/widgets/profile/displayFormElement.mc', objref => $fa, key => 'priority', &> <& '/widgets/select_object/select_object.mc', object => 'category', constrain => { site_id => $fa->get_site_id }, field => 'uri', sort_field => 'uri', name => 'category_id', disp => 'Category', selected => $fa->get_category_id &> <& '/widgets/profile/displayFormElement.mc', objref => $fa, key => 'description', &> <& '/widgets/profile/displayFormElement.mc', objref => $fa, key => 'expire_date', &> <& '/widgets/wrappers/sharky/table_bottom.mc' &> <& /widgets/wrappers/sharky/table_top.mc, caption => 'Template Code', number => 2 &>
% if ($at) {
<% $lang->maketext('Key Name') %>:
<% $at->get_key_name . $show_element_flags->($at) %>
% if (@{$at->get_field_types}) {
<% $lang->maketext('Field Elements') %>:
% $m->print(join ', ', map { $_->get_key_name . $show_data_flags->($_) } $at->get_field_types);
% } % if (@{$at->get_containers}) {
<% $lang->maketext('Container Elements') %>:
% $m->print(join ', ', map { $_->get_key_name } $at->get_containers); <% $search_button %>
% } % } else {
 
<% $search_button %>
% }
<& /widgets/dialog_box/find.mc, field_id => "$widget|code", dialog_id => 'finddialog', &>
<& /widgets/wrappers/sharky/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 = '}; <%once> my $show_element_flags = sub { my ($at) = @_; my @flags; push @flags, 'paginated' if $at->is_paginated; push @flags, 'top level' if $at->is_top_level; push @flags, 'fixed url' if $at->is_fixed_uri; push @flags, 'media' if $at->is_media; push @flags, 'related media' if $at->is_related_media; push @flags, 'related story' if $at->is_related_story; return unless @flags; return ' ('.join(', ', @flags).')'; }; my $show_data_flags = sub { my ($d) = @_; my @flags; push @flags, 'required' if $d->get_required; push @flags, 'repeatable' if $d->get_quantifier; return unless @flags; return ' ('.join(', ', @flags).')'; };