<%perl> my $note_img = %{ $story->get_notes } ? 'note_fill' : 'note'; my $rightText = qq{ View Notes View Trail }; $m->comp("/widgets/wrappers/sharky/table_top.mc", caption => "Information", number => 1, id => 'storyinfo', rightText => $rightText ); % if (@ocs == 1) { % } else { % } % unless (ENABLE_CATEGORY_BROWSER) { % } # unless ENABLE_CATEGORY_BROWSER
<%$lang->maketext('ID')%>:   <% $story->get_id %>
<%$lang->maketext('Story Type Element')%>:   <% $story->get_element_name %>
<% $lang->maketext('Title') %>:   <% $story->get_name %>
<% $lang->maketext('Description') %>:   <% $story->get_description %>
<% $lang->maketext('Slug') %>:   <% $story->get_slug %>
<% $lang->maketext('URI') %>:  <% $m->comp('/widgets/profile/preview_link.mc', type => 'story', title => $story->get_primary_uri, doc => $story, style => 'blackUnderlinedLink') %> <% $story->get_primary_uri %>
<% $lang->maketext('Preview in') %>:   <% $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') %>
<% $lang->maketext('Source') %>:   <% Bric::Biz::Org::Source->lookup({ id => $story->get_source__id })->get_source_name %>
<% $lang->maketext('Categories') %>:   <%perl> $m->print(join '
 ', sort { $a cmp $b } map { $_->get_uri } $story->get_categories);
<% $lang->maketext('Cover Date') %>:   <% $story->get_cover_date %>
<% $lang->maketext('Current Version') %>:   <% $story->get_current_version %>
<% $lang->maketext('Published Version') %>:   <% $story->get_published_version || ''%>
<% $lang->maketext('First Published') %>:   <% $story->get_first_publish_date || '' %>
<% $lang->maketext('Last Published') %>:   <% $story->get_publish_date || '' %>
<% $lang->maketext('Expire Date') %>:   <% $story->get_expire_date %>
<% $lang->maketext('Output Channels') %>:   <% 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);
<% $lang->maketext('Type') %>  <% $lang->maketext('Values') %>
<% $lang->maketext('Categories') %>:  <%perl> my @cats; foreach my $cat ($story->get_categories) { push @cats, $cat->get_name; } $m->out(scalar(@cats) ? join(", ", @cats) : $lang->maketext("No categories defined."));
<% $lang->maketext('Keywords') %>:  <%perl> my @keywords; foreach my $kw ($story->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 ($story->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 $story = get_state_data($widget, 'story'); my $id = $story->get_id; my $tile = $story->get_tile(); my $agent = detect_agent(); my $infoIndent = $agent->nav4 ? FIELD_INDENT - 5 : FIELD_INDENT + 8; my @ocs = $story->get_output_channels; my $primocid = $story->get_primary_oc_id; my $oc_select = '';