<%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 ); % if ($media->get_file_name) { % } else { % }
<%$lang->maketext('ID')%>:   <% $id %>
<% $lang->maketext('Media Type Element')%>:   <% $media->get_element_name %>
<% $lang->maketext('Title') %>:   <% $media->get_title %>
<%$lang->maketext('URI') %>:  <% $m->comp('/widgets/profile/preview_link.mc', type => 'media', title => $media->get_primary_uri, doc => $media, style => 'blackUnderlinedLink') %> 
<% $lang->maketext('Source') %>:   <% Bric::Biz::Org::Source->lookup({ id => $media->get_source__id })->get_source_name %>
<% $lang->maketext('Description') %>:   <% $media->get_description %>
<% $lang->maketext('Current Version') %>:   <% $media->get_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('Priority') %>:   <% $media->get_priority() %>
<% $lang->maketext('Output Channels') %>:   <% 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);
<% $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."));
<% $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."));
% $m->comp("/widgets/wrappers/sharky/table_bottom.mc"); <%args> $widget <%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;