<%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, rightText => $rightText );
ID:   <% $story->get_id %>
Asset Type:   <% $story->get_element_name %>
Title:   <% $story->get_name %>
Description:   <% $story->get_description %>
Slug:   <% $story->get_slug %>
URI:   <% $story->get_primary_uri %>
Source:   <% Bric::Biz::Org::Source->lookup({ id => $story->get_source__id })->get_source_name %>
Categories:    <%perl> my @cats = $story->get_categories; my @categories; foreach (@cats) { push @categories, $_->get_name; } $m->out( join(", ", @categories));
Cover Date:   <% $story->get_cover_date %>
Publish Date:   <% $story->get_publish_date %>
Expire Date:   <% $story->get_expire_date %>
Current Version:   <% $story->get_current_version %>
Published Version:   <% $story->get_published_version %>
<& '/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);
Type  Values
Keywords:  <%perl> my @keywords; foreach my $kw ($story->get_keywords) { push @keywords, $kw->get_name; } $m->out(scalar(@keywords) ? join(", ", @keywords) : "No keywords defined.");
Contributors:  <%perl> my @contribs; foreach my $cntr ($story->get_contributors) { push @contribs, $cntr->get_name; } $m->out(scalar(@contribs) ? join(", ", @contribs) : "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 = $m->comp("/widgets/util/detectAgent.mc"); my $infoIndent = ($agent->{browser} eq "Netscape") ? FIELD_INDENT - 5 : FIELD_INDENT + 8;