%perl>
my $note_img = %{ $story->get_notes } ? 'note_fill' : 'note';
my $rightText = qq{
};
$m->comp("/widgets/wrappers/sharky/table_top.mc",
caption => "Information",
number => 1,
id => 'storyinfo',
rightText => $rightText
);
%perl>
<% $story->get_id %> |
 |
<% $story->get_element_name %> |
 |
<% $story->get_name %> |
 |
<% $story->get_description %> |
 |
<% $story->get_slug %> |
 |
% if (@ocs == 1) {
<% $m->comp('/widgets/profile/preview_link.mc',
type => 'story',
title => $story->get_primary_uri,
doc => $story,
style => 'blackUnderlinedLink') %> |
% } else {
<% $story->get_primary_uri %> |
 |
<% $oc_select %> <%
$m->comp('/widgets/profile/preview_link.mc',
type => 'story',
title => $story->get_primary_uri,
doc => $story,
oc_js => 'window.document.theForm.ocSelect.options[window.document.theForm.ocSelect.selectedIndex].value',
style => 'blackUnderlinedLink') %> |
% }
 |
<% Bric::Biz::Org::Source->lookup({ id => $story->get_source__id })->get_source_name %> |
 |
% unless (ENABLE_CATEGORY_BROWSER) {
<%perl>
$m->print(join ' ', sort { $a cmp $b }
map { $_->get_uri } $story->get_categories);
%perl>
|
 |
% } # unless ENABLE_CATEGORY_BROWSER
<% $story->get_cover_date %> |
 |
<% $story->get_current_version %> |
 |
<% $story->get_published_version || ''%> |
 |
<% $story->get_first_publish_date || '' %> |
 |
<% $story->get_publish_date || '' %> |
 |
<% $story->get_expire_date %> |
 |
<% join ', ', (map { $_->get_name } $story->get_output_channels) %> |
<& '/widgets/wrappers/sharky/table_bottom.mc' &>
<& '/widgets/container_prof/container_prof.mc',
tile => $tile,
tile_type => 'story',
action => 'view',
start_count => 4,
num => 2
&>
% $m->comp("/widgets/wrappers/sharky/table_top.mc",
% caption => "Associations",
% number => 3);