%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 => %{ $media->get_notes } ? 'note_fill' : "note",
useGlobalImage => 1,
);
$m->comp("/widgets/wrappers/sharky/table_top.mc",
caption => "Information",
number => $num++,
id => 'mediainfo',
rightText => $rightText
);
%perl>
<% $id %> |
 |
<% $media->get_element_name %> |
 |
<% $media->get_title %> |
 |
% if ($media->get_file_name) {
<% $m->comp('/widgets/profile/preview_link.mc',
type => 'media',
title => $media->get_primary_uri,
doc => $media,
style => 'blackUnderlinedLink') %> |
% } else {
|
% }
 |
<% Bric::Biz::Org::Source->lookup({ id => $media->get_source__id })->get_source_name %> |
 |
<% $media->get_description %> |
 |
<% $media->get_version() %> |
 |
<% $media->get_published_version || '' %> |
 |
<% $media->get_first_publish_date || '' %> |
 |
<% $media->get_publish_date || '' %> |
 |
<% $media->get_priority() %> |
 |
<% join ', ', (map { $_->get_name } $media->get_output_channels) %> |
% $m->comp("/widgets/wrappers/sharky/table_bottom.mc");
% $m->comp('file_section.mc',
% media => $media,
% widget => $widget,
% num => 2,
% read_only => 1,
% indent => $infoIndent );
<& '/widgets/container_prof/container_prof.mc',
tile => $tile,
tile_type => 'media',
action => 'view',
num => 3,
title => 'Content',
start_count => 6
&>
% $m->comp("/widgets/wrappers/sharky/table_top.mc",
% caption => "Associations",
% number => 4);
<% $lang->maketext('Category') %>: |
<%perl>
my $cat = $media->get_category;
$m->out($cat->get_name);
%perl>
|
<% $lang->maketext('Keywords') %>: |
<%perl>
my @keywords;
foreach my $kw ($media->get_keywords) {
push @keywords, $kw->get_name;
}
$m->out(scalar(@keywords) ? join(", ", @keywords) : $lang->maketext("No keywords defined."));
%perl>
|
<% $lang->maketext('Contributors') %>: |
<%perl>
my @contribs;
foreach my $cntr ($media->get_contributors) {
push @contribs, $cntr->get_name;
}
$m->out(scalar(@contribs) ? join(", ", @contribs) : $lang->maketext("No contributors defined."));
%perl>
|
% $m->comp("/widgets/wrappers/sharky/table_bottom.mc");
<%args>
$widget
%args>
<%init>
my $media = get_state_data($widget, 'media');
my $id = $media->get_id;
my $tile = $media->get_tile();
set_state_data('container_prof', 'tile', $tile);
my $agent = detect_agent();
my $infoIndent = $agent->nav4 ? FIELD_INDENT - 5 : FIELD_INDENT + 8;
my $num = 1;
%init>