%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>
- <%$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);
%perl>
% } # 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."));
%perl> |
<% $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."));
%perl> |
<% $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."));
%perl> |
<& '/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
%args>
<%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 = '';
%init>