<%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 );
<%$lang->maketext('UUID')%>:
<% $story->get_uuid %>
<%$lang->maketext('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') %>:
% if (@ocs == 1) {
<& '/widgets/profile/preview_link.mc', type => 'story', value => $short_story_uri, title => $story_uri, doc => $story, style => 'blackUnderlinedLink' &> 
% } else {
% if (!($short_story_uri eq $story_uri)) { <% $short_story_uri %> % } else { <% $story_uri || ' ' %> % }
<% $lang->maketext('Preview in') %>:
<% $oc_select %> <% $m->comp('/widgets/profile/preview_link.mc', type => 'story', value => $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 %>
% unless (ENABLE_CATEGORY_BROWSER) {
<% $lang->maketext('Categories') %>:
<%perl> $m->print(join '
 ', sort { $a cmp $b } map { $_->get_uri } $story->get_categories);
% } # unless ENABLE_CATEGORY_BROWSER
<% $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 &> <& '/widgets/wrappers/sharky/table_top.mc', caption => "Associations", number => 3 &>
<% $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."));
<& '/widgets/wrappers/sharky/table_bottom.mc' &> <& '/widgets/profile/button.mc', disp => $lang->maketext("Return"), widget => $widget, cb => 'return_cb', button => 'return_dgreen', useTable => 0 &> <%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 $story_uri = $story->get_primary_uri; # Truncate long category URLs so they fit in the desk my $story_uri_len = length($story_uri); # Each slash should count as 1/2 a char $story_uri_len -= ($story_uri =~ tr/\///) * .5; my $short_story_uri = ($story_uri_len > 80) ? substr($story_uri, 0, 30) . "..." . substr($story_uri, -40) : $story_uri; my @ocs = $story->get_output_channels; my $primocid = $story->get_primary_oc_id; my $oc_select = '';