& '/widgets/profile/hidden.mc',
name => "$widget|update_cb",
value => 1,
&>
<%perl>;
my $rightText = $m->scomp( '/widgets/profile/imageSubmit.mc',
formName => "theForm",
callback => $widget . "|trail_cb",
image => "view_trail_teal",
alt => 'Trail',
) . ' ';
$rightText .= $m->scomp( '/widgets/profile/imageSubmit.mc',
formName => "theForm",
callback => $widget . "|notes_cb",
image => $media->has_notes ? 'note_fill' : "note",
useGlobalImage => 1,
value => 'edit',
alt => 'Notes',
);
$m->comp("/widgets/wrappers/table_top.mc",
caption => "Information",
number => $num++,
id => 'mediainfo',
rightText => $rightText
);
# Used by Bric::App::Callback::ContainerProf->_drift_correction.
$m->comp(
'/widgets/profile/hidden.mc',
name => 'doc_uuid',
value => $media->get_uuid
);
%perl>
- <%$lang->maketext('UUID')%>:
- <% $media->get_uuid %>
- <%$lang->maketext('Media Type')%>:
- <% $media->get_element_name() %>
- <% $lang->maketext('Current Version') %>:
- <% $media->get_current_version() %>
- <% $lang->maketext('Published Version') %>:
- <% $media->get_published_version || ' ' %>
- <% $lang->maketext('First Published') %>:
- <% $media->get_first_publish_date || ' ' %>
- <% $lang->maketext('Last Published') %>:
- <% $media->get_publish_date || ' ' %>
- <% $lang->maketext('URI') %>:
% if (my $uri = $media->get_primary_uri) {
% if (@ocs == 1) {
- <% $m->comp('/widgets/profile/preview_link.mc',
type => 'media',
value => $media->get_primary_uri,
doc => $media,
style => 'blackUnderlinedLink') %>
% } else {
- <% $uri %>
- <% $lang->maketext('Preview in') %>:
- <% $oc_select %>

% }
% }
% if (@$sites > 1) {
- <% $lang->maketext('Site') %>:
- <% Bric::Biz::Site->lookup({id => $media->get_site_id})->get_name() %>
% }
<%perl>;
$m->comp("/widgets/wrappers/table_bottom.mc");
$m->comp('file_section.mc',
media => $media,
widget => $widget,
num => $num++,
read_only => $media->get_alias_id,
indent => $infoIndent
);
$num = $m->comp( '/widgets/container_prof/container_prof.mc',
element => $element,
element_type => 'media',
action => $media->get_alias_id ? 'view' : 'edit',
num => $num,
title => 'Content',
start_count => 6
);
%perl>
% if (ENABLE_OC_ASSET_ASSOCIATION) {
<& "/widgets/wrappers/table_top.mc",
caption => "Output Channels",
number => $num++
&>
<& 'list_output_channels.html',
media => $media,
output_channels => [ $media->get_output_channels ],
primary_oc_id => $media->get_primary_oc_id
&>
<& "/widgets/wrappers/table_bottom.mc" &>
% }
<& "/widgets/wrappers/table_top.mc",
caption => "Contributors",
number => $num++
&>
<& '/widgets/profile/contributors/_list.html',
asset => $media,
asset_type => 'media',
widget => $widget,
contribs => \@{ $media->get_contributors() }
&>
<& '/widgets/profile/button.mc',
disp => $lang->maketext("Add"),
name => "add_contributor",
button => "add_lgreen",
useTable => 0,
js => qq{onclick="openWindow('/workflow/profile/media/contributors.html', 'ContributorBricolagePopup', { closeOnUnload: true }); return false"}
&>
<& "/widgets/wrappers/table_bottom.mc" &>
<& "/widgets/wrappers/table_top.mc",
caption => "Keywords",
number => $num++
&>
% my $rowColor = 1;
% if (ENABLE_CATEGORY_BROWSER) {
">
<% $lang->maketext('Category') %>: |
<% $media->get_category->get_uri %> |
<& '/widgets/profile/button.mc',
disp => $lang->maketext("Edit"),
widget => $widget,
cb => 'category_cb',
button => 'pencil',
useTable => 0,
globalImage => 1 &> |
% } # if ENABLE_CATEGORY_BROWSER
">
<% $lang->maketext('Keywords') %>: |
<& '/widgets/profile/fast_add.mc',
type => "keyword",
objects => [ $media->get_keywords ]
&>
|
<%perl>
$m->comp("/widgets/wrappers/table_bottom.mc");
$m->comp("/widgets/profile/buttonBar.mc",
widget => $widget,
desks => $desks,
cd => $cd,
obj => $media,
);
%perl>
<%args>
$widget
%args>
<%init>
my $media = get_state_data($widget, 'media');
my $element = $media->get_element();
set_state_data('container_prof', 'element', $element);
my $wf_id = get_state_data($widget, 'work_id');
$wf_id = $media->get_workflow_id() unless $wf_id;
my $wf = Bric::Biz::Workflow->lookup( { id => $wf_id });
my $desks = $wf->allowed_desks();
my $cd = $media->get_current_desk();
$cd = $wf->get_start_desk() unless $cd;
my $id = $media->get_id;
my $sites = $c->get('__SITES__') || Bric::Biz::Site->list({ active => 1 });
# Set up a formatting variable
my $infoIndent = FIELD_INDENT + 8;
my $num = 1;
# get output channel info
my $asset_type = $media->get_element_type;
my @aocs = $asset_type->get_output_channels;
my @ocs = $media->get_output_channels;
my $primocid = $media->get_primary_oc_id;
my $oc_select = '';
%init>